返回字串的拼音首字母

//
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"