asp, opbrydning af lange ord?

du kan i en tabel angive hvor bred du  vil havde en, angiver i % eller pixels:

<table width="250">

Ja, men prøv selv at lav en tabel der er 50 bred, og skriv d 100 gange, så udvider den sig!

Ja .. måske du skal prøve at oprette spørgsmålet i (D)HTML kategorien.

Nej, for jeg vil dele ordet med en asp

Så må du tjekke på hvor mange karakter som der max må vær på en linie i tabellen og så sætte <br> ind i strengen som give en ny linie i HTML delen...

Jeg har engang lavet denne function som satte <br> ind ved max X antal tegn pr linie og den satte også <br> ind i ord hvis de er for lange så man får max X antal tegn pr linie:



inputStr = "Hej max dhdhdhdhdhdhdhdhdhdhdhdhdhdhhdhddhdh tegn pr linie testadf!<br> dfaskal asfasfdse bodasfasdrt fra br. Tester lige en gang!<br>1.punkt!<br>2.punkt!<br>!<br>virker det ?? det håber dfa asdfasdf adsf ads asdf 12345678901234567890123456 asdf asdf asdjeg da deadt gør.<br>"
Response.write "<br>inputStr:" & inputStr & "<br>"

ConstmaxCharPrLine = 20
charPrLine = 0 'Counter
i = 1 'Counter
outStr = ""
inputStr = replace (inputStr,"<br>", vbCrLf)
do while len(inputStr) > 0
  if len(inputStr)>maxCharPrLine then
    maxCharPrLine = ConstmaxCharPrLine
  else
    maxCharPrLine = len(inputStr)
  end if
  indexBR = inStr(1,inputStr, Chr(10)) 'Tjek for return
  if indexBR = 0 then 'ingen return
      indexMM = inStrRev(inputStr," ",maxCharPrLine)
      if indexMM = 0 then 'Tjek om der ingen mellemrum er i ordet
        indexMM = maxCharPrLine
        outStr = outStr & Left(inputStr,maxCharPrLine)
        if (len(inputStr) > maxCharPrLine) then
          outStr = outStr & "-" & vbCrLf
        end if
      else
        outStr = outStr & Left(inputStr,indexMM) & vbCrLf       
      end if
      indexBR = indexMM
  else
    if indexBR > maxCharPrLine then 'tjek om der er flere tegn end tilladt
      indexMM = inStrRev(inputStr," ",maxCharPrLine)
      if indexMM = 0 then 'Tjek om der ingen mellemrum er i ordet
        indexMM = maxCharPrLine
        outStr = outStr & Left(inputStr,maxCharPrLine) & "-" & vbCrLf
      else
        outStr = outStr & Left(inputStr,indexMM) & vbCrLf
      end if
      indexBR = indexMM
    else
      outStr = outStr & left(inputStr,indexBR)
    end if
  end if
  inputStr = mid(inputStr,indexBR+1)
  i = i + 1
  if i = 50 then inputStr = ""
loop
outStr = replace (outStr, vbCrLf, "<br>")


Response.Write  outStr

Det er sgu smukt! Jeg har ikke kopierer dig direkte (alt for let *G*), men blot luret det af! Men siger mange tak, hvis du vil have points skal du lige svare igen, jeg afviste jo før ...!

Ok. :)