主题：Getpinyin的bug

 Dim s As String = "万"
output.Show(GetPinyin(s,1))

显示居然是m

还有
Dim s As String = "红"
output.Show(GetPinyin(s,1))


显示居然是g

 getpy不会有这个问题

万 是多音字。

 

你可以改成

 

Dim s As String = "万"
s = s.Replace("万", "腕")
output.Show(GetPinyin(s,1))

红 也是多音字，女红（gōng）

 我真的醉了...这不符合常用的啊,多音字这要咋整...

 

可以做一个多音字表，把字符记录起来，对应读音。

 

先去表那里查找是否有数据，如果有，则取值，如果没有，就用getpinyin函数。

 

或者，看看这个例子 https://my.oschina.net/u/1270374/blog/163990