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

望江婷

从论坛上下载的汉字首字母转换代吗，具体哪位老师的不清楚了，结合贝妮的代码，修改了一下原代码，比较了论坛的5，6函数，发现这个最好用，分享一下请网友们看看还有什么问题，在优化以下



汉字首字母转修改版 - 副本.rar (25.63 KB, 下载次数: 578)

2011-4-2 11:32 上传

点击文件名下载附件

lhdcxz

''''汉字拼音首字母''''''''''''''''''''''''''
Public Function LChin(Str As String) As Variant
    On Error Resume Next
      Str = StrConv(Str, vbNarrow)
      If Asc(Str) > 0 Or Err.Number = 1004 Then LChin = ""
      LChin = WorksheetFunction.VLookup(Str, [{"吖","a";"八","b";"嚓","c";"咑","d";"鵽","e";"发","f";"猤","g";"铪","h";"夻","j";"咔","k";"垃","l";"嘸","m";"旀","n";"噢","o";"妑","p";"七","q";"囕","r";"仨","s";"他","t";"屲","w";"夕","x";"丫","y";"帀","z"}], 2)
      End Function
Function py(Str)
For i = 1 To Len(Str)
py = py & LChin(Mid(Str, i, 1))
Next
End Function

cnwall

收藏了，谢谢。

望江婷

原帖由 lhdcxz 于 2011-4-2 11:44 发表
''''汉字拼音首字母''''''''''''''''''''''''''
Public Function LChin(Str As String) As Variant
    On Error Resume Next
      Str = StrConv(Str, vbNarrow)
      If Asc(Str) > 0 Or Err.Number = 1004  ...

这个代码的运行速度还是比不上我上传得代码，并且这个代码如果中间有空行，则会出现0字符

tgtmjdh

囡


这个字念什么？nan？

tgtmjdh

最准确的，还是字典，不过速度上可能慢一些

望江婷

原帖由 tgtmjdh 于 2011-4-2 13:48 发表
囡


这个字念什么？nan？

念 nan第一个字母n

多音字处理不好

[ 本帖最后由 望江婷 于 2011-4-2 14:02 编辑 ]

tgtmjdh

多音字确实不好处理，不过，“囡”是多音字？似乎不是吧，O(∩_∩)O~

望江婷

原帖由 tgtmjdh 于 2011-4-2 14:22 发表
多音字确实不好处理，不过，“囡”是多音字？似乎不是吧，O(∩_∩)O~

嘿嘿
念 nan第一个字母n

这个代码多音字处理不好

望江婷

代码中的s如果定义成字符串 Dim S As String为什么出错呢？