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

望江婷 · 发表于 2011-4-2 11:32

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

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

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 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 · 发表于 2011-4-2 11:56

收藏了，谢谢。

望江婷 · 发表于 2011-4-2 12:58

原帖由 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 · 发表于 2011-4-2 13:48

囡

这个字念什么？nan？

tgtmjdh · 发表于 2011-4-2 13:49

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

望江婷 · 发表于 2011-4-2 13:58

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

这个字念什么？nan？

念 nan第一个字母n

多音字处理不好

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

tgtmjdh · 发表于 2011-4-2 14:22

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

望江婷 · 发表于 2011-4-2 14:32

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

嘿嘿
念 nan第一个字母n

这个代码多音字处理不好

望江婷 · 发表于 2011-4-2 14:59

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

		自动登录	找回密码
密码			免费注册

[分享] 最好用的汉字首字母转换代吗

评分