24/06/2005, 09:48
|
 | | | Fecha de Ingreso: abril-2005
Mensajes: 1.051
Antigüedad: 20 años Puntos: 2 | |
| Hola
Bueno, pues una forma seria con MID
intLen = Len(strCadena)
for i=0 to intLen
varCar = Mid(strCadena, i, 1)
//Evaluar varCar
next
Bueno, revisa bien cosas como, si el Mid comienza en el 0 o en el 1, si Len te devuelve el total entonces el for es exacto, etc.
Suerte!! |