获取字符串的每个中文字符拼音首字母的ASP函数

来源：互联网发布：linux搜狗输入法编辑：程序博客网时间：2024/06/10 19:24

本函数是获取某个字符串中的每个中文字符的拼音首字母，如果不是中文字符，则用原字符替换.这种函数的功能可用于多方面。比如在制作搜索功能时，输入拼音首字母即可查询相关的关键字等。

下面先发一下函数：

function oflink_getszm2(char)     dim tmp      tmp=65536+asc(char)      if(tmp>=45217 and tmp<=45252) then       oflink_getszm2= "A"      elseif(tmp>=45253 and tmp<=45760) then      oflink_getszm2= "B"      elseif(tmp>=45761 and tmp<=46317) then      oflink_getszm2= "C"      elseif(tmp>=46318 and tmp<=46825) then      oflink_getszm2= "D"      elseif(tmp>=46826 and tmp<=47009) then       oflink_getszm2= "E"      elseif(tmp>=47010 and tmp<=47296) then       oflink_getszm2= "F"      elseif(tmp>=47297 and tmp<=47613) then       oflink_getszm2= "G"      elseif(tmp>=47614 and tmp<=48118) then      oflink_getszm2= "H"      elseif(tmp>=48119 and tmp<=49061) then      oflink_getszm2= "J"      elseif(tmp>=49062 and tmp<=49323) then       oflink_getszm2= "K"      elseif(tmp>=49324 and tmp<=49895) then       oflink_getszm2= "L"      elseif(tmp>=49896 and tmp<=50370) then       oflink_getszm2= "M"      elseif(tmp>=50371 and tmp<=50613) then       oflink_getszm2= "N"      elseif(tmp>=50614 and tmp<=50621) then       oflink_getszm2= "O"      'www.361du.net      elseif(tmp>=50622 and tmp<=50905) then      oflink_getszm2= "P"      elseif(tmp>=50906 and tmp<=51386) then       oflink_getszm2= "Q"      elseif(tmp>=51387 and tmp<=51445) then       oflink_getszm2= "R"      elseif(tmp>=51446 and tmp<=52217) then       oflink_getszm2= "S"      elseif(tmp>=52218 and tmp<=52697) then       oflink_getszm2= "T"      elseif(tmp>=52698 and tmp<=52979) then       oflink_getszm2= "W"      elseif(tmp>=52980 and tmp<=53640) then       oflink_getszm2= "X"      elseif(tmp>=53689 and tmp<=54480) then       oflink_getszm2= "Y"      elseif(tmp>=54481 and tmp<=62289) then      oflink_getszm2= "Z"      else '如果不是中文，则不处理      oflink_getszm2=char      end if      end function      function getpy(str)      for i=1 to len(str)      getpy=getpy&oflink_getszm2(mid(str,i,1))      next  end function   function oflink_getszm(str)  dim i  for i=1 to len(str)  oflink_getszm=oflink_getszm&oflink_getszm2(mid(str,i,1))  next end function

0 0