Foxtable(狐表)用户栏目专家坐堂 → 在狐表中的getpy跟这个有什么不同?


  共有13497人关注过本帖树形打印复制链接

主题:在狐表中的getpy跟这个有什么不同?

帅哥哟,离线,有人找我吗?
菜鸟foxtable
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
在狐表中的getpy跟这个有什么不同?  发帖心情 Post By:2010/3/9 17:00:00 [只看该作者]

----以下代码存入一个GetPY.prg中,即建立自定义函数----*

Parameters cChina
Local pcPychr,i,j,c,Hz
Release pcPychr
Public pcPychr
pcPychr=''
Set Collate To 'Pinyin'
Pycode='八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗' &&从B开始的每个拼音码的首字码
For i=1 To Len(cChina)
    If Asc(Substr(cChina,i,1))>160
        hz=Substr(cChina,i,2)
        c=''
        s=1
        For j=1 To 52
            s1=Substr(Pycode,j,2)
            If hz <Substr(Pycode,j,2)
                c=Chr(96+S)
                Exit
            Endif
            j=j+1
            s=s+1
        Endfor
        pcPychr=pcPychr+Upper(c)
        i=i+1
    Else
        pcPychr=pcPychr+Upper(Substr(cChina,i,1))
    Endif
Endfor
Return pcPychr
**End**


*----调用方式为----*
GetPY('汉字')

:
?GetPY('十豆三')
得到的结果为
SDS

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/3/9 17:51:00 [只看该作者]

我也不太清楚,搞不明白这个

 回到顶部
帅哥哟,离线,有人找我吗?
菜鸟foxtable
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
  发帖心情 Post By:2010/3/9 20:30:00 [只看该作者]

能把这个代码转换成狐表的自定义函数吗?有请高手。


 回到顶部