在ASCii中拆分字符串

Question

我想将许多字符串拆分成其ASCII值。

Dim aoC(99), i As Integer    
Dim W As String

W="abcd"
For i = 1 To Len(W)
    aoC(i) = Asc(Mid(W, i, 1))
Next

有没有更快的方法？

Answer 1

您可以使用

Dim aoC() as Byte
aoC="abcd"

这将为字符串中每个字符的16位值提供一个由低位字节和高位字节组成的字节数组。对于ascii值，高位字节为0。因此，要只迭代低位字节的aoC，您可以使用如下内容

For myIndex = 0 to ubound(aoC) step 2

使用“局部变量”窗口查看原始数据。