¿CÓMO EXPLORO UNA CADENA CARACTER A CARACTER?
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
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
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
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