Vida Una
Chat
Noticias

  Ayuda Ayuda  Buscar en el foro   Eventos   Regístrese Regístrese  Identificarse Identificarse


Un contador de palabras y caracteres

 Responder Responder
Nombre de usuario
Programador Ver Opciones
Expert@
Expert@
Avatar

Ingresó: 09 Mayo 2009
Lugar: San Pedro Alc.
Estado: Desconectado
Puntos: 54
Opciones de Mensaje Opciones de Mensaje   Me gusta  (0) Me gusta (0)   Oir mensaje Oir  Citar Programador Citar  ResponderResponder Enlace directo a este mensaje Mensaje: Un contador de palabras y caracteres
    Enviado: 09 Mayo 2009 a las 4:56pm
Este ejemplo muestra un script que cuenta las palabras y caracteres que son introducidos en un textbox:
 
Contador.asp
 
<%
Dim nombrescript
Dim textodeentrada
nombrescript = Request.ServerVariables("URL")
textodeentrada = Request.Form("txtWordCount")
' Si no han escrito nada emitimos un mensaje de error
If textodeentrada = "" Then
textodeentrada = "Debes escribir algo en la cadena a contar"
Else
Response.Write "El texto introducido es::<br />" & vbCrLf
Response.Write "<pre>"
Response.Write Server.HTMLEncode(textodeentrada)
Response.Write "</pre>" & vbCrLf
' Mostramos los resultados del conteo:
Response.Write "<p>El texto introducido contiene <b>" _
& GetWordCount(textodeentrada) _
& "</b> palabras y <b>" _
& GetCharCount(textodeentrada) _
& "</b> caracteres.</p><br />" & vbCrLf
End If
'**** Funciones Usadas ***********************************
Function GetWordCount(strInput)
Dim strTemp
' reeplazamos los tabuladores y los saltos de linea por espacios
strTemp = Replace(strInput, vbTab, " ")
strTemp = Replace(strTemp, vbCr, " ")
strTemp = Replace(strTemp, vbLf, " ")
' Quitamos los espacios delante y detras de la cadena
strTemp = Trim(strTemp)
' transformamos multiple espacios en uno solo
Do While InStr(1, strTemp, " ", 1) <> 0
strTemp = Replace(strTemp, " ", " ")
Loop
' Pasamos la cadena strTemp a un array unidimensional
'con la función Split
GetWordCount = UBound(Split(strTemp, " ", -1, 1)) + 1
End Function ' GetWordCount
Function GetCharCount(strInput)
GetCharCount = Len(textodeentrada)
End Function ' GetCharCount
'**** Fin de funciones *************************************
%>
<p>Introduce el texto a contar:</p>
<form action="<%= nombrescript %>" method="post">
<textarea name="txtWordCount" cols="40" rows="5"
><%= Server.HTMLEncode(textodeentrada) %></textarea>
<br />
<input type="submit">
</form>
Subir
Publicidad


Subir
 Responder Responder
  Compartir Mensaje      

Ir al Foro Permisos del Foro Ver Opciones



Esta págna fue generada en 0,313 segundos.