暂没有参数,不知道以后加加不不过可以处理一下,得到简拼Dim a As StringDim 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)
这个代码在命令窗口执行的,如果放到取值代码里面要改下