复制代码代码如下:
-
'获取字符中中文首字字符
'返回: Az; 123; ###
PublicFunctionGetSpellchar (STR)
dimtmp
getSpellchar = "@"
TMP = 65536+ASC (STR)
ถ้า (tmp> = 45217andtmp <= 45252) หรือ (tmp = 65601) หรือ (tmp = 65633) หรือ (tmp = 37083)
getSpellchar = "A1"
elseif (tmp> = 45253andtmp <= 45760) หรือ (tmp = 65602) หรือ (tmp = 65634) หรือ (tmp = 39658)
getSpellchar = "b1"
elseif (tmp> = 45761andtmp <= 46317) หรือ (tmp = 65603) หรือ (tmp = 65635) หรือ (tmp = 33405)
getSpellchar = "c1"
elseif (tmp> = 46318andtmp <= 46930) หรือ (tmp = 61884) หรือ (tmp = 63468) หรือ (tmp = 65604) หรือ (tmp> = 36820)
และ tmp <= 38524) หรือ (tmp = 65636) แล้ว
getSpellchar = "d1"
elseif (tmp> = 46931andtmp <= 47009) หรือ (tmp> = 46827andtmp <= 46842) หรือ (tmp = 65605) หรือ (tmp = 65637)
หรือ (tmp = 61513) จากนั้น 468274683346842
getSpellchar = "e1"
elseif (tmp> = 47010andtmp <= 47296) หรือ (tmp = 65606) หรือ (tmp = 65638) หรือ (tmp = 61320) หรือ (tmp = 63568) หรือ
(tmp = 36281) แล้ว
getSpellchar = "f1"
elseif (tmp> = 47297andtmp <= 47613) หรือ (tmp = 65607) หรือ (tmp = 65639) หรือ (tmp = 35949) หรือ (tmp = 36089) หรือ