网站公告
·Access快速平台QQ群号:189307860    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > access数据库-模块/函数/VBA

快速开发平台的拼音函数修正

时 间:2014-10-08 08:21:37
作 者:hongyin   ID:21273  城市:温州
摘 要:快速开发平台 拼音 函数
正 文:

在使用中发现,拼音函数不正确。如:

UMVsoftRDPLib.PinYin("林瑛")

结果为:L瑛。

经测试,有好多不是常见字,无法取得声母。


改为:

Public Function PinYin(Expression As Variant) As String
'    PinYin = UMVsoftRDPLib.PinYin(Expression)
    Dim p0 As String, c As String, str As String
    Dim i As Integer, J As Integer
    p0 = "吖八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗"
    For i = 1 To Len(Expression)
        c = "z"
        str = Mid(Expression, i, 1)
        If Asc(str) > 0 Then
            c = str
        Else
            For J = 1 To 26
                If Mid(p0, J, 1) > str Then
                    c = Chr(95 + J)
                    Exit For
                End If
            Next
        End If
        PinYin = PinYin + c
    Next
End Function



Access软件网QQ交流群 (群号:232776913)       access源码网店

最新评论 查看更多评论(3)

2017/11/14 16:34:17KevinFan
这个确实比平台自带的准备很多,平台自带的“深圳市”都转换不了,上面这个可以。 但我发现上述代码“人民”错误转为"rl",平台自带的却又正确转为"RM"

2014/10/8 21:10:48程龙
GOOD!

2014/10/8 15:38:19胡轶毓
正好有用。谢谢!

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助