Obtenha a carta de Pinyin Capital do primeiro personagem da frase chinesa
<%
'***********************************
'Função: getpychar (char)
'Argumentos: char, qualquer caráter ou frase chinesa
'Autor: Alixi
Data: 2007/7/15
'Descrição: Obtenha a carta do Pinyin do primeiro personagem da frase chinesa
'Exemplo: getpychar ("Welcome to Alixi")
'***********************************
FunctionGetPychar (char)
Dimtmp
TMP = 65536+ASC (char)
If (tmp> = 45217Andtmp <= 45252) Então
getpychar = "a"
Elseif (tmp> = 45253andtmp <= 45760) então
getpychar = "b"
Elseif (tmp> = 45761Andtmp <= 46317) então
getpychar = "c"
Elseif (tmp> = 46318andtmp <= 46825) então
getpychar = "D"
Elseif (tmp> = 46826andtmp <= 47009) então
getpychar = "e"
Elseif (tmp> = 47010Andtmp <= 47296) então
getpychar = "f"
Elseif (tmp> = 47297Andtmp <= 47613) então
getpychar = "g"
Elseif (tmp> = 47614andtmp <= 48118) então
getpychar = "h"
Elseif (tmp> = 48119andtmp <= 49061) então
getpychar = "j"
Elseif (tmp> = 49062andtmp <= 49323) então
getpychar = "k"
Elseif (tmp> = 49324andtmp <= 49895) então
getpychar = "l"
Elseif (tmp> = 49896andtmp <= 50370) então
getpychar = "m"
Elseif (tmp> = 50371Andtmp <= 50613) então
getpychar = "n"
Elseif (tmp> = 50614andtmp <= 50621) então
getpychar = "o"
Elseif (tmp> = 50622andtmp <= 50905) então
getpychar = "p"
Elseif (tmp> = 50906andtmp <= 51386) então
getpychar = "q"
Elseif (tmp> = 51387Andtmp <= 51445) então
getpychar = "r"
Elseif (tmp> = 51446andtmp <= 52217) então
getpychar = "s"
Elseif (tmp> = 52218andtmp <= 52697) então
getpychar = "t"
Elseif (tmp> = 52698andtmp <= 52979) então
getpychar = "w"
Elseif (tmp> = 52980andtmp <= 53640) então
getpychar = "x"
Elseif (tmp> = 53689Andtmp <= 54480) então
getpychar = "y"
Elseif (tmp> = 54481 etmp <= 62289) então
getpychar = "z"
Mais se não for chinês, não será processado