Finde længden af et ord i en sætning.

Du må lige sige lidt mere om din situation.
Står du med en lang tekststreng, du vil have slået i stykker i flere linier?
Er der altid et blanktegn efter komma eller punktum?
Kunne det ikke tænkes at der var ord, der var længere end 30 tegn?
(det kunne ske, hvis det var brugere, der havde fået mulighed for at indlæse noget. Nogle vil fjolle desværre)

Evt. kunne man bruge split på strengen indeholdende sætningen, og så tælle i arrayet der bliver lavet, hvor langt hvor enkelt ord er.

Var det en mulig løsning?

Du kan dele ved mellemrum og tjekke hver ord.

MAX_LEN = 20
ordArr = Split(str," ")
for i = lbound(ordArr) to ubound(ordArr)
  if len(ordArr(i)) >= MAX_LEN then
    'uha uha ikke godt
  end if
next

Der skal indsættes en tekst i et tabelfelt der ikke må være mere end 30 tegn bredt. Teksten kunne f.eks. skrives som      xxxxxx/xxxxxx/xxxxx/xxxx/xxx
uden mellemrum mellem skråstegerne, så jeg bliver nødt til at foretage en orddeling og et linieskift. Håber det var svar på spørgsmålet.

Her er et eksempel, der muligvis løser problemet:

<%
Option Explicit ' Alle variablerne skal defineres! Så undgås stavefejl.. Bør *altid* bruges! Husk: skal være den første linie i filen!

' Definition/"dimmition" af variabler:
dim MAX_LEN, ordArr, str, i, strNy
dim a, tmp
dim NYT_TEGN

' der insættes et mellemrum efter Max antal bogstaver.. det retter du bare til det du vil
' f.eks. linieskift: NYT_TEGN = vbCrLf (uden "" tegn):
NYT_TEGN = " "

' en test streng:
str = "dette er noget tekst med et laaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaangt ord"

response.write "<br><br>Original: " & str ' kan slettes efter test..

MAX_LEN = 20 ' max længde per ord.. det retter du bare..

ordArr = Split(str, " ")
for i = lbound(ordArr) to ubound(ordArr)
tmp = ordArr(i)
  if len(ordArr(i)) >= MAX_LEN then

    for a = 0 to len(ordArr(i)) / MAX_LEN
      if len(tmp) >= MAX_LEN then
        strNy = strNy & NYT_TEGN & left(tmp, MAX_LEN) & vbCrLf
        tmp = mid(tmp, MAX_LEN + 1)
      end if
    next

  end if
strNy = strNy & " " & tmp
next

response.write "<br><br>Ny: " & strNy ' kan slettes efter test..
%>

Det virker tak til thesurfer pointene er dine. Tak for hjælpen

Et svar er smidt :)
Jeg ville sikkert have kommet frem til eagleeyes løsning (eller en der ligner), men synes alligevel at han skal have points :)

ok så må eagleeyes godt pointene

ahhh.. min fejl :)
rettelse til mit svar:
"Jeg ville sikkert have kommet frem til eagleeyes løsning (eller en der ligner)" = den første del af koden

"men synes alligevel at han skal have points :)" = "men synes alligevel at han OGSÅ skal have points :)"

Jeg vil også gerne have points :)
Du skal bare vente til eagleeye har lagt et svar.. så kan du fordele pointsne via "Avanceret"-knappen.. :)

Nej jeg behøver ikke point her, giv dem til thesurfer det virker jo ;)

Takker for points :)