| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879 |
- $PBExportHeader$f_get_pym.srf
- $PBExportComments$汉字拼音的函数
- global type f_get_pym from function_object
- end type
- forward prototypes
- global function string f_get_pym (string as_inputstring)
- end prototypes
- global function string f_get_pym (string as_inputstring);//返回汉字拼音的函数,支持混合字符传(可以包含非汉字)
- //利用PB6能够对汉字进行比较的功能，可以生成所有的汉字拼音码......
- //在PB6.5版本下通过
- //SunGxf Soft 顾伟章
- //注:核心思路来源与陶清PB论坛上，非常感谢
- long i
- string ls_ch,ls_returnStr
- For i=1 to Len(as_InputString) //依次处理as_InputString中每个字符
- ls_ch=Mid(as_InputString , i , 1)
- If Asc(ls_ch)<128 then // 非汉字
- ls_returnStr = ls_returnStr+ls_ch // 不变
- Else // 是汉字
- ls_ch = Mid(as_InputString , i , 1) // 取出此汉字
- //处理汉字
- 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
- // i = i+1 // 指向下一个汉字
- End if
- Next // 处理完毕
- RETURN ls_returnStr
- end function
|
