汉字转拼音（pb）

Function f_get_py (string as_data) returns string
long ll_pos
string ls_py
IF Len(as_data) <> LenW(as_data) * 2 THEN
// MessageBox("提示","包含有非汉字字符！",StopSign!)
  RETURN ""
END IF
FOR ll_pos = 1 TO Len(as_data) STEP 2
  CHOOSE CASE Mid(as_data,ll_pos,2)
     CASE is >= '匝';ls_py += "Z"
     CASE is >= '丫';ls_py += "Y"
     CASE is >= '夕';ls_py += "X"
     CASE is >= '哇';ls_py += "W"
     CASE is >= '他';ls_py += "T"
     CASE is >= '撒';ls_py += "S"
     CASE is >= '然';ls_py += "R"
     CASE is >= '七';ls_py += "Q"
     CASE is >= '趴';ls_py += "P"
     CASE is >= '哦';ls_py += "O"
     CASE is >= '拿';ls_py += "N"
     CASE is >= '妈';ls_py += "M"
     CASE is >= '廓';ls_py += "L"
     CASE is >= '咖';ls_py += "K"
     CASE is >= '讥';ls_py += "J"
     CASE is >= '哈';ls_py += "H"
     CASE is >= '嘎';ls_py += "G"
     CASE is >= '发';ls_py += "F"
     CASE is >= '讹';ls_py += "E"
     CASE is >= '搭';ls_py += "D"
     CASE is >= '擦';ls_py += "C"
     CASE is >= '八';ls_py += "B"
     CASE is >= '阿';ls_py += "A"
  END CHOOSE
NEXT
RETURN ls_py