以下是引用xipies在2008-9-2 9:40:00的发言：
暂没有参数,不知道以后加加不
不过可以处理一下,得到简拼
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)
这个代码在命令窗口执行的,如果放到取值代码里面要改下
lxl兄提供的简拼代码在计算代码窗口中又如何使用呢?
你问的是在命令窗口中怎么使用吧？
命令窗口中可以这样：
Dim a As String
Dim b As String = GetPY("中国")
Tables("表A").Current("第二列")=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
Tables("表A").Current("第三列")=a.ToUpper
加好友 
发短信
Post By：2008/9/1 20:48:00 [显示全部帖子]
