asp 取得中文句子头一个字的大写拼音字母的函数

时间:2022-09-18 12:48:27

取得中文句子头一个字的大写拼音字母

  1. <%  
  2. '******************************  
  3. '函数:getpychar(char)  
  4. '参数:char,任意中文字符或句子  
  5. '作者:阿里西西  
  6. '日期:2007/7/15  
  7. '描述:取得中文句子头一个字的大写拼音字母  
  8. '示例:getpychar("欢迎访问阿里西西")  
  9. '******************************  
  10. Function getpychar(char)  
  11.  Dim tmp  
  12.  tmp=65536+Asc(char)   
  13.  If(tmp>=45217 And tmp<=45252) Then   
  14.  getpychar= "A"   
  15.  ElseIF(tmp>=45253 And tmp<=45760) Then   
  16.  getpychar= "B"   
  17.  ElseIF(tmp>=45761 And tmp<=46317) Then   
  18.  getpychar= "C"   
  19.  ElseIF(tmp>=46318 And tmp<=46825) Then   
  20.  getpychar= "D"   
  21.  ElseIF(tmp>=46826 And tmp<=47009) Then   
  22.  getpychar= "E"   
  23.  ElseIF(tmp>=47010 And tmp<=47296) Then   
  24.  getpychar= "F"   
  25.  ElseIF(tmp>=47297 And tmp<=47613) Then   
  26.  getpychar= "G"   
  27.  ElseIF(tmp>=47614 And tmp<=48118) Then   
  28.  getpychar= "H"   
  29.  ElseIF(tmp>=48119 And tmp<=49061) Then   
  30.  getpychar= "J"   
  31.  ElseIF(tmp>=49062 And tmp<=49323) Then   
  32.  getpychar= "K"   
  33.  ElseIF(tmp>=49324 And tmp<=49895) Then   
  34.  getpychar= "L"   
  35.  ElseIF(tmp>=49896 And tmp<=50370) Then   
  36.  getpychar= "M"   
  37.  ElseIF(tmp>=50371 And tmp<=50613) Then   
  38.  getpychar= "N"   
  39.  ElseIF(tmp>=50614 And tmp<=50621) Then   
  40.  getpychar= "O"   
  41.  ElseIF(tmp>=50622 And tmp<=50905) Then   
  42.  getpychar= "P"   
  43.  ElseIF(tmp>=50906 And tmp<=51386) Then   
  44.  getpychar= "Q"   
  45.  ElseIF(tmp>=51387 And tmp<=51445) Then   
  46.  getpychar= "R"   
  47.  ElseIF(tmp>=51446 And tmp<=52217) Then   
  48.  getpychar= "S"   
  49.  ElseIF(tmp>=52218 And tmp<=52697) Then   
  50.  getpychar= "T"   
  51.  ElseIF(tmp>=52698 And tmp<=52979) Then   
  52.  getpychar= "W"   
  53.  ElseIF(tmp>=52980 And tmp<=53640) Then   
  54.  getpychar= "X"   
  55.  ElseIF(tmp>=53689 And tmp<=54480) Then   
  56.  getpychar= "Y"   
  57.  ElseIF(tmp>=54481 And tmp<=62289) Then   
  58.  getpychar= "Z"   
  59.  Else '如果不是中文,则不处理   
  60.  getpychar=char   
  61.  End If   
  62. End Function  
  63. %>