在使用中发现,拼音函数不正确。如:
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