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

libro de android studio en español pdf

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

¿Lo depuraste? ;) ¿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?

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 los índices de cadenas comienzan en 1 y no en 0.

Ah, el tipo exacto de cosas que van con vba que estaba obligado a perder, gracias.

Answer 2

¿Lo depuraste? ;) ¿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

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

Answer 4

Creo que su problema es que en VBA los índices de cadenas comienzan en 1 y no en 0. Pruebe 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 5

Pruebe AscW ()

Answer 6

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 7

Las cadenas VB / VBA se basan en uno en lugar de cero, por lo que debe usar:

For iter = 1 To Len(cell_val)

También dejé el step 1 ya que es el predeterminado.