Buscar en Asptutor     
Demo Tienda Virtual Tutorcar
 Navegacion->Inicio | Active Server Pages  

La web de los recursos y ejemplos de asp

Versión para imprimir

 

Alojado en:


urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Como mostrar la IP, el navegador y el S.O.

Funciones de manipulación de fechas

Salidas en formato compatible Excel

Función para validar un Email

Formatos de fecha y hora (Función FormatDateTime)

Codigo de un Libro de visitas(V)

Como mostrar la IP, el navegador y el S.O.

Fecha del servidor vs fecha local

Redireccionar una pagina con un Timer

Conservar los saltos de linea


Enlaces recomendados

   

Tutorial ASP

Un contador de palabras y caracteres
Este articulo ha sido leído 47.677 veces

Un contador de palabras y caracteres

Este ejemplo muestra un script que cuenta las palabras y caracteres que son introducidos en un textbox.

Usa las funciones Ubound y Split 

 

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>
 

Ver el ejemplo funcionado

 


 

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp
 

Valora este articulo   Malo Excelente  
29 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

 

 

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


Google

 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar