Wordwrap på tekst fra textarea - HASTER!!!!

Det er lidt en umulig opgave da du ikke på nogen måde kan finde ud af hvor bredt hvert bogstav er. Det kan du kun vide hvis du bruger Courier New eller en anden non-proprotional (staves det ikke sådan !?) skrifttype... og så skal du selv finde ud af det...

Okay, det kan jeg godt se. Men lad os sige at der f.eks. max må være 100 tegn i en linie. Det kan vel godt lade sig gøre, ikke?

Jo sagtens .. der skal en wordwrap rutine til, men såan en skulle ikke være svær at grave frem .. jeg tror måske jeg har en og ligge .. kigge lige..

Nå, jeg kan ikke finde en, men så laver jeg en til dig ..

Jeg fandt denne en dag da jeg skulle bruge en \"wrapper\". Håber den kan bruges..
----------------------------------------------
<% \' This function allows you to choose a string and the number of characters to wrap at. It works 
\' in tables and other areas.
\'
\' Call with
\'
\' Bigtext(string,length)
\'
\' Where String is the string you wish to process, and length is the number of characters in a 
\' column to wrap at. It also turns null strings into \"\" blank strings to avoid invalid use of null 
\' errors.
\'
\' Word wrapping works most of the time, some words might get truncated, I am not sure why. 
\' It is a good start at building your own routine to wrap words. I estimate it wraps words 80% 
\' of the time, and the rest tend to cut them off.
\'
\' The next line is printed out as a BR tag, this is to display in tables. If you want to store in 
\' databases, you can replace this with CHR(13) & CHR(10) or VBCrLf instead.  %>
<%
Function BigText(s_Text, i_Len)
\' Prints out Big Text in small chunks
Dim i_pos \' position in string
Dim s_Temp
Dim s_Line
Dim i_space \'Location of Space
   
    If Trim(\"\" & s_Text) <> \"\" Then \'Not Blank or Null
        s_Temp = \"\"
        i_pos = 1
        \' Loop through and print out all of the text in case it is too long.
        Do While i_pos < Len(s_Text) \'While part we are looking at is less than the whole thing
            s_Line = Mid(s_Text,i_pos,i_Len) \'Get a line i_Len long
            i_space = i_Len \'Set i_space to i_len
            If Len(s_Line) = i_Len Then \'If i_Len characters, scan for a space
                If Right(s_Line,1) <> \" \" Then 
                \'If last character is not a space, backup and find a non-space to wrap the word
               
                    Do While Mid(s_Line,i_space,1) <> \" \" 
                    \' If not space, back up until we hit the old position or a non-space
                        i_space = i_space - 1 \'Go back one character
                        s_Line = Mid (s_Text,i_pos,i_space) \'Refresh the line
                    Loop
                    If i_space = i_pos Then
                    \' If we hit the last position, use the whole line
                        s_Line = Mid(s_Text,i_pos,i_Len)
                        i_space = i_Len
                    End If
                End If
            End If
            s_Line = Mid(s_Text,i_pos,i_space) \'Refresh the line
            s_Temp = s_Temp & s_Line & \"<br>\" \'Add a CR/LF aka <BR> tag after the line
           
            i_pos = i_pos + i_space \'Advance to the next i_space characters
        Loop
        BigText = s_Temp \'Set the function to the parsed out, word wrapped, line
    Else
        BigText = \"&nbsp;\" \'Must be blank or Null, make it a non-breaking space
    End If
End Function
%>
---------------------------------------

Okay .. det var lidt nemmere se\'følig :-)

tdaugaard >> jeg vil ellers gerne se hvad du kunne have fundet på.. Og specielt hvis det var lidt forklaring.. Da vi ikke alle er guro\'er *S*

Henrik

guro.net:> jeg er først lige startet ... og din funktion ser rimligt OK ud .. men jeg skal da gerne vise min frem når jeg bliver færdig :-)

guro.net:> Her er mit forslag .. lidt mere simpelt end det du kom med .. men jeg aner ikke hvilken der er hurtigst .. *er lidt stolt af at jeg har lavet den .. har aldrig prøvet før .. *LOL**

<pre>
<%
    Function Wrap(strString, intWrapAt)
        WrapChar = vbCrLf
       
        \' \"\" & pga. suppresion af null.
        If Len(strString) < intWrapAt Then Wrap = \"\" & strString: Exit Function

        Do
            If Len(strString) < intWrapAt Then strFinal = strFinal & strString: Exit Do
           
            \' Hvis der hvor vi cutter er et mellemrum er vi home safe
            If Mid(strString, intWrapAt, 1) = \" \" Then
                strPart = Left(strString, intWrapAt)
                strString = Right(strString, Len(strString) - intWrapAt)
                strFinal = strFinal & strPart & WrapChar

            \' Ikke ? Nå .. så prøver vi at finde et mellemrum bagud, hvis intet fundet så prøver
            \' vi at finde et foran der hvor vi ville cutte. Hvis heller intet; returnér hele strengen
            \' og afslut loopet.
            Else
                strPart = Left(strString, intWrapAt)
                intOff = InStrRev(strPart, \" \")
                If intOff = 0 Then intOff = InStr(strString, intWrapAt, \" \")
                If intOff = 0 Then strPart = strString
                strPart = Left(strString, intOff)
               
                strString = Right(strString, Len(strString) - Len(strPart))
                strFinal = strFinal & strPart & WrapChar
            End If
        Loop

        Wrap = strFinal
    End Function

    strStreng = \"dette er en lang streng som vi skal wordwrappe ned til max 50 tegn! Det burde gerne virker perfekt, men nu ser vi..\"
    Response.Write Wrap(strStreng, 29)
%>
</pre>

i variablen WrapChar skriver du det som du vil have den skal bruge til at dele en linie .. f.eks. vbCrLf eller <br>, <p> whatever ..

Da det er ved at være jul. Og jeg står i et forfærdeligt dilemma. Mens tdaugaard lavede et script til mig, sendte guro.not et.

Vi gør det på følgende måde:

tdaugaard får de 300 point.

guro.not får 150 af mig. Du kan besvare spørgsmålet i asp-konfen med subj: \"point til guro.not\", så får du de 150.

Tak for hjælpen begge to!

  Accepteret svar fra tdaugaard
Point : 600
11/12 2000 21:53:21 

?? tror lige jeg skal have fat i admin!

*lol* jeg troede der stod \"guro.net\" og ikke .not
Men det var så lidt ..