Contar vocales????

[karmish]

Como le ago para contar vocales de un recate de formulario?????

[u_goldman]

Una idea:

Código:

int i
str cadena = "estaesunacadenaconmuchasvocales"
int contVocales = 0

DESDE i = 1 hasta len(cadena)
	SI
	lcase(mid(cadena, i, 1)) = "a" o _
	lcase(mid(cadena, i, 1)) = "e" o _
	lcase(mid(cadena, i, 1)) = "i" o _
	lcase(mid(cadena, i, 1)) = "o" o _
	lcase(mid(cadena, i, 1)) = "u" o _
	ENTONCES
		contVocales = contVocales + 1
	FIN SI
FIN DESDE

Imprime "Se encontraron " + contVocales + " vocales"

[AlZuwaga]

Otra idea:

Código:

cadena = "estaesunacadenaconmuchasvocales"
tmp = lcase(cadena)
tmp = replace(tmp, "a", "aa")
tmp = replace(tmp, "e", "ee")
tmp = replace(tmp, "i", "ii")
tmp = replace(tmp, "o", "oo")
tmp = replace(tmp, "u", "uu")

response.write "Hay " & len(tmp) - len(cadena) & " vocales en la cadena."

[u_goldman]

Iniciado por Al Zuwaga

Otra idea:

Código:

cadena = "estaesunacadenaconmuchasvocales"
tmp = lcase(cadena)
tmp = replace(tmp, "a", "aa")
tmp = replace(tmp, "e", "ee")
tmp = replace(tmp, "i", "ii")
tmp = replace(tmp, "o", "oo")
tmp = replace(tmp, "u", "uu")

response.write "Hay " & len(tmp) - len(cadena) & " vocales en la cadena."

Qué solución más inteligente me costó trabajo entenderla je je je

[Myakire]

me costó trabajo entenderla je je je

Eso es una prueba de que beber en exceso SI tiene consecuencias

Saludos

[AlZuwaga]

En realidad la idea la obtuve de una respuesta que me dio Linterns para saber cuántas comas había dentro de una celda en un archivo de excel. La fórmula era así:

Código:

=LARGO(SUSTITUIR(X2;",";",,"))-LARGO(X2)