¿Cómo iterar a través de una cadena y verificar el valor de bytes de cada carácter?

Question

código que tengo:

 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 

Este código no funciona. Alguien sabe cómo hacer esto? Simplemente no tengo idea con VB o VBA.

Answer 1

Creo que su problema es que en VBA índices de cadenas comienzan en 1 y no a 0. intente lo siguiente:

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 

Answer 2

Quizás quiso depurarlo? ;) ¿Estás seguro de que cell_val no está vacío? Además, no necesita el 'Paso 1' en el bucle For porque es el predeterminado. Además, ¿qué esperas cumplir con tu código? Se registra si los valores ascii están por encima de 127? Pero eso es todo, ¿no hay ramificación según el resultado?

Answer 3

AscW Try()

cadenas

Answer 4

VB/VBA se basan de una vez de cero, por lo que es necesario utilizar:

For iter = 1 To Len(cell_val) 

También he dejado fuera de la step 1 ya que es el valor predeterminado.

Answer 5

Su ejemplo debe modificarse para que no tenga dependencias externas, ahora depende de Nz y addLog.

De todos modos, el problema aquí parece ser que estás pasando de 0 a len() - 1. En VBA esto sería de 1 a n.

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 

Answer 6

Quizás quiso depurarlo? ;) ¿Estás seguro de que cell_val no está vacío? Además, no necesita necesita el 'Paso 1' en el bucle For ya que es el predeterminado. Además, ¿qué espera cumplir con su código? Es registros si los valores ascii están por encima de 127? Pero eso es todo, ¿no hay una ramificación dependiendo del resultado?

No lo depuré, no tengo idea de cómo usar vba o cualquiera de las herramientas que lo acompañan. Sí, estoy seguro de que cell_val no está vacío. El código era representativo, me aseguraba de que la condición de rama funcionara antes de escribir la rama.

Creo que su problema es que en VBA índices de cadenas comienzan en 1 y no a 0.

Ah, el tipo exacto de lo que va junto con VBA que estaba obligado a perderse, gracias tú.

Answer 7

Con VBA, VB6 puede declarar una matriz de bytes y asignarle un valor de cadena y se convertirá para usted. Luego puede iterar a través de él como una matriz regular.

p. Ej.

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