最好用的汉字首字母转换代吗

cbtaja

Option Compare Text '按文本排序（汉字按拼音排序）'本模块中简易的拼音首字母自定义函数PY()必须设置此比较方式

Function PY(ByVal rng)
    Dim i%, k%, str$, tmp$, hz$, s$(), j%
    s = Split("八,擦,咑,妸,发,旮,哈,讥,讥,咔,垃,妈,拏,噢,妑,七,呥,仨,他,屲,屲,屲,夕,丫,帀,咗", ",")
    str = Replace(Replace(rng, " ", ""), "　", "")
    For i = 1 To Len(str)
        hz = Mid(str, i, 1)
        k = 25
        For j = 0 To UBound(s)
            If s(j) > hz Then k = j: Exit For
        Next
        PY = PY & Chr(65 + k)
    Next
End Function

cbtaja

caxa2008 发表于 2015-2-18 00:31
看了一下，有错误，比如“马"转换后变成"L","瑞"转换后变成”Q“,“乐”转换后变成"L",等等！

请看我在31楼的代码，使用的特征汉字是经过精确校核过的，不会出现上述错误。除非是多音字且该字的多个发音的声母不同（比如“长”，有“长宽高”和“成长”两种用法不同的发音）

huaich

发现有几个字母不准确，如黄—W，高—T

cuijinwei00

lhdcxz 发表于 2011-4-2 11:44
''''汉字拼音首字母''''''''''''''''''''''''''
Public Function LChin(Str As String) As Variant
    O ...

这个代码很好用直接复制就号了。谢谢楼主分享