Contar palabras en una cadena

Nov

Escrito por josep.rosell | Lenguaje ASP

En ciertas aplicaciones nos puede resultar interesante saber el número de palabras de un texto, por ejemplo para limitar el tamaño de un campo de texto o para mostrar solo parte del texto y dirigir al usuario a otra página para continuar leyendo.

Esta función ASP nos permite contar el número de palabras de una cadena de texto.

<%
    ' Copyright (c) 2008, reusablecode.blogspot.com; some rights reserved.
    '
    ' This work is licensed under the Creative Commons Attribution License. To view
    ' a copy of this license, visit http://creativecommons.org/licenses/by/3.0/ or
    ' send a letter to Creative Commons, 559 Nathan Abbott Way, Stanford, California
    ' 94305, USA.
 
    ' Count the number of words in a string.
    function WordCount(byVal someString)
        dim position
        dim spaces
 
        spaces = 1
        someString = trim(someString)
 
        for position = 1 to len(someString)
            if mid(someString, position, 1) = " " and not mid(someString, position - 1, 1) = " " then
                spaces = spaces + 1
            end if
        next
 
        WordCount = spaces
    end function
%>