Números de entrada de programación Vfp 0 a 6

Cree un nuevo formulario, agregue dos cuadros de texto texto1 (para ingresar cadenas ASCII), texto2 (para generar números) y un botón de comando al formulario, haga clic en el botón de comando y agregue el siguiente código al evento de clic.

a 1 = todo recorte(esta forma . texto 1. valor)

a2= " "

FOR iii=1 a LEN(a1)

a3=SUBSTR(a1,iii,1)

Si a3 gt="0 " y a3 lt="9"

a2=a2 a3

ENDIF

Fin

thisform.text2.Value=a2

Después de ejecutar el formulario, ingrese la cadena asii en text1 y haga clic en el botón de comando muestra una cadena numérica en text2. Si se muestran números, la última línea del programa se ajustará a thisform.text2.Value=val(a2).

El programa ha pasado la prueba, el autor puede simplemente copiar el código directamente.