汉字转拼音首字母问题

gzkrmch

我从论坛里找了个例子,修改了一下,但现在有个问题,转出的首字母只有带空格才能显示全,不带空格的话最后一个字母显示不出来,希望大家帮忙一下,谢谢了{:soso_e100:}
还有最好转出是大写的,现在转出的都是小写的,请问这样的代码怎样写{:soso_e120:}

gzkrmch

roych 发表于 2012-8-15 22:30
如果不需要音调的话，其实是可以更简单一些的，用Asc函数就可以了。不过，既然用到这么眼熟的代码（不会这么 ...

太感谢roych 老师了,

roych

如果不需要音调的话，其实是可以更简单一些的，用Asc函数就可以了。不过，既然用到这么眼熟的代码（不会这么巧吧？），{:soso_e113:}，俺肯定得帮忙解决问题嘛，是不是？O(∩_∩)O~

以下是罗斯文数据库修改版，供参考。此外，好像还可以用Chrw来处理~~~

1. Public Function PinYin(Tstr As String) As Long
   
2. Dim I As Long
   
3. I = Asc(Tstr)
   
4. If I >= Asc("啊") And I < Asc("芭") Then PinYin = "A"
   
5. If I >= Asc("芭") And I < Asc("擦") Then PinYin = "B"
   
6. If I >= Asc("擦") And I < Asc("搭") Then PinYin = "C"
   
7. If I >= Asc("搭") And I < Asc("蛾") Then PinYin = "D"
   
8. If I >= Asc("蛾") And I < Asc("发") Then PinYin = "E"
   
9. If I >= Asc("发") And I < Asc("噶") Then PinYin = "F"
   
10. If I >= Asc("噶") And I < Asc("哈") Then PinYin = "G"
    
11. If I >= Asc("哈") And I < Asc("击") Then PinYin = "H"
    
12. If I >= Asc("击") And I < Asc("喀") Then PinYin = "J"
    
13. If I >= Asc("喀") And I < Asc("垃") Then PinYin = "K"
    
14. If I >= Asc("垃") And I < Asc("妈") Then PinYin = "L"
    
15. If I >= Asc("妈") And I < Asc("拿") Then PinYin = "M"
    
16. If I >= Asc("拿") And I < Asc("哦") Then PinYin = "N"
    
17. If I >= Asc("哦") And I < Asc("啪") Then PinYin = "O"
    
18. If I >= Asc("啪") And I < Asc("欺") Then PinYin = "P"
    
19. If I >= Asc("欺") And I < Asc("然") Then PinYin = "Q"
    
20. If I >= Asc("然") And I < Asc("撒") Then PinYin = "R"
    
21. If I >= Asc("撒") And I < Asc("塌") Then PinYin = "S"
    
22. If I >= Asc("塌") And I < Asc("挖") Then PinYin = "T"
    
23. If I >= Asc("挖") And I < Asc("昔") Then PinYin = "W"
    
24. If I >= Asc("昔") And I < Asc("压") Then PinYin = "X"
    
25. If I >= Asc("压") And I < Asc("匝") Then PinYin = "Y"
    
26. If I >= Asc("匝") And I <= Asc("座") Then PinYin = "Z"
    
27. End Function

复制代码