Obtenez la lettre Capital Pinyin du premier caractère de la phrase chinoise
<%
'*******************************
'Fonction: getpychar (char)
'Arguments: char, tout caractère ou phrase chinois
'Auteur: Alixi
'Date: 2007/7/15
'Description: Obtenez la lettre de la capitale Pinyin du premier caractère de la phrase chinoise
'Exemple: gettychar ("Bienvenue à Alixi")
'*******************************
Functiongetpychar (char)
Dimtmp
TMP = 65536 + ASC (char)
If (tmp> = 45217andtmp <= 45252) puis
getpychar = "a"
Elseif (tmp> = 45253andtmp <= 45760) puis
getpychar = "b"
Elseif (tmp> = 45761andtmp <= 46317) puis
getpychar = "c"
Elseif (tmp> = 46318andtmp <= 46825) puis
getpychar = "d"
Elseif (tmp> = 46826andtmp <= 47009) puis
getpychar = "e"
Elseif (tmp> = 47010andtmp <= 47296) puis
getpychar = "f"
Elseif (tmp> = 47297andtmp <= 47613) puis
getpychar = "g"
Elseif (tmp> = 47614andtmp <= 48118) puis
getpychar = "h"
Elseif (tmp> = 48119andtmp <= 49061) puis
getpychar = "j"
Elseif (tmp> = 49062andtmp <= 49323) puis
getpychar = "k"
Elseif (tmp> = 49324andtmp <= 49895) puis
getpychar = "l"
Elseif (tmp> = 49896andtmp <= 50370) puis
getpychar = "m"
Elseif (tmp> = 50371andtmp <= 50613) puis
getpychar = "n"
Elseif (tmp> = 50614andtmp <= 50621) puis
getpychar = "o"
Elseif (tmp> = 50622andtmp <= 50905) puis
getpychar = "p"
Elseif (tmp> = 50906andtmp <= 51386) puis
getpychar = "q"
Elseif (tmp> = 51387andtmp <= 51445) puis
getpychar = "r"
Elseif (tmp> = 51446andtmp <= 52217) puis
getpychar = "s"
Elseif (tmp> = 52218andtmp <= 52697) puis
getpychar = "t"
Elseif (tmp> = 52698andtmp <= 52979) puis
getpychar = "w"
Elseif (tmp> = 52980andtmp <= 53640) puis
getpychar = "x"
Elseif (tmp> = 53689andtmp <= 54480) puis
getpychar = "y"
Elseif (tmp> = 54481andtmp <= 62289) puis
getpychar = "z"
Sinon ce n'est pas chinois, il ne sera pas traité