http://hi.baidu.com/xa87/blog/item/5fc9df0abe10e91d94ca6b3a.html
Dim Data() As Byte '原结果，字节型 Dim i As Long '循环变量 Dim a As String '转换后的结果 Dim cn As Boolean '是否为中文，中文占两字节，当前字节和下一字节 ReDim Data(0) open "c:/temp/b.txt" for binary access read as #1 '以二进制方式打开该文件 For i = 1 To 20 Step 1 ReDim Preserve Data(UBound(Data) + 1) Get #1,i,Data(i) If Data(i) >= 127 Then '汉字 If cn = True Then a = a & Chr("&H" & Hex(Data(i - 1)) & Hex(Data(i))) '将前后两字节转换为汉字 cn = False Else cn = True End If Else a = a & Chr(Data(i )) End If Next i MsgBox a,4096 '输出转换后的结果
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
