代码我有：
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不为空。
该代码具有代表性，在编写分支本身之前，我确保分支条件有效。
I believe your problem is that in VBA string indexes start at 1 and not at 0.
嗯，我一定会错过与vba一起出现的确切内容，谢谢。
VB / VBA字符串基于1而不是0，因此您需要使用：
1
| For iter = 1 To Len(cell_val) |
我还保留了step 1，因为这是默认设置。
试试AscW()
你调试了吗？ ;)您确定cell_val不为空吗？另外，由于它是默认设置，因此不需要For循环中的"步骤1"。您还希望代码完成什么？它记录是否有大于127的ascii值？就是这样-没有分支取决于结果吗？
