//////////////////////////////////////////////////////////////
file://函数名：gf_getfirstletter(string)
file://功能：返回字串的拼音首字母,支持混合字符串(可以包含非汉字)
file://参数：as_inputstring
file://返回值：string
file://created 大同 张和平 [email protected]
//////////////////////////////////////////////////////////////
long i
string ls_ch,ls_returnStr
For 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
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
