返回字串的拼音首字母
2024-07-21 02:09:08
供稿：網友
網站運營seo文章大全提供全面的站長運營經驗及seo技術!
//////////////////////////////////////////////////////////////
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
