锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net汉字2位 vb怎么输出汉字( 二 )

IT技术文件


4、vbUnicode和vbFromUnicode含义
有了上面叙说，这两个参数的含义就好理解了，就是Unicode编码和ANSI编码的互换，例如：
textline= StrConv(plaintext,vbUnicode)
这儿textline是以字符串变量，plaintext是以字节变量保存着ANSI模式的字符内容，例如，“2”这个字符，一个字节 ， 值是50 ， 16进制是32 ， “皖”这个汉字，两个字节，值是205和238，同样是这两个字符，作为字符串在内存中都是两个字节，例如，“2”这个字符在内存中16进制值是0032 。当VB打开一个文件读取文本内容是，实际上自动进行了上述转换 。
plaintext = StrConv(textline, vbFromUnicode)
这儿进行相反的转换，就是将Unicode字符串转换成ANSI模式，转换结果必须以字节方式保存 。
5、vbUnicode和vbFromUnicode用途
由于字符在内存中的内容和文件中的内容不一致 ， 所以必须要用到这种转换 ， 特别是系统间进行数据交换、数据加密和解密，如果不做转换可能导致得不到正确的结果 。
比如，我们对一个文本文件进行加密，这个文件是ANSI格式存储的，当从文件内容读入一行到内存的时候，自动将内容转换成了Unicode格式，如果这时候对其做加密运算，其结果和文件中字符串加密结果是不一样的，这样的结果如果让别人解密将无法得到正确的结果 。如果对读入内存的内容先做个转换（textline是读入内容）：
plaintext = StrConv(textline, vbFromUnicode)
再对plaintext做加密，其结果就一样了 。
举例（按行做加密和解密运算，算法是AES+Base64）：
[vb] view plain copy
Status = "Encrypting File"
Open FileName For Input As #1' 打开输入文件 。
Open FileName2 For Output As #2' 打开输出文件 。
Do While Not EOF(1)
Line Input #1, TextLine
plaintext = StrConv(TextLine, vbFromUnicode)
Status = "Encrypting Data"
m_Rijndael.SetCipherKey pass, KeyBits
m_Rijndael.ArrayEncrypt plaintext, ciphertext, 0
Status = "Converting Text to Base64"
TextLine = Base64Encode(ciphertext)
Status = ""
Print #2, TextLine' 将字符串写入文件 。
Loop
Close
[vb] view plain copy
Status = "Decrypting File"
Open FileName For Input As #1' 打开输入文件 。
Open FileName2 For Output As #2' 打开输出文件 。
Do While Not EOF(1)
Line Input #1, TextLine
Status = "Converting Base64 to Text"
ciphertext = Base64Decode(TextLine)
Status = "Decrypting Data"
m_Rijndael.SetCipherKey pass, KeyBits
If m_Rijndael.ArrayDecrypt(plaintext, ciphertext, 0)0 Then
Status = ""
Exit Sub
End If
TextLine = StrConv(plaintext, vbUnicode)
For i = 0 To UBound(plaintext)
Debug.Print plaintext(i)
Next i
k = InStr(1, TextLine, Chr(0), vbBinaryCompare)
If k0 Then TextLine = Left(TextLine, k - 1)'截掉加密时补的0
MsgBox TextLine"end"
Status = ""
Print #2, TextLine' 将字符串写入文件 。
Loop
Close
VB.net的mid函数如何按照“字节数”来截?。?而不用“字符数” ， 也就是汉字、全角符号要算2个字节VB内部采用Unicode编码，在这种编码格式下，任何字符（包括半角的字母、数字、符号以及全角的汉字、符号）都是占用两个字节的 。因此，Len("1111徐")的返回值是5 ， 表示5个字符，而LenB("1111徐")的返回值是10，表示占用10个字节 。
要想按ANSI编码格式来获取字符串的字节数，必须这样：
LenB(StrConv("1111徐", vbFromUnicode))
要注意哦，虽然返回值是6，但这个数与这个字符串在内存中的实际占用字节数是不相符的哦！
VB.net有什么函数能统计“汉字、全角字符”这些占用两个字节的数量？VB使用Unicode编码vb.net汉字2位，任何字符（包括半角vb.net汉字2位的字母、数字、符号及全角的汉字、符号等）都是占用两个字节的 。

推荐阅读


上一篇：jquery监听css值，jquery监听窗口大小

下一篇：电脑怎么调路由器，电脑怎么调路由器设置wifi