以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 不懂就问:提取拼音的函数没有了吗  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87)

--  作者:xipies
--  发布时间:2008/9/1 17:58:00
--  [求助] 不懂就问:提取拼音的函数没有了吗
如题:提取拼音的函数没有了吗

就是易表中的getpy()那个,好像找不到,是不是用了新的方法来代替了?这个函数我比较喜欢用的
--  作者:nidecan
--  发布时间:2008/9/1 18:08:00
--  
建议增加一个
--  作者:nidecan
--  发布时间:2008/9/2 7:59:00
--  

--  作者:狐狸爸爸
--  发布时间:2008/9/2 8:01:00
--  
9月2日的更新已经有了。
--  作者:xipies
--  发布时间:2008/9/2 8:03: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

Next

Output.Show(a.ToUpper)

 

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


--  作者:狐狸爸爸
--  发布时间:2008/9/2 8:43:00
--  
呵呵,lxl兄相当高手啊
--  作者:lxl
--  发布时间:2008/9/2 8:46:00
--  
以下是引用狐狸爸爸在2008-9-2 8:43:00的发言:
呵呵,lxl兄相当高手啊

图片点击可在新窗口打开查看嘿嘿嘿


--  作者:狐狸爸爸
--  发布时间:2008/9/2 8:50:00
--  
呵呵,升你为贵宾,可进入版主区,虽然版主什么也没有,^_^

--  作者:xipies
--  发布时间:2008/9/2 8:56: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

Next

Output.Show(a.ToUpper)

 

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



非常感谢,虽然我目前还不能成功运用,但还是非常感谢,只要能达到目的,怎样都行,再次感谢

[此贴子已经被作者于2008-9-2 8:57:18编辑过]