主题：[求助] 不懂就问:提取拼音的函数没有了吗

暂没有参数,不知道以后加加不
不过可以处理一下,得到简拼
Dim a As String
Dim b As String = GetPY("中国")
Output.Show(b)
For i As Integer = 0 To b.Length - 1
    If i = 0 OrElse b.Chars(i - 1) = " " Then

        a &= b.Chars(i)

    End If

Next

Output.Show(a.ToUpper)

这个代码在命令窗口执行的,如果放到取值代码里面要改下

嘿嘿嘿