Get the first letters of Chinese characters with custom functions
2003: 6: 13 Karry
[Script language = vbscript]
'' '' '' '' '' '' '' '' '' '
'Provider: Little White
'contact method:
'E-mail: xiaobai@17560.net
'Welcome everyone to test
'Issues discovered at chenjf users
'Xiaobai made a modification
'In addition, the reply to Liu Weiqiang netizen is: This function can only get it ..? Hehe
'If you have an incorrect place, please give it or help.
'Thank you
'' '' '' '' '' '' '' '' '' '' '' '' '
Function getpychar (char)
TMP = 65536 ASC (char)
IF (TMP> = 45217 and TMP <= 45252) THEN
getpychar = "a"
Elseif (TMP> = 45253 and TMP <= 45760) THEN
getpychar = "b"
Elseif (TMP> = 45761 and TMP <= 46317) THEN
getpychar = "c"
Elseif (TMP> = 46318 and TMP <= 46825) THEN
getpychar = "d"
Elseif (TMP> = 46826 and TMP <= 47009) THEN
getpychar = "e"
Elseif (TMP> = 47010 and TMP <= 47296) THEN
getpychar = "f"
Elseif (TMP> = 47297 and TMP <= 47613) THEN
getpychar = "g"
Elseif (TMP> = 47614 and TMP <= 48118) THEN
getpychar = "h"
Elseif (TMP> = 48119 and TMP <= 49061) THEN
getpychar = "j"
Elseif (TMP> = 49062 and TMP <= 49323) THEN
getpychar = "k"
Elseif (TMP> = 49324 and TMP <= 49895) THEN
getpychar = "l"
Elseif (TMP> = 49896 and TMP <= 50370) THEN
getpychar = "m"
Elseif (TMP> = 50371 and TMP <= 50613) THEN
getpychar = "n"
Elseif (TMP> = 50614 and TMP <= 50621) THEN
getpychar = "o"
Elseif (TMP> = 50622 and TMP <= 50905) THENGETPYCHAR = "P"
Elseif (TMP> = 50906 and TMP <= 51386) THEN
getpychar = "q"
Elseif (TMP> = 51387 and TMP <= 51445) THEN
getpychar = "r"
Elseif (TMP> = 51446 and TMP <= 52217) THEN
getpychar = "s"
Elseif (TMP> = 52218 and TMP <= 52697) THEN
getpychar = "t"
Elseif (TMP> = 52698 and TMP <= 52979) THEN
getpychar = "w"
Elseif (TMP> = 52980 and TMP <= 53640) THEN
getpychar = "x"
Elseif (TMP> = 53689 and TMP <= 54480) THEN
getpychar = "y"
Elseif (TMP> = 54481 and TMP <= 62289) THEN
getpychar = "z"
Else 'If not Chinese, no processing
getpychar = char
END IF
END FUNCTION
Function GetPy (STR)
For i = 1 to Len (STR)
getpy = getpy & getpychar (MID (STR, I, 1))
NEXT
END FUNCTION
D = "only"
Msgbox getpy (d)
[/ Script]
