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

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

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.

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.

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.