Contando la cantidad palabras de una cadena de texto
Es un corto script que consiste en calcular la cantidad de palabras que hay es una determinada cadena de texto.
Para poder mostrar el código, he elegido una cadena de texto, la cual será pasada por funciones y bucles para poder
determinar la cantidad de palabras.
La idea es crear un vector (array) que en cada uno de sus elementos haya una palabra de la cadena.
Importante: Recuerden que el primer elemento de un vector, es el elemento de subindice 0.
Veamos el código, luego su ejecucion y mas abajo un par de aclaraciones.
<%
dim texto
texto = "Cuantas palabras tiene esta frase?"
texto = Trim(texto)
'si existen espacios dobles en la cadena, los eliminamos con este bucle
Do While InStr(1, texto, " ") > 0
texto = Replace(texto, " ", " ")
Loop
'separamos la palabra donde encontramos un espacio
'y hacemos un vector con sus palabras
Dim array_texto
array_texto = split(texto, " ")
'mostramos el resultado, sumando uno mas ultimo índice del vector
'esto es porque los vectores empiezan con el 0.
response.write "El texto ingresado: "Cuantas palabras tiene esta frase?", "
response.write "tiene <B>" & UBound(array_texto)+1 &"</B> palabras"
%>
|
Aqui vemos este script ejecutándose... y su resultado
|
El texto ingresado: " Cuantas palabras tiene esta frase? ", tiene 5 palabras
|
Tal vez lo mas complejo sea ese bucle Do While, pero si se detienen a pensarlo, lo que hace es
buscar donde haya dos espacios seguidos. Si existen, los reempleza por uno solo. Y asi hasta que
no encuentre dos espacios seguidos. En ese momento termina el bucle Do While que contiene este script.
|
