首页 / 知识

关于Excel VBA：如何遍历字符串并检查每个字符的字节值？

2023-04-16 10:04:00

How to iterate through a string and check the byte value of every character?

代码我有：

1
2
3
4
5
6
7

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。

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

1
2
3
4
5

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

使用VBA，VB6，您只需声明一个字节数组并为其分配一个字符串值，它将为您转换。然后，您可以像常规数组一样遍历它。

例如

1
2
3
4
5
6
7
8
9

Dim b() as byte
Dim iter As Long
b = CStr(Nz(fld.value,""))

For iter = 0 To UBound(b)
if b(iter) > 127 then
addlog"Export contains ascii character > 127"
end if
next

您的示例应进行修改，使其不具有外部依赖关系，现在它依赖于Nz和addLog。

无论如何，这里的问题似乎是您从0循环到len()-1。在VBA中，该值为1到n。

1
2
3
4
5
6
7
8
9

Dim cell_val As String
cell_val ="?abcd???~!#%&/()"
Dim iter As Long
For iter = 1 To Len(cell_val)
If Asc(Mid(cell_val, iter, 1)) > 127 Then
'addlog"Export contains ascii character > 127"
Debug.Print iter,"Export contains ascii character > 127"
End If
Next iter

Did you debug it? ;) Are you sure the
cell_val is not empty? Also you don't
need the 'Step 1' in the For loop
since it's default. Also what do you
expect to acomplish with your code? It
logs if any ascii values are above
127? But that's it - there is no
branching depending on the result?

我没有调试它，我也不知道如何使用vba或它附带的任何工具。
是的，我确定cell_val不为空。
该代码具有代表性，在编写分支本身之前，我确保分支条件有效。