รับอักขระแรกของจีนในตัวละคร

复制代码代码如下:

-

'获取字符中中文首字字符

'返回： 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) หรือ