Kar*_*son 22
Matthew回答了如何转换为ANSI,但如果您希望生成的字节数组仍然代表原始的Unicode字符串,您只需直接分配它:
Public Sub Main()
Dim b() As Byte
Dim s As String
s = "Whatever"
b = s 'Assign Unicode string to bytes.'
s = b 'Works in reverse, too!'
Debug.Print s
End Sub
Run Code Online (Sandbox Code Playgroud)
这里的所有都是它的.最终得到一个16元素的Byte数组,每个连续的对描述一个Unicode字符.