//file://函数名：gf_getfirstletter(string)file://功能：返回字串的拼音首字母,支持混合字符串(可以包含非汉字)file://参数：as_inputstringfile://返回值：stringfile://created 大同 张和平 dtzhp@yeah.net//long istring ls_ch,ls_returnStrFor i=1 to Len(as_InputString) file://依次处理as_InputString中每个字符 ls_ch=Mid(as_InputString , i , 1) If ls_ch < "啊" then // 非汉字 ls_returnStr = ls_returnStr+ls_ch // 不变 Elseif ls_ch >= "啊" and ls_ch <= "座" then file://处理一级汉字 CHOOSE CASE ls_ch CASE is >= '匝' ls_returnStr += "z" CASE is >= '压' ls_returnStr += "y" CASE is >= '昔' ls_returnStr += "x" CASE is >= '挖' ls_returnStr += "w" CASE is >= '塌' ls_returnStr += "t" CASE is >= '撒' ls_returnStr += "s" CASE is >= '然' ls_returnStr += "r" CASE is >= '期' ls_returnStr += "q" CASE is >= '啪' ls_returnStr += "p" CASE is >= '哦' ls_returnStr += "o" CASE is >= '拿' ls_returnStr += "n" CASE is >= '妈' ls_returnStr += "m" CASE is >= '垃' ls_returnStr += "l" CASE is >= '喀' ls_returnStr += "k" CASE is >= '击' ls_returnStr += "j" CASE is >= '哈' ls_returnStr += "h" CASE is >= '噶' ls_returnStr += "g" CASE is >= '发' ls_returnStr += "f" CASE is >= '蛾' ls_returnStr += "e" CASE is >= '搭' ls_returnStr += "d" CASE is >= '擦' ls_returnStr += "c" CASE is >= '芭' ls_returnStr += "b" CASE is >= '啊' ls_returnStr += "a" END CHOOSE// elseif ls_ch > "座" then file://处理一级汉字// select py into :ls_py from piyin where hanzi = :ls_ch; End if// i = i+1 file://PB8不用此句，而PB65要用， 指向下一个汉字
Next RETURN ls_returnStr
