Foros del Web » Programando para Internet » ASP Clásico »

A ver si me podéis ayudar es sencillo.

Estas en el tema de A ver si me podéis ayudar es sencillo. en el foro de ASP Clásico en Foros del Web. Como puedo hacer para que un texto que está en una base de datos y al implementarlo en una página sólo muestre unos determinados carácteres ...
  #1 (permalink)  
Antiguo 22/02/2003, 08:11
Avatar de yampoo  
Fecha de Ingreso: noviembre-2001
Ubicación: Vilanova i la Geltrú
Mensajes: 1.942
Antigüedad: 22 años, 6 meses
Puntos: 0
A ver si me podéis ayudar es sencillo.

Como puedo hacer para que un texto que está en una base de datos y al implementarlo en una página sólo muestre unos determinados carácteres y después se corte.

Por ejemplo hay un texto de 500 carácteres pero sólo quiero que se muestren 150 y después puntos suspensivos.

Gracias.
  #2 (permalink)  
Antiguo 22/02/2003, 08:19
Avatar de tunait
Moderadora
 
Fecha de Ingreso: agosto-2001
Ubicación: Terok Nor
Mensajes: 16.805
Antigüedad: 22 años, 9 meses
Puntos: 381
Holas Yampoo,

quizás algo así?


response.write left(rs("campo"),150)
if len(rs("campo")) > 150 then response.write "..." end if


  #3 (permalink)  
Antiguo 22/02/2003, 12:03
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Creo que tambiénm lo podrìas hace con algo así:

Response.Write(left(rs("campo"), 150) & "...")


Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #4 (permalink)  
Antiguo 22/02/2003, 12:09
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
Yo cree una funcion, con la ayuda de foros del web ^^
Código:
<%
Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = left(cadena,enc - 1)
Else
cortarHasta = cadena
end if
end function
%>
Luego haces algo asi como
txtAImprimir = cortarHasta(150, texto, " ")
txtAimprimir = txtAImprimir & "..."

Con esa funcion eliges, siempre que quires, reutilizando codigo, desde donde cortas, y a partir de que caracter (asi no se rompen las palabras)

Suerte!
__________________
Tu portal de manga y anime.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 21:59.