vba - 在 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

有没有更快的方法？

标签： vbastring

Answer 1

您可以使用

Dim aoC() as Byte
aoC="abcd"

这将为您提供字符串中每个字符的 16 位值的低、高字节的字节数组。对于 ascii 值，高字节为 0。因此，要仅迭代 aoC 的低字节，您将使用类似

For myIndex = 0 to ubound(aoC) step 2

使用本地窗口查看原始数据。