Cuando el texto es extenso(...)

[mamon]

holas, quisiera saber como hacer para cuando tengo guardado en un BD algun texto q tenga más de 200 caracteres ponerle "..."

osea algo asi

bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla...

cuando el texto en verdad es

bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla, bla.

pero solo ponerlo si el texto tiene más de 200 caracteres..

[nazkatuta]

Hola, te pongo un ejemplo con 20 caracteres...

Código:

<%
variable = "este es un string de ejemplo para hacer un corte"
if len(variable) > 20 then
	response.write MID(variable,1,20) & "..."
else
	response.write variable
end if
%>

espero que te sirva, suerte.

[elsabio]

Hola Mamon, aqui otro codido para mostrar solo algunas palabras de una cadena:


<%
Cadena = "este es una cadena que puede tener + ó - de 20 palabras"
' De un BD cadena = tu_recordset("nombre")
Cadena=Split(Cadena," ")
d = UBound(Cadena,1)+1 'd es el valor hasta donde recorre la cadena
if d > 20 then
d = 20
else
d = UBound(Cadena,1)
end if

For c =0 to d
Response.Write(""&Cadena(c)&" ... ")
Next
%>

Espero te sirva

[Gurrutello]

upsss
mas facil
simplemente pon

<%=Mid(tu_recordset("nombre"),1,75)%>

'donde tu_recordset("nombre") seria tu conexion a la base de datos

' y 75 el numero de caracteres que quieres mostrar

¿ es mas facil no ??

saludos

[mamon]

Gracias "elsabio" y gracias "Gurrutello"

[nazkatuta]

holas, quisiera saber como hacer para cuando tengo guardado en un BD algun texto q tenga más de 200 caracteres ponerle "..."

Si, usar solo el MID es mas sencillo, pero los puntos suspensivos no aparecerian.

a mi no me das las gracias, mamon?? jeje

[Gurrutello]

hola con puntos suspensivos
<%response.write ""&Mid(tu_recordset("nombre"),1,75)&"""..."%>
saludos

[nazkatuta]

hola,
asi pondria puntos suspensivos siempre, aunke el texto no pasara de los caracteres maximos.

[elsabio]

Hola, usando el codigo de Gurrutello:
<%
cadena = "este mensaje tiene mas de 50 carateres"
response.write ""&Mid(cadena,1,10)&"..."
%>

Resultado:

este mensa...

Comentario: Te gustaria que corte un texto como el anterior?, creo que no verdad.

[mamon]

Chucha, sorry nazkatuta, no leí tu mensajes=S pero gracias a todos, ya no se mechen(peleen) xq todos los códigos están bien.
Gracias x su tiempo;)

[meru-kun]

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

Con esa funcion cortas el texto aprox. por el caracter que tu quieres. Si por ejemplo el caracter 200 esta en "hola amigo", en vez de dejar "hol", deja "hola".

Prueba la funcion llamandola asi:
Function cortarHasta(200,variable," ")

Suerte!

[Gurrutello]

<%dim valor, num_caracteres, puntos, tu_recordset
valor=75
if num_caracteres>valor then
puntos="..."
else
puntos=""
end if %>
<%response.write ""&Mid(tu_recordset("nombre"),1,""&valor&"")&""&pu ntos&""
%>
Si el pronlema son los puntos
por que no hacer esto
saludos