string - 如何迭代字符串并检查每个字符的字节值？

Question

我有代码:

cell_val = CStr(Nz(fld.value, ""))
Dim iter As Long
For iter = 0 To Len(cell_val) - 1 Step 1
    If Asc(Mid(cell_val, iter, 1)) > 127 Then
        addlog "Export contains ascii character > 127"
    End If
Next iter

该代码不起作用。有人知道怎么做吗？我根本不知道 VB 或 VBA。

Answer 1

我相信您的问题是在 VBA 字符串索引中从 1 开始而不是从 0 开始。请尝试以下操作:

For iter = 1 To Len(cell_val) 
    If Asc(Mid(cell_val, iter, 1)) > 127 Then
        addlog "Export contains ascii character > 127"
    End If
Next