汉字区位码查询

最近有个哥们请我帮他们单位整一个区位码查询的东东。弄了一下，放在这里，请有用的着的哥们参考。有不妥的地方，请大家多提意见。

原理：

汉字的区位码算法：

((汉字的第一个字节-0xa1)*94+(汉字的第二个字节-0xa1))*32

区码=汉字的机器码高字节-A0

位码=汉字的机器码的低字节-A0

汉字文本文件读出的就是汉字的机器吗(用C语言或VB都能实现),两个字节

代表一个字的机器吗,高位在前,低位在后

如"啊"的区位码为1601,机器吗为B 0A 1(16进制)

c# 版本

public string TextToQwm(string character)

         {

              string coding = "";

              int i1=0,i2=0,i3=0;

              for (int i = 0; i<character.Length; i++ )

              {

                   byte[] bytes = System.Text.Encoding.Default.GetBytes(character.Substring(i,1)); //取出二进制编码内容

                 

                  

                   i1 = (short)(bytes[0] );

                   try

                   {

                       i2 = (short)(bytes[1] );

                       i3=1;

                   }

                   catch(Exception ex)

                   {

                       i2=65536; i3=-1;

                      

                   }

                   finally

                   {

                   int chrasc=i1*256+i2-65536;

                   if (chrasc>0 && chrasc<160)

                   {

                        TextBox2.Text="只能能输入汉字！！";

                   }

                   else

                   {

                       if(i3==-1)

                       {

                            TextBox2.Text="只能能输入汉字！！";

                       }

                       else

                       {

                            string lowCode =System.Convert.ToString(Math.Abs(Convert.ToInt32(System.Convert.ToString(bytes[0]))-160));//取出低字节编码内容（两位16进制）

                          

                            if (lowCode.Length == 1)

                                 lowCode = "0" + lowCode;

                            string hightCode = System.Convert.ToString( Math.Abs(Convert.ToInt32(System.Convert.ToString(bytes[1]))-160));//取出高字节编码内容（两位16进制）

                           

                            if (hightCode.Length == 1)

                                 hightCode = "0" + hightCode;

 

                                 coding +=character.Substring(i,1) + (lowCode + hightCode)    ;// 加入到字符串中,

                       }

                       }

                   }

              }

              return coding;

         }

vbscript 版本

<SCRIPT LANGUAGE="VBScript">
function genqw()
str=f1.txt1.value
newstr=""
for i=1 to len(str)
newstr=newstr&getqw(mid(str,i,1))
next
f1.txt2.value=newstr
end function

function getqw(ch)
casc=asc(ch)
if casc<0 then casc=casc+65535+1
if casc>255 then
b2=right("0"&((casc and 255)-160),2)
b1=right("0"&(int(casc/256)-160),2)
getqw=ch & " "&b1&b2 &" "
else
getqw=ch
end if
end function

</SCRIPT><script language="VBScript" type="text/javascript"> function genqw() str=f1.txt1.value newstr="" for i=1 to len(str) newstr=newstr&getqw(mid(str,i,1)) next f1.txt2.value=newstr end function function getqw(ch) casc=asc(ch) if casc<0 then casc=casc+65535+1 if casc>255 then b2=right("0"&((casc and 255)-160),2) b1=right("0"&(int(casc/256)-160),2) getqw=ch & " "&b1&b2 &" " else getqw=ch end if end function </script><script language="VBScript" type="text/javascript"> function genqw() str=f1.txt1.value newstr="" for i=1 to len(str) newstr=newstr&getqw(mid(str,i,1)) next f1.txt2.value=newstr end function function getqw(ch) casc=asc(ch) if casc<0 then casc=casc+65535+1 if casc>255 then b2=right("0"&((casc and 255)-160),2) b1=right("0"&(int(casc/256)-160),2) getqw=ch & " "&b1&b2 &" " else getqw=ch end if end function </script>