simpel orddeling

Orddeling ?
På hvilken måde.

Du kan klippe i en tekst med left eksvis.

str = "Hej med dig noget test her"
str = Left(str, 15)

Så indeholder str.  "Hej med dig nog"

der er i forbindelse med en længere tekst som skal fordeles over flere linier

f.eks.
hej med dig hvor går det med køre-
kortet har du snart får det osv.

hmmm.. så er det vist ikke længere en "simpel" orddeling, hvis du skal have gramatisk korrekt deling...

det behøver som ikke at være gramatisk hvis det er for kompliceret

Denne kan klippe linjer over hvis de er lange. Men den kan kun klipper på mellemrum, jeg har en anden som kan klippe mid i ord hvis ordet er længere end max længden på en linje:


inputStr = "Meget lang tekst som skal bruges til"

reDim  arr(0)
str = replace(inputStr,"<br>",vbCrLf)
MaxLength = 40
while (LEN(str)>0)
  splitIndex = InStrRev(str, vbCrLf, MaxLength)
  if splitIndex = 0 then
    splitIndex = InStrRev(str, " ", MaxLength)
    if splitIndex = 0 then splitIndex = LEN(str)
  end if 
  ReDim Preserve arr(UBOUND(arr) + 1)
  arr(UBOUND(arr)) = LEFT(str, splitIndex)
  str = MID(str, splitIndex + 1)
wend
outStr = ""
for i = LBound(arr) to UBound(arr)
  if arr(i) <> "" then
    outStr = outStr & arr(i) & vbCrLf
  end if
next
outStr = replace (outStr, vbCrLf, "<br>")

Response.Write outStr

Det som jeg har brug for er at ordet bliver delt hvis ikke hele ordet kan være på linien, altså ligesom i word, det behøver bare ikke være gramatisk korekt.
Så prøv igen eagleeye

Da der ikke er kommet svar lukker og slukker jeg hermed