Longitud del mensaje del foro

[Halcon_2003]

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

[meru-kun]

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>

[Halcon_2003]

Pero como hago eso, disculpa pero soy muy novato en esto, lo bueno es que normalmente aprendo rapido
Gracias

[meru-kun]

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 "

[choroy]

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.

[Halcon_2003]

Ya lo solucione de la siguiente forma:
Function AcomodarTXT(txt)
txt = Replace (txt, vbCrLf, "<BR>")
acomodarTXT = txt
End function