中国の文の最初のキャラクターの首都ピンイン文字を入手する
<％
'*******************************
'関数：getPychar（char）
'議論：char、漢字または文
著者：アリクシ
'日付：2007/7/15
'説明：中国の文の最初の性格の首都ピンイン文字を入手する
'例：getpychar（ "Alixiへようこそ"）
'*******************************
functiongetPychar（char）
dimtmp
TMP = 65536+ASC（char）
if（tmp> = 45217andtmp <= 45252）
getPyChar = "A"
elseif（tmp> = 45253andtmp <= 45760）
getpychar = "b"
elseif（tmp> = 45761andtmp <= 46317）
getpychar = "c"
elseif（tmp> = 46318andtmp <= 46825）
getpychar = "d"
elseif（tmp> = 46826andtmp <= 47009）
getpychar = "e"
elseif（tmp> = 47010andtmp <= 47296）
getPyChar = "f"
elseif（tmp> = 47297andtmp <= 47613）
getpychar = "g"
elseif（tmp> = 47614andtmp <= 48118）
getpychar = "h"
elseif（tmp> = 48119andtmp <= 49061）
getpychar = "j"
elseif（tmp> = 49062andtmp <= 49323）
getpychar = "k"
elseif（tmp> = 49324andtmp <= 49895）
getpychar = "l"
elseif（tmp> = 49896andtmp <= 50370）
getpychar = "m"
elseif（tmp> = 50371andtmp <= 50613）
getpychar = "n"
elseif（tmp> = 50614andtmp <= 50621）
getpychar = "o"
elseif（tmp> = 50622andtmp <= 50905）
getPyChar = "P"
elseif（tmp> = 50906andtmp <= 51386）
getPyChar = "Q"
elseif（tmp> = 51387andtmp <= 51445）
getpychar = "r"
elseif（tmp> = 51446andtmp <= 52217）
getpychar = "s"
elseif（tmp> = 52218andtmp <= 52697）
getpychar = "t"
elseif（tmp> = 52698andtmp <= 52979）
getPyChar = "w"
elseif（tmp> = 52980andtmp <= 53640）
getPyChar = "x"
elseif（tmp> = 53689andtmp <= 54480）
getpychar = "y"
elseif（tmp> = 54481andtmp <= 62289）
getpychar = "z"
それ以外は中国人ではない場合、処理されません