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

Longitud del mensaje del foro

Estas en el tema de Longitud del mensaje del foro en el foro de ASP Clásico en Foros del Web. Tengo un problemilla con la longitud de los mensajes de mi foro, para poderlos leer hay que desplazarse con la barra inferior del navegador, no ...
  #1 (permalink)  
Antiguo 22/06/2003, 14:33
Avatar de Halcon_2003  
Fecha de Ingreso: mayo-2003
Ubicación: Galicia - Pcia. de Pontevedra
Mensajes: 45
Antigüedad: 21 años, 1 mes
Puntos: 0
Longitud del mensaje del foro

Tengo un problemilla con la longitud de los mensajes de mi foro, para poderlos leer hay que desplazarse con la barra inferior del navegador, no se si el error esta en esta funcion:

Function AcomodarTXT(txt)
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, " ", "&nbsp;")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function

Si el error esta alli porfa indíquenmen como solucionarlo.
Gracias
__________________
Halcon
  #2 (permalink)  
Antiguo 22/06/2003, 15:21
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
Con eso no haces mucho xD. Supongo que tu lo que no qieres es que te aparezca la barra de abajo.
Entonces, tienes que recorrer tu variable, y cada, pongamos, 600 caracteres, meterle un <br>
__________________
Tu portal de manga y anime.
  #3 (permalink)  
Antiguo 22/06/2003, 15:23
Avatar de Halcon_2003  
Fecha de Ingreso: mayo-2003
Ubicación: Galicia - Pcia. de Pontevedra
Mensajes: 45
Antigüedad: 21 años, 1 mes
Puntos: 0
Pero como hago eso, disculpa pero soy muy novato en esto, lo bueno es que normalmente aprendo rapido
Gracias
__________________
Halcon
  #4 (permalink)  
Antiguo 22/06/2003, 15:37
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
Jeje, la cosa es que yo tampoco tengo mucha idea... Yo tengo una funcion que te corta el texto, desde la posicion que quieras, hasta que la posicion que tu le mandes, donde haya un caracter en blanco, es eta;:
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
Lo que tu deberias hacer es usar esa funcion en un bucle, e ir cortando la cadena desde el caracter ultimo. Es decir, si dices que cortas los 500 primers, desde el uno, asi;
cortarHasta(1, variable, 500)
y luego hacer
cortarHasta(501, variable, 500)
y mas tarde
cortarHasta(1001, variable, 500)

y asi indefinidamente...

Te diria com hacer esto, pero es que ahora estoy un poco espeso, y no se me ocurre mas que esto "
__________________
Tu portal de manga y anime.
  #5 (permalink)  
Antiguo 23/06/2003, 03:04
 
Fecha de Ingreso: mayo-2002
Mensajes: 197
Antigüedad: 22 años, 1 mes
Puntos: 0
Y no te ocurrirá eso por la longitud de alguna tabla o algun elemento de esta que le tengas puesto al foro? Si es asi prueba a hacerla con porcentajes.
  #6 (permalink)  
Antiguo 02/07/2003, 13:48
Avatar de Halcon_2003  
Fecha de Ingreso: mayo-2003
Ubicación: Galicia - Pcia. de Pontevedra
Mensajes: 45
Antigüedad: 21 años, 1 mes
Puntos: 0
Ya lo solucione de la siguiente forma:
Function AcomodarTXT(txt)
txt = Replace (txt, vbCrLf, "<BR>")
acomodarTXT = txt
End function
__________________
Halcon
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 16:01.