24/06/2005, 13:08
|
 | | | Fecha de Ingreso: abril-2005
Mensajes: 1.051
Antigüedad: 20 años Puntos: 2 | |
| Bien!!
Pero si el Mid comienza en el 1, entonces debes cambiar el for para ser asi:
intLen = Len(strCadena)
for i=1 to intLen
varCar = Mid(strCadena, i, 1)
//Evaluar varCar
next
No tiene caso pasarle el 0 al MID, es una iteracion innecesaria.
Suerte!! |