在vbs中怎样把字符串转换成十六进制

Posted 2023-03-19

参考技术A VB字符串可通过使用StrConv 函数，将字符串由 Unicode 转成系统的缺省码页后，再获取每个字节的十六进制字符后拼接起来。
StrConv 函数，返回按指定类型转换的 Variant (String)。

实现代码：

1
2
3
4
5
6
7
8
9
10
11
12

Private Sub Command1_Click()
Dim strSj As String
Dim strHexSj As String
Dim i As Long
Dim bytSj() As Byte
strSj = "123ABC十六进制"
bytSj = StrConv(strSj, vbFromUnicode)
For i = 0 To UBound(bytSj)
strHexSj = strHexSj & Right("0" & Hex(bytSj(i)), 2)
Next
Debug.Print strHexSj
End Sub

vbFromUnicode，将字符串由 Unicode 转成系统的缺省码页。
既可以转换单字节字符也可转换双字节字符。