FoxPro/Visual FoxPro - Deletrar a palabras ayuda....

 
Vista:
sin imagen de perfil

Deletrar a palabras ayuda....

Publicado por Juan286 (185 intervenciones) el 05/09/2010 07:13:04
Hola colegas.

Ase poco me pidieron que desarrollara un pequeño proyecto que me donde introduciera una cadena "Hola Como estan" aqui lo que tenia que hacer es sacar letra por letra y decir que letra era la solucion que se me ocurrio fue algo asi:

PUBLIC i
PUBLIC x
x = INT(len(ALLTRIM(thisform.text1.Value)))
thisform.text2.Value = INT(len(ALLTRIM(thisform.text1.Value)))

vDG=0
For i = 1 To x

vDG=vDG+1
vM=Substr(Thisform.text1.Value,vDG,1)

if (vM = 'A' .or. vM = 'a')
messagebox("Es una A o a")
INKEY(1)
else
IF (vM = 'B' .or. vM = 'b')
messagebox("Es una B o b")
INKEY(1)
endif
endif

Esto lo hago para las 27 letras y veran que es engorroso

Mi problema es que ahora quiere que al colocar las cadena me aparesca en lugar de letra x letra sea la palabra y significado osea "Hola" pero que sea letra por letra y ademas que si la palabra esa imcompleta me la de letra por letra.

Lo unico que se me ocurre es hacer una tabla llamada diccinario y de alguna forma sacar las cadenas y comparar.

Alguein que tenga una bueno idea de como hacerlo...
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

RE:Deletrar a palabras ayuda....

Publicado por ACM (162 intervenciones) el 05/09/2010 10:00:31
Hola Juan

Ejemplo

largo=LEN(ALLTRIM(thisform.text1.Value))
I=1
DO WHILE i<=largo
msj="... es la "+SUBSTR(thisform.text1.value,i,1)
IF !EMPTY(SUBSTR(thisform.text1.value,i,1))
=MESSAGEBOX(msj,0+64,"Esta Letra ...")
endif
i=I+1
endd


espero te sirva

Acm.
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
sin imagen de perfil

RE:Deletrar a palabras ayuda....

Publicado por Juan286 (185 intervenciones) el 06/09/2010 06:07:12
Lo que quiero es que de una cadena introduccida me puedar leer letra por letra pero al final me muestre el resultado la palabras reconocidas.

Ejemplo

Hola como estan todos el mundo kirt

El resultado seria leer letra por lera pero al final el resultado seria algo como esto
Hola
como
estan
todos
el
mundo
k
i
r
t
Este seria el resultado.

Espero haberme explicado.
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:Deletrar a palabras ayuda....

Publicado por ACM (162 intervenciones) el 06/09/2010 15:27:39
Hola Juan

ejemplo

largo=LEN(ALLTRIM(thisform.text1.Value))
j=LARGO
DO WHILE .T.
IF SUBSTR(thisform.text1.value,J,1)=" " && valida el espacio anterior a la ultima palabra
UESPACIO=J
EXIT
ENDIF
J=J-1
IF j=0
uespacio=largo
EXIT
endif
ENDD

IF uespacio=largo
uespacio=0 && valida si es solo una palabar
endif


I=1
VAR1=""
DO WHILE i<=largo
IF i<=uespacio
IF !EMPTY(SUBSTR(thisform.text1.value,i,1))
VAR1=VAR1+SUBSTR(thisform.text1.value,i,1)
ELSE && desconpone palabra
=MESSAGEBOX(var1,0+64,"Muestra")
var1=""
ENDIF
ELSE
IF !EMPTY(SUBSTR(thisform.text1.value,i,1))
=MESSAGEBOX(SUBSTR(thisform.text1.value,i,1),0+64,"Muestra") && desconpone letra de palabra
endif
endif
i=I+1
endd

espero te sirva

Saludos

Acm.
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