¿CÓMO EXPLORO UNA CADENA CARACTER A CARACTER?

Hefzi-ba
24 de Febrero del 2004
Shalom:

Necesito Explorar una cadena de números, evaluando el valor de cada número (número a número),
he pensado haciéndolo así, pero no me devuelve el valor de cada caracter:

Private Sub PuntoEnCifras(Cifra As String)
For i = 1 To Len(Cifra)
If ChrW(i) = "." Then 'ChrW devuelve un string
punto = True
Else
If punto = True Then
NoDig = NoDig + 1
End If
If i = Len(Cifra) And punto = False Then
Regreso = Cifra & ".00"
Else
If i = Len(Cifra) And NoDig < 2 Then
Regreso = Cifra & "0"
End If
End If
End If
Next i
Cifra = Regreso
End Sub

¿Alguna idea?
Muchas gracias

sans2001
24 de Febrero del 2004
Hola de nuevo, yo creo que con algo más sencillo logras lo que quieres, algo como esto:

Dim Cadena as String
Dim A as string
Dim N as Integer

Private Sub Cadenas()
Cadena = "tu cadena a explorar"
For N = 1 To Len(Cadena)
A = Mid(Cadena, N, 1)
Next N
End Sub

En la variable A estaras colocando el valor de cada caracter cada que N tome una posición dentro de la cadena.

Espero de nuevo te sirva la información.

Saludos

Jaime Ayala

Hefzi-ba
24 de Febrero del 2004
Muchas gracias

Me ha servido de mucho tu información

Shalom
Hefzi-ba