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

Compatibilidad del metodo GET con Netscape

ASP sobre APACHE

Como pasar información entre páginas

Buscador sobre una BD

Como cerrar la sesión si el usuario abandona tu sitio

Redireccion de vuelta después de un login

Planificación de un sitio Web

Utilizar GetRows()

Ejemplo de una aplicación de Test Online

Combo-box enlazados con datos de una B.D


Enlaces recomendados

   

Tutorial ASP

Un contador de palabras y caracteres
Este articulo ha sido leído 49.254 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