احصل على الشخصيات الصينية الأولى في الشخصيات

复制代码代码如下:

<٪

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

'： AZ ؛ 123 ؛ ###

PublicFunctiongetSpellchar (STR)

DIMTMP

getSpellchar = "@"

TMP = 65536+ASC (STR)

if (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

andTMP <= 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) أو