CSDN博客

img dtzhp

返回字串的拼音首字母

发表于2002/11/17 11:51:00  425人阅读

//////////////////////////////////////////////////////////////
file://函数名:gf_getfirstletter(string)
file://功能:返回字串的拼音首字母,支持混合字符串(可以包含非汉字)
file://参数:as_inputstring
file://返回值:string
file://created 大同 张和平 dtzhp@yeah.net
//////////////////////////////////////////////////////////////
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

 

0 0

相关博文

我的热门文章

img
取 消
img