请问能将字符串直接赋值给Byte数组吗？

jxc1999 2003-12-03 10:43:25

同上，谢谢！

...全文

221 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhufei 2003-12-04

打赏
举报

to eports(飘零风)
如果我想把字符串转成十六进制表示,是不是跟你上面的方法一样,先把一个字符串赋值给Byte数组,然后把Byte数组里面的每一个元素转换成十六进制.
还望各位指教

northwolves 2003-12-03

打赏
举报

Private Sub Command1_Click()
Dim x As String
Dim y As String
Dim b() As Byte
x = "中国"
b = x
MsgBox UBound(b)

y = b
MsgBox y = x
End Sub

飘零风 2003-12-03

打赏
举报

可以用API函数实现：

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()
Dim tmpstr As String
tmpstr = "TestCopyString"
Dim i As Long
Dim a() As Byte
i = LenB(StrConv(tmpstr, vbFromUnicode))
ReDim a(i - 1)
CopyMemory a(0), ByVal tmpstr, i
For i = 0 To UBound(a)
Debug.Print a(i)
Next
End Sub