//查找每个汉字在哪两个界限以内,由此确定其拼音码
li_len = len(as_text)
for i = 1 to li_len
If Asc(mid(as_text , i , 1))<128 then
ls_pym = ls_pym+mid(as_text , i , 1)
else
ls_char = mid(as_text , i , 2)
choose case ls_char
case "属"
ls_pym = ls_pym + "S"
case "重"
if mid(as_text , i + 2 , 2) = "庆" then
ls_pym = ls_pym + "C"
else
ls_pym = ls_pym + "Z"
end if
case "藏"
if mid(as_text , i - 2 , 2) = "西" or mid(as_text , i + 2 , 2) = "族" then
ls_pym = ls_pym + "Z"
else
ls_pym = ls_pym + "C"
end if
case "秘"
if mid(as_text , i + 2 , 2) = "鲁" then
ls_pym = ls_pym + "B"
else
ls_pym = ls_pym + "M"
end if
case else
if ls_char < "吖" or ls_char > "做" then
ls_pym = ls_pym + mid(as_text , i, 2)
i ++
continue
end if
li_py = 23
do while ls_hz[li_py] > ls_char
li_py --
loop
ls_pym = ls_pym + ls_py[li_py]
end choose
i ++
end if
next