Bryt långa ord

Har ni ett forum eller en gästbok där folk brukar skriva lååååååååååååååååånga ord så att designen förstörs och dras ut i breddden? Med koden nedan kan ni undvika detta.

Självklart kan jag hjälpa dig med det. Nedan får du den funktionen som ska kontrollera alla ord som skrivs ut

strText = "Texten som är för lååååååååååååååååååååååååååååååååååååååååååång"  

    strNewText = ""

    intBreak = 50 'Hur många tecken får ett ord max vara?

    intCounter=0

      

    For x = 1 to Len(strText) 'loopa genom hela texten

        strTemp = Mid(strText,x,1) 'kolla tecken för tecken

        strTemp=asc(strTemp) 'kolla ascii värdet för aktuellt tecken

      

        If strTemp=32 Then 'asc(32)=mellanslag

            intCounter = 0 'om mellanslag, nollställ räknaren

       Else

           intCounter = intCounter+1 'annars öka räknaren med 1

       End if

     

       If intCounter < intBreak Then 'om räknaren < intBreak

           strNewText = strNewText + chr(strTemp) 'lägg till tecknet till strNewText

       Else

           strNewText = strNewText+" "+chr(strTemp) 'om räknaren > 55, lägg till mellanslag + tecknet

           intCounter = 0 'nollställ räknaren

       End If

    Next

      

    strNewText = Replace(Server.HTMLEncode(strNewText),vbcrlf,"<br />") 



    Response.Write(strNewText) 'skriv ut den nya texten

Det står kommenderat vad allt gör, det enda du behöver ändra på är strText och intBreak. Lycka till!

Detta tips skapades 2007-08-21 09:47:44 av Shadi. Det har lästs 415 gånger. ||

Kommentarer

Ingen har kommenterat denna artikel än.