FoxPro/Visual FoxPro - un text que acepte num y letras

   
Vista:

un text que acepte num y letras

Publicado por marco antonio (13 intervenciones) el 16/12/2009 17:16:31
hola como estan tengo un pequeño problema necesito crear un codigo que si en un text escribo una cadena asi por eejmplo wndh1234 me devuelva en otro text wndhunodostrecuatro
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Un text que acepte num y letras

Publicado por Mauricio (1367 intervenciones) el 16/12/2009 18:52:54
Aca esta Marco:
vletra = ''
DO pregunta WITH '00P569Z691Y7 '
wait wind vletra time 3
*
PROCE pregunta
LPARA buscar
FOR I = 1 TO 12
IF ISDIG(SUBS(buscar,I,1))
DO es_numero WITH SUBS(buscar,I,1)
ELSE
DO es_letra WITH SUBS(buscar,I,1)
ENDIF
ENDFOR
ENDPRO
*
PROCEDURE es_numero
LPARAMETERS vcodigo
IF vcodigo = '0'
vletra = vletra + 'Cero '
ENDIF
IF vcodigo = '1'
vletra = vletra + 'Uno '
ENDIF
IF vcodigo = '2'
vletra = vletra + 'Dos '
ENDIF
IF vcodigo = '3'
vletra = vletra + 'Tres '
ENDIF
IF vcodigo = '4'
vletra = vletra + 'Cuatro '
ENDIF
IF vcodigo = '5'
vletra = vletra + 'Cinco '
ENDIF
IF vcodigo = '6'
vletra = vletra + 'Seis '
ENDIF
IF vcodigo = '7'
vletra = vletra + 'Siete '
ENDIF
IF vcodigo = '8'
vletra = vletra + 'Ocho '
ENDIF
IF vcodigo = '9'
vletra = vletra + 'Nueve '
ENDIF
*
PROCEDURE es_letra
LPARAMETERS vcodigo
IF vcodigo = 'A'
vletra = vletra + 'A '
ENDIF
IF vcodigo = 'B'
vletra = vletra + 'B '
ENDIF
IF vcodigo = 'C'
vletra = vletra + 'C '
ENDIF
IF vcodigo = 'D'
vletra = vletra + 'D '
ENDIF
IF vcodigo = 'F'
vletra = vletra + 'F '
ENDIF
IF vcodigo = 'G'
vletra = vletra + 'G '
ENDIF
IF vcodigo = 'H'
vletra = vletra + 'H '
ENDIF
IF vcodigo = 'I'
vletra = vletra + 'I '
ENDIF
IF vcodigo = 'J'
vletra = vletra + 'J '
ENDIF
IF vcodigo = 'K'
vletra = vletra + 'K '
ENDIF
IF vcodigo = 'M'
vletra = vletra + 'M '
ENDIF
IF vcodigo = 'N'
vletra = vletra + 'N '
ENDIF
IF vcodigo = 'O'
vletra = vletra + 'O '
ENDIF
IF vcodigo = 'P'
vletra = vletra + 'P '
ENDIF
IF vcodigo = 'Q'
vletra = vletra + 'Q '
ENDIF
IF vcodigo = 'R'
vletra = vletra + 'R '
ENDIF
IF vcodigo = 'S'
vletra = vletra + 'S '
ENDIF
IF vcodigo = 'T'
vletra = vletra + 'T '
ENDIF
IF vcodigo = 'U'
vletra = vletra + 'U '
ENDIF
IF vcodigo = 'V'
vletra = vletra + 'V '
ENDIF
IF vcodigo = 'W'
vletra = vletra + 'W '
ENDIF
IF vcodigo = 'X'
vletra = vletra + 'X '
ENDIF
IF vcodigo = 'Y'
vletra = vletra + 'Y '
ENDIF
IF vcodigo = 'Z'
vletra = vletra + 'Z '
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:un text que acepte num y letras

Publicado por Chucho (66 intervenciones) el 18/12/2009 13:48:39
Hola. Te paso el código del evento click de un botón que hace lo que necesitas.

* Evento clic de un commandbutton

DIMENSION aNumeros(10)

aNumeros(1) = "cero"
aNumeros(2) = "uno"
aNumeros(3) = "dos"
aNumeros(4) = "tres"
aNumeros(5) = "cuatro"
aNumeros(6) = "cinco"
aNumeros(7) = "seis"
aNumeros(8) = "siete"
aNumeros(9) = "ocho"
aNumeros(10) = "nueve"

cCadena = ""

FOR nI = 1 TO LEN( ThisForm.Text1.Value )

...cCar = SUBSTR( ThisForm.Text1.Value , nI, 1 )

...IF ISDIGIT( cCar )
......cCar = aNumeros( VAL( cCar ) + 1 )
...ENDIF

...cCadena = cCadena + cCar

NEXT

ThisForm.Text2.Value = cCadena

Saludos

Javier (Jujuy-Argentina)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar