取汉语拼音首字母问题

[feixianzhi]

我用下面帖子中的函数取拼音首字母，在pb6中正常，在pb10 beta2 4500中无法得到结果。
http://search.csdn.net/Expert/topic/606/606514.xml?temp=.4435236
是不是pb10对汉字支持不好？怎么解决？谁知道哪里有新补丁下载？

[li_d_s]

取拼音编码表来自己拼，或者放一个小库存放编码表,用sql查询

[feixianzhi]

lzheng2001(１加１＝０) :
正式版？哪里有下？我用的是bate2 破解版。
li_d_s(我是小鬼) ：
如果不能用函数解决，我也准备用数据库来做!

[j9dai]

红星闪闪放光彩

[j9dai]

狗狗好像做过一个三码录入的，去问问他

[lzheng2001]

正式版早已出了,为什么还用bete 2呢?

[feixianzhi]

这个应该不是很难的问题，请各位一定要帮帮忙！

[lzheng2001]

估计还是PB的问题,还是自己去找个正式企业版本的PB吧,然后打上补丁!

[哇咔咔]

http://221.10.44.214:85/download/2/2_1585_1.rar
http://221.10.44.214:85/bbs/UploadFile/200482621551035645.rar

[feixianzhi]

补丁那么难找！！！唉！◎
高分求pb10补丁下载地址！

[feixianzhi]

楼上的，你的函数我早就有了，但是返回值不准确！
那个函数虽然复杂但是返回值准确，我再其他版本的pb中已经用了。
pb10可能对汉字支持不好，所以现在只求pb10的补丁下载地址！

[tmxkdldw]

取拼音编码表来自己拼，或者放一个小库存放编码表,用sql查询

[setmind]

给你个好函数吧，那个太麻烦了。
FUNCTION f_get_py (string as_data) returns string
long ll_pos
string ls_py,ls_pos
FOR ll_pos = 1 TO Len(as_data)
IF ASC(Mid(as_data,ll_pos,1)) > 128 THEN
CHOOSE CASE Mid(as_data,ll_pos,2)
CASE is >= '匝';ls_py += "Z"
CASE is >= '丫';ls_py += "Y"
CASE is >= '夕';ls_py += "X"
CASE is >= '哇';ls_py += "W"
CASE is >= '他';ls_py += "T"
CASE is >= '仨';ls_py += "S"
CASE is >= '呥';ls_py += "R"
CASE is >= '七';ls_py += "Q"
CASE is >= '皅';ls_py += "P"
CASE is >= '噢';ls_py += "O"
CASE is >= '拿';ls_py += "N"
CASE is >= '呣';ls_py += "M"
CASE is >= '垃';ls_py += "L"
CASE is >= '咔';ls_py += "K"
CASE is >= '夻';ls_py += "J"
CASE is >= '哈';ls_py += "H"
CASE is >= '旮';ls_py += "G"
CASE is >= '发';ls_py += "F"
CASE is >= '妸';ls_py += "E"
CASE is >= '咑';ls_py += "D"
CASE is >= '嚓';ls_py += "C"
CASE is >= '八';ls_py += "B"
CASE is >= '吖';ls_py += "A"
CASE ELSE; ls_py += Mid(as_data,ll_pos,2)
END CHOOSE
ll_pos ++
ELSE
ls_py += Mid(as_data,ll_pos,1)
END IF
NEXT
RETURN ls_py

[feixianzhi]

换回pb9了，pb10是试用版的可能对中文支持不好！