<% ' en test streng: str = "dette er noget tekst med et laaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaangt ord"
response.write "<br><br>Original: " & str ' kan slettes efter test..
MAX_LEN = 20 ' max længde per ord.. det retter du bare.. NYT_TEGN = " " 'Indsættes i langt ord. Evt kan <br> for linjeskift brugers ordArr = Split(str, " ") for i = lbound(ordArr) to ubound(ordArr) tmp = ordArr(i) if len(ordArr(i)) >= MAX_LEN then for a = 0 to len(ordArr(i)) / MAX_LEN if len(tmp) >= MAX_LEN then strNy = strNy & NYT_TEGN & left(tmp, MAX_LEN) & vbCrLf tmp = mid(tmp, MAX_LEN + 1) end if next
Prøv at ligge dette kode ind i bunden af din fil: <% function delord(str, max_antal_karakter) MAX_LEN = max_antal_karakter ' max længde per ord.. det retter du bare.. NYT_TEGN = " " 'Indsættes i langt ord. Evt kan <br> for linjeskift brugers ordArr = Split(str, " ") for i = lbound(ordArr) to ubound(ordArr) tmp = ordArr(i) if len(ordArr(i)) >= MAX_LEN then for a = 0 to len(ordArr(i)) / MAX_LEN if len(tmp) >= MAX_LEN then strNy = strNy & NYT_TEGN & left(tmp, MAX_LEN) & vbCrLf tmp = mid(tmp, MAX_LEN + 1) end if next end if strNy = strNy & " " & tmp next delord = strNy end function %>
og lav denne linje: Response.write(Replace(Rs("comment"), vbcrlf, "<br>" & vbcrlf))
Om til: Response.write(delord(Replace(Rs("comment"), vbcrlf, "<br>" & vbcrlf),20))
P.S: eksperten er F***** på hos mig lige i øjeblibber får en masse timeouts og sql fejl..
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.