//////////////////////////////////////////////////////////////
数名：gf_getfirstletter(string)
能：返回字串的拼音首字母,支持混合字符串(可以包含非汉字)
数：as_inputstring
回值：string
file://created 大同 张和平 to:dtzhp@yeah.NET">dtzhp@yeah.net
//////////////////////////////////////////////////////////////
long i
string ls_ch,ls_returnStr
For i=1 to Len(as_InputString)  次处理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  理一级汉字
  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  理一级汉字
// select py into :ls_py from piyin where hanzi = :ls_ch;
   End if
//  i = i+1  不用此句，而PB65要用， 指向下一个汉字

Next 
RETURN ls_returnStr