vb 如何在现有byte数组前端添加数据（数组里有数据），不想逐一读取，太影响速度

Question

如题所述

Answer 1

如果我告诉你，字节数组可以像字符串一样进行拼接，而且可以把字符串直接赋值给字节数组，你会不会觉得很神奇或者不可思议？当然，由于VB的字符串使用Unicode编码，而字节数组要求ANSI编码，所以要把编码转换一下才行。下面就是个把两个字节数组合为一个的例子：

Private Sub Command1_Click()
Dim b1() As Byte, b2() As Byte, b3() As Byte, i As Integer
ReDim b1(4)
Print "第1个字节数组：";
For i = 0 To 4
    b1(i) = 16 + i
    Print Hex(b1(i)); " ";
Next
Print
ReDim b2(7)
Print "第2个字节数组：";
For i = 0 To 7
    b2(i) = 160 + i
    Print Hex(b2(i)); " ";
Next
Print
b3 = StrConv(StrConv(b1, vbUnicode) & StrConv(b2, vbUnicode), vbFromUnicode)
Print "合并后的字节数组：";
For i = 0 To UBound(b3)
    Print Hex(b3(i)); " ";
Next
End Sub

b3 = StrConv(StrConv(b1, vbUnicode) & StrConv(b2, vbUnicode), vbFromUnicode)

这句我单独解释一下：这是先把两个字节数组b1和b2分别转为Unicode编码，它们就变成了VB的字符串（真的哦！），然后把两个字符串拼接成一个字符串，再转为ANSI编码，最后赋值给一个动态字节数组b3，OK搞定！