Linjeskift uden at knække et ord

Jeg kunne forstille mig noget i stil med dette:

tekst = rs("tekst")
tekst = Replace(tekst, vbCrLf, "<br>")
'sikrer tvungen linieskift i textarea (word wrap)
i = 1
do while i < len(tekst)
  if (len(tekst) - i) < 40 then
    strNyStreng = strNyStreng & right(tekst, (len(tekst) - i))
  else
    iSpPos = instrrev(tekst, " ", i+40)
    if iSpPos < i then
      strNyStreng = strNyStreng & mid(tekst, i, 40) & "-<BR> "
    else
      strNyStreng = strNyStreng & mid(tekst, i, iSpPos-i) & "<BR> "
    end if
  end if
  i = i + 40
next

...og så skal i jo da kun forøges med det man rent faktisk klipper:

tekst = rs("tekst")
tekst = Replace(tekst, vbCrLf, "<br>")
'sikrer tvungen linieskift i textarea (word wrap)
i = 1
do while i < len(tekst)
  if (len(tekst) - i) < 40 then
    strNyStreng = strNyStreng & right(tekst, (len(tekst) - i))
    i = len(tekst)
  else
    iSpPos = instrrev(tekst, " ", i+40)
    if iSpPos < i then
      strNyStreng = strNyStreng & mid(tekst, i, 40) & "-<BR> "
      i = i + 40
    else
      strNyStreng = strNyStreng & mid(tekst, i, iSpPos-i) & "<BR> "
      i = iSpPos + 1
    end if
  end if
next

Et forslag kunne være at du når du har valgt den ønskede position (hver 40. bogstav) laver en løkke som bevæger sig frem eller tilbage i tekststringen indtil den møder et mellelrum og så laver du linjeskiftet på den position. Du skal der huske at opdatere tæller-variablen (i i dette tilfælde) til den position hvor du faktisk laver mellemrummet.

Du skal nok overveje at ændre til noget andet end et for-loop da det er big time no no at ændre tæller-variablen i koden. Derfor brug noget while istedet.

For I = 1 To Len(Tekst)
    If Len(Tekst) > 40 Then
        For T = 40 To 1 Step -1
        If Mid(Tekst, T, 1) = " " Then
          strNyStreng = strNyStreng & Left(Tekst, T) & "-<BR> "
          Tekst = Right(Tekst, Len(Tekst) - T)
          Exit For
        End If
      Next
      Else
      strNyStreng = strNyStreng & Tekst & "-<BR> "
      Exit For
      Exit For
      End If
Next

Jeg har bare gjordt det at jeg lavede en tabel og bare skrev tekst = Replace(tekst, vbCrLf, "<br>")

det har jeg aldrig tænkt over at det bare vil virke sådan.. vel bare en der har bilt mig ind en gang at man skulle gøre det så besværlig.. hmm men ellers tak for svarene softspot du for point

OK (selvom jeg ikke helt forstod om det var brugbart eller ej)... :)

Tak for point :)