| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 在狐表中的getpy跟这个有什么不同？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6127) |
| -- 作者：菜鸟foxtable -- 发布时间：2010/3/9 17:00:00 -- 在狐表中的getpy跟这个有什么不同？ ----以下代码存入一个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 |
| -- 作者：狐狸爸爸 -- 发布时间：2010/3/9 17:51:00 -- 我也不太清楚，搞不明白这个 |
| -- 作者：菜鸟foxtable -- 发布时间：2010/3/9 20:30:00 -- 能把这个代码转换成狐表的自定义函数吗？有请高手。 |