十六进制转换中文字符串 如题,请问如何将读取的十六进制转换为中文字符.十六进制字符串:A3A8C4D0D3C3A3A9对应中文字符串: (男用) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Dim x As String Dim xb() As Byte x = "A3A8C4D0D3C3A3A9" ReDim xb(Len(x) \ 2 - 1) Dim i As Long For i = 0 To UBound(xb) xb(i) = Val("&H" & Mid(x, i * 2 + 1, 2)) Next MsgBox StrConv(xb, vbUnicode) 谢谢 fxy_2002(阿勇) 简明易懂,原来有这样的函数可以使用. 將下面Excel表轉化成關係表! 有没有遇到过这样的问题? 【问】如何取到另一个软件中的WebBrowers实例接口? 怎样能将文件夹和文件夹中的文件一起保存到SQL SERVER数据库中? 运行工程时,找不到工程或库? 有对microsoft agent比较了解的专家吗 大哥们,怎么用VB调用CHM文件? 请高手帮忙看下代码! 有没有report builder for vb? VB高手请进:控件大提问?` 控件能不能作为函数或过程的参数? 列表框添加大量项目的问题
Dim xb() As Byte
x = "A3A8C4D0D3C3A3A9"
ReDim xb(Len(x) \ 2 - 1)
Dim i As Long
For i = 0 To UBound(xb)
xb(i) = Val("&H" & Mid(x, i * 2 + 1, 2))
Next
MsgBox StrConv(xb, vbUnicode)
简明易懂,原来有这样的函数可以使用.