Получите столичную букву Пиньина первого персонажа китайского предложения
<%
'*********************************
'Функция: getpychar (char)
'Аргументы: char, любой китайский исадник или предложение
Автор: Аликси
Дата: 2007/7/15
'Описание: Получите столичную букву Pinyin Letter первого персонажа китайского предложения
Пример: getpychar ("Добро пожаловать в Аликси")
'*********************************
Functiongetpychar (char)
Dimtmp
tmp = 65536+asc (char)
If (tmp> = 45217Andtmp <= 45252)
getpychar = "a"
Elseif (TMP> = 452533Andtmp <= 45760) тогда
getpychar = "b"
Elseif (tmp> = 45761Andtmp <= 46317) тогда
getpychar = "c"
Elseif (tmp> = 46318Andtmp <= 46825) тогда
getpychar = "d"
Elseif (tmp> = 46826 и потом
getpychar = "e"
Elseif (tmp> = 4701010andtmp <= 47296) тогда
getpychar = "f"
Elseif (tmp> = 47297Andtmp <= 47613) тогда
getpychar = "g"
Elseif (tmp> = 47614Andtmp <= 48118) тогда
getpychar = "h"
Elseif (tmp> = 481199andtmp <= 49061) тогда
getpychar = "j"
Elseif (tmp> = 49062Andtmp <= 49323) тогда
getpychar = "k"
Elseif (tmp> = 49324Andtmp <= 49895) тогда
getpychar = "l"
Elseif (tmp> = 49896 и то же самое
getpychar = "m"
Elseif (tmp> = 50371Andtmp <= 50613) тогда
getpychar = "n"
Elseif (tmp> = 50614Andtmp <= 50621) тогда
getpychar = "o"
Elseif (tmp> = 506222andtmp <= 50905) тогда
getpychar = "p"
Elseif (tmp> = 50906Andtmp <= 51386) тогда
getpychar = "q"
Elseif (tmp> = 51387Andtmp <= 51445) тогда
getpychar = "r"
Elseif (tmp> = 514466Andtmp <= 52217) тогда
getpychar = "s"
Elseif (tmp> = 52218Andtmp <= 52697) тогда
getpychar = "t"
Elseif (tmp> = 52698 и тогда
getpychar = "w"
Elseif (tmp> = 52980 и потом <= 53640)
getpychar = "x"
Elseif (tmp> = 53689Andtmp <= 54480) тогда
getpychar = "y"
Elseif (tmp> = 54481Andtmp <= 62289) тогда
getpychar = "z"
Еще не китайский, он не будет обработан