[求助] 不懂就问:提取拼音的函数没有了吗 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 不懂就问:提取拼音的函数没有了吗

共有50592人关注过本帖树形打印复制链接主题：[求助] 不懂就问:提取拼音的函数没有了吗

smileboy

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

好心情

等级：超级版主帖子：715 积分：5564 威望：0 精华：1 注册：2008/8/31 20:45:00

Post By：2008/9/2 12:34:00 [显示全部帖子]

以下是引用lxl在2008-9-2 8:39: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

Output.Show(a.ToUpper)

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

学习。
大家对VB不太熟，还是这样写比较好理解：
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 = a & b.Chars(i)

End If

Output.Show(a.ToUpper)

smileboy

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

好心情

等级：超级版主帖子：715 积分：5564 威望：0 精华：1 注册：2008/8/31 20:45:00

Post By：2008/9/2 13:43:00 [显示全部帖子]

以下是引用xipies在2008-9-2 13:34:00的发言：

弄不懂啊,代码写在哪儿都找不到,lxl兄收不收徒弟呀

1、第二列：数据表--设计列--其他：计算代码
2、表属性：datacolchanged事件

下一主题 >> << 上一主题

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