汉字区位码查询
来源:互联网 发布:影视金器软件下载 编辑:程序博客网 时间:2024/04/29 18:05
最近有个哥们请我帮他们单位整一个区位码查询的东东。弄了一下,放在这里,请有用的着的哥们参考。有不妥的地方,请大家多提意见。
原理:
////汉字的区位码算法:
////((汉字的第一个字节-0xa1)*94+(汉字的第二个字节-0xa1))*32
////
////区码=汉字的机器码高字节-A0
////位码=汉字的机器码的低字节-A0
////汉字文本文件读出的就是汉字的机器吗(用C语言或VB都能实现),两个字节
////代表一个字的机器吗,高位在前,低位在后
////如"啊"的区位码为1601,机器吗为B
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;
}
}
}
}
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>
- 汉字区位码查询
- 汉字区位码查询
- 汉字区位码查询与算法
- 汉字区位码查询简单实现
- 汉字区位码查询与算法
- 汉字区位码查询与算法
- 汉字区位查询
- 汉字区位码换算
- 汉字区位码
- 汉字区位码
- 汉字字库 区位码
- 汉字的区位码
- 常见汉字区位码
- 获取汉字的区位码
- java汉字转区位码
- 查汉字的区位码
- 汉字区位码对照表
- 20060427-汉字区位码查询与算法——microsoft visual studio 2005系列
- 确保文本框输入值为数值的代码
- 取资源文件中的内容!
- 计算任意三边三角形的面积的算法
- 利用onmousewheel事件控制圖像大小
- c#发送需要smtp认证的邮件
- 汉字区位码查询
- 3-18无聊写写。
- 使用jdom操作xml数据,生成含Jtree的applet
- 在这安个家
- CMM关键过程区域和四种用法
- Socket监听在不同操作系统下的差异
- 在VC中使用GDI+步骤
- 四成IT工作者缺乏职业安全感 对前景没信心 [zt]
- 写一个试试