ITPub博客

首页 > IT职业 > IT生活 > 返回字串的拼音首字母 (转)

返回字串的拼音首字母 (转)

原创 IT生活 作者:amyz 时间:2007-10-09 09:29:17 0 删除 编辑
返回字串的拼音首字母 (转)[@more@]

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

 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-975362/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7339239