Diseño de formulario vfp. Ingrese cualquier cadena ascii, juzgue el número y genere el número. !

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

a1=ALLTRIM(thisform.text1.Value)

a2=""

FOR iii=1 a LEN(a1)

a3=SUBSTR(a1,iii,1)

SI a3>="0" y a3<="9"

a2=a2+a3

ENDIF

ENDFOR

thisform.text2.Value=a2

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

El programa ha sido probado y aprobado. El autor sólo necesita copiar el código.