Programación General > Visual FoxPro

 Problema Con Un Formulario En Fox

(1/1)

luisq:
hola a todos en el foro...tengo un pequeño problema con un formulario. pasa que tengo que hacer que cuando ponga un a frase este mecuente cuantas vocales tiene esa frase, y no he podido hacerlo! sera que por favor me pueden ayudar con este problemita.....muchas gracias por la ayudan que me puedan prestar

emuller:
No se en que parte tenés el problema, si no lográs que cuentes la vocales (no te funciona el algoritmo) o es otra cosa.
Si es el algoritmo esto funciona:

--- Código: Text ---LOCAL cadena, cantidadVocales, ctemp&& THISFORM.text es el campo de texto que tiene la cadena a la que se le quiere contar las vocalescadena = ALLTRIM(THISFORM.text.Value)cantidadVocales = 0 FOR i = 1 TO LEN(cadena) STEP 1  ctemp = UPPER(SUBSTRC(cadena,i,1))  IF ctemp=='A' OR  ctemp=='E' OR ctemp=='I' OR ctemp=='O' OR ctemp=='U' THEN     cantidadVocales = cantidadVocales + 1  ENDIF ENDFOR  MESSAGEBOX("Cantidad de vocales: "+ALLTRIM(STR(cantidadVocales))) 
Por supuesto, el messagebox es sólo para ver el resultado y seguramente no lo necesites. El resultado queda en la variable "cantidadVocales"

luisq:

--- Cita de: "emuller" --- No se en que parte tenés el problema, si no lográs que cuentes la vocales (no te funciona el algoritmo) o es otra cosa.
Si es el algoritmo esto funciona:

--- Código: Text ---LOCAL cadena, cantidadVocales, ctemp&& THISFORM.text es el campo de texto que tiene la cadena a la que se le quiere contar las vocalescadena = ALLTRIM(THISFORM.text.Value)cantidadVocales = 0 FOR i = 1 TO LEN(cadena) STEP 1  ctemp = UPPER(SUBSTRC(cadena,i,1))  IF ctemp=='A' OR  ctemp=='E' OR ctemp=='I' OR ctemp=='O' OR ctemp=='U' THEN     cantidadVocales = cantidadVocales + 1  ENDIF ENDFOR  MESSAGEBOX("Cantidad de vocales: "+ALLTRIM(STR(cantidadVocales))) 
Por supuesto, el messagebox es sólo para ver el resultado y seguramente no lo necesites. El resultado queda en la variable "cantidadVocales"
--- Fin de la cita ---
muchas gracias por la ayuda amigo me ha sido de mucha utilidad. thx

Navegación

[0] Índice de Mensajes