高手帮个忙，一个string数组处理一下后赋值给byte型数组

Question

Dim Str as string
Dim Buffer() as string
Dim Buffer1() as byte
Str = "aaa,bbb,ccc,ddd,eee,fff"
Buffer = Split(str,",")
for i = LBound(Buffer) to UBound(Buffer)
    Buffer1(i) = CLng("&H" & Buffer(i))   '这里就提示下标越界
Next有什么办法可以将string类型的数组转换成和他同样数组元素的byte型数组呢。
请高人指教。

Answer 1

你得先初始化数组，但你的赋值也是有问题的，&h0aaa 应该分两个字节存的

Answer 2

Byte 数据类型 范围在 0 到 255 之间.

Answer 3

Dim Str As String
    Dim Buffer() As String
    Dim Buffer1() As Byte
    Str = "aaa,bbb,ccc,ddd,eee,fff"
    Buffer = Split(Str, ",")
    ReDim Buffer1(UBound(Buffer) + 1, 2) As Byte             '重定义数组
    For i = LBound(Buffer) To UBound(Buffer)
        Buffer1(i, 0) = CLng("&H" & Left(Buffer(i), 2))     '高位
        Buffer1(i, 1) = CLng("&H" & Right(Buffer(i), 1))    '低位
    Next

Answer 4

实际上Str里每个,分割的内容是不超过FF的字符串，所以不存在范围的问题，我这里是提出问题，所以忘记这点了。我去试一下。