如何迭代一个字符串并检查每个字符的字节值? [英] How to iterate through a string and check the byte value of every character?
本文介绍了如何迭代一个字符串并检查每个字符的字节值?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
代码我有:
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。
This code doesn't work. Anyone know how to do this? I've simply got no idea with VB or VBA.
推荐答案
我相信你的问题是在VBA中的字符串索引从1开始而不是0.尝试以下操作:
I believe your problem is that in VBA string indexes start at 1 and not at 0. Try the following:
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
这篇关于如何迭代一个字符串并检查每个字符的字节值?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文