如何用代码得到汉字的拼音的首字母？谢谢!

foshan · 发表于 2006-2-20 14:18

如何用代码得到汉字的拼音的首字母？谢谢! 例如，“佛山”的拼音的首字母是“FS”，如何用代码来实现？谢谢大家!

plxmm · 发表于 2006-2-20 14:31

好像原创发表版块有的

另外：基础版块也有类似的。

lj1226189 · 发表于 2006-2-20 14:37

SLsgL0IR.rar (10.43 KB, 下载次数: 3880)

plxmm · 发表于 2006-2-20 14:41

蠔田－－－－－	xt
昊天－－－－－	zt

不知道为何，偶遇到的汉字转拼音的程序，都是这样的不能正确认识这些？

lj1226189 · 发表于 2006-2-20 14:49

我有一个两万多个汉字及其对应首个拼音字母的excel 表！

foshan · 发表于 2006-2-20 15:06

以下是引用[I]lj1226189[/I]在2006-2-20 14:37:19的发言：[BR]

lj1226189 兄，谢谢您!很好用! 能否对关键的代码进行注释一下，谢谢!

northwolves · 发表于 2006-2-21 01:39

只支持一二级6000多个汉字:

Function py(ByVal R As Range) As String
Const hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝座ABCDEFGHJKLMNOPQRSTWXYZZ"
Dim I As Integer, j As Integer, temp As String
For I = 1 To Len(R)
temp = Mid(R, I, 1)
If temp <> " " And Asc(temp) < 0 Then
If temp = "座" Then temp = "Z"
For j = 1 To 23
If Asc(temp) >= Asc(Mid(hanzi, j, 1)) And Asc(temp) < Asc(Mid(hanzi, j + 1, 1)) Then temp = Mid(hanzi, 24 + j, 1)
Next
py = py & temp
End If
Next
py = UCase(py)
End Function

Long_III · 发表于 2006-2-21 08:39

http://club.excelhome.net/viewthread.php?tid=61384&replyID=&skin=0

函数入门之查找函数VlookUp

是否会出现错误没有验证过，因为一直没用到这个

foshan · 发表于 2006-2-28 15:38

lj1226189 兄：您好! 提取汉字拼音的首字母时遇到多音字怎么办？谢谢大家! 长江 cj chang jiang 行长 xc hang zhang 行走 xz xing zou

7QG8rB2d.rar (11.08 KB, 下载次数: 259)

[此贴子已经被作者于2006-2-28 15:40:16编辑过]

plxmm · 发表于 2006-2-28 15:43

几乎没用过这类东东。没法说了。

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

[求助] 如何用代码得到汉字的拼音的首字母？谢谢!

我试过多种方法，给你一个我认为最好的！

哪就用字库！