canalero
19 de Julio del 2005

hola, bueno necesito realizar una lectura de numero. osea leer cada digito del numero colocado en un text.
ejmplo supongamos que en el text1 se coloca esto 589632147230 .
entonces lo que necesito hacer es esto dado lo que tiene en text1
variable1 = (0+2+4+2+6+8)
variable2 = (3+7+1+3+9+5)
si observan la variable1 está tomando todos los valores en posiciones impares de izquierda a derecha y la variable2 está tomando tods los valores pares de izquierda a derecha.
estuve revisando con la función len pero no se realiza. bueno gracias por su aporte

exorcista
19 de Julio del 2005

por si aun no has solucionado tu problema, puedes hacerlo asi.
Por ejemplo para obtener el 0 (cero) ultimo digito de tu cadena en formato numerico para que lo puedes sumar con el resto: variable1=substr(text1,12,1) . esto te crea una variable nueva y en ella graba el varlor de la variable variable1 desde la posicion 12, 1 posicion.
Luego debes pasar esta variable nueva a numerico para poder hacer operaciones, esto lo haces con al funcion val(). variable3=val(variable1). para hacerlo todo en una sola linea puedes poner algo asi:
variable1=val(substr(text1,12,1)) + val(substr(text1,10,1)) + val(substr(text1,8,1)) + ..... y asi cada digito

sgomez
19 de Julio del 2005

A ver si asi te sirve:

variablepar=0
variableimpar=0
variable="589632147230"
for a=1 to len(variable)
valor=val(substr(variable,a,1))
if mod(valor,2)=0
variablepar=variablepar+valor
else
variableimpar=variableimpar+valor
endif
next