Check if string strsource is GB or BIG5 code

xiaoxiao2021-03-06  89

Public Function Checkbig (strsource as string) as boolean

DIM IDX As Long

DIM BYTETEMP () AS BYTE

Checkbig = false

For idx = 1 to len (strsource)

ByTetemp = StrConv (MID (strsource, idx, 1), vbfromunicode)

IF ubound (byteTemp)> 0 THEN

IF (ByteTemp (1)> = 64) and (byteTemp (1) <= 126) THEN

Checkbig = TRUE

EXIT for

END IF

END IF

Next idx

END FUNCTION

转载请注明原文地址:https://www.9cbs.com/read-122466.html

New Post(0)