Cuenta Palabras en asp.net

[Ascariz]

Mirando y programando un poco mas ...

Aqui esta el Código fuente en ASP.NET

Código:

 Dim maxpalabras As Integer = 20
        Dim Cadena As String = ""
        Dim arraycadena As Array
        arraycadena = Split(Texto, " ") ' Parteme la cadena en los espacios
        Dim i As Integer = 1
        While i < maxpalabras
            Cadena = Cadena & arraycadena(i) & " "
            i = i + 1
        End While
        Dim tam As String = Len(Cadena)
        Cadena = Left(Cadena, tam - 1)
        Dim palabras As Integer = 15

        While Len(Cadena) > 90
            While i < palabras
                Cadena = Cadena & arraycadena(i) & " "
                i = i + 1
            End While
            tam = Len(Cadena)
            Cadena = Left(Cadena, tam - 1)
            palabras = palabras - 1
        End While
        Return Cadena & "..."