中文字符没有Ascii码!
只有 区位码(GB-2312)、GBK码、UniCode码VB用的是UniCode!
UniCode码下无汉字内码(只有汉字编号)
用StrConv转换字符串为ANSI!
Dim TempBytes() as ByteTempBytes=StrConv(字符串, vbFormUniCode)TempBytes(0)-160:第一个汉字的区码
TempBytes(1)-160:第一个汉字的位码
以此类推
注意:UniCode包含GBK,汉字比GB-2312要多些,所以有的字符没有区位码!
只有 区位码(GB-2312)、GBK码、UniCode码VB用的是UniCode!
UniCode码下无汉字内码(只有汉字编号)
用StrConv转换字符串为ANSI!
Dim TempBytes() as ByteTempBytes=StrConv(字符串, vbFormUniCode)TempBytes(0)-160:第一个汉字的区码
TempBytes(1)-160:第一个汉字的位码
以此类推
注意:UniCode包含GBK,汉字比GB-2312要多些,所以有的字符没有区位码!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货