250807.



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"
%>