Hej
Jeg nu siddet hele dag med at skal lave en function til at split en tekst
af med, men kan ikke lige se hvor dan det laves optimal.
Her er en koden eks.
StrTekst = "Jeg gik mig en tur over sø og land og der mødte jeg en gammel
mand"
call setlines(strtekst, 30) ' der maks. må være på 30 tegn.
Public function setLines(strTxt, intLngth)
NumberOfLines = Len(strText)
if NumberOfLines > intLngth then
text1 = left(strtext, intlngth)
text2 = mid(text1, intlngth, 1)
if text2 = " " then
setLines= text1
else
i = 1
do until text2 = " "
text2 = mid(text1, intlngth - i, 1)
i = i + 1
loop
setLines = left(strtext,intlngth - i)
end if
End function
Så lang så godt, den tager streng og deler den op til max 30 tegn og eller
der til hvor der er et mellem rum men max 30 tegn.
nu vil jeg så gerne have at den igen tager den restende streng og knækker
den igen til max 30 tegn osv.
Er der en som har en metode eller har lavet sådan en funktion til at kunne
gøre det??
Takker
N9
|