Holen Sie sich den Kapitalpinyin -Buchstaben des ersten Charakters des chinesischen Satzes
<%
'*********************************
'Funktion: getPychar (char)
Argumente: Zeichen, jeder chinesische Charakter oder Satz
'Autor: Alixi
'Datum: 2007/7/15
'Beschreibung: Holen Sie sich den Kapitalpinyin -Buchstaben des ersten Charakters des chinesischen Satzes
'Beispiel: Getpychar ("Willkommen bei Alixi")
'*********************************
FunctionGetpychar (char)
Dimtmp
TMP = 65536+ASC (char)
If (tmp> = 45217andtmp <= 45252) dann
getPychar = "a"
Elseif (tmp> = 45253andtmp <= 45760) dann
getPychar = "B"
Elseif (tmp> = 45761andtmp <= 46317) dann
getPychar = "C"
Elseif (tmp> = 46318andtmp <= 46825) dann
getPychar = "D"
Elseif (tmp> = 46826andtmp <= 47009) dann
getPychar = "e"
Elseif (tmp> = 47010andtmp <= 47296) dann
getPychar = "f"
Elseif (tmp> = 47297andtmp <= 47613) dann
getPychar = "g"
Elseif (tmp> = 47614andtmp <= 48118) dann
getPychar = "H"
Elseif (tmp> = 48119andtmp <= 49061) dann
getPychar = "J"
Elseif (tmp> = 49062andtmp <= 49323) dann
getPychar = "k"
Elseif (tmp> = 49324andtmp <= 49895) dann
getPychar = "L"
Elseif (tmp> = 49896andtmp <= 50370) dann
getPychar = "m"
Elseif (tmp> = 50371andtmp <= 50613) dann
getPychar = "n"
Elseif (tmp> = 50614andtmp <= 50621) dann
getPychar = "o"
Elseif (tmp> = 50622andtmp <= 50905) dann
getPychar = "P"
Elseif (tmp> = 50906andtmp <= 51386) dann
getPychar = "q"
Elseif (tmp> = 51387andtmp <= 51445) dann
getPychar = "r"
Elseif (tmp> = 51446andtmp <= 52217) dann
getPychar = "S"
Elseif (tmp> = 52218andtmp <= 52697) dann
getPychar = "T"
Elseif (tmp> = 52698andtmp <= 52979) dann
getPychar = "w"
Elseif (tmp> = 52980andtmp <= 53640) dann
getPychar = "x"
Elseif (tmp> = 53689andtmp <= 54480) dann
getPychar = "y"
Elseif (tmp> = 54481andtmp <= 62289) dann
getPychar = "z"
Sonst ist es nicht chinesisch, es wird nicht verarbeitet