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

时　间: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