On Thu, 23 May 2002 00:39:57 +0200, "Jakob Munck"
<jakob.munck@tdcadsl.dk> wrote:
>Følgende tekst skal altså melde fejl:
>
>"Ole er en rar
dreng som har mange venner"
>
>fordi der er mere end 20 z-er i række.
>
>Hvordan skrives koden så?
Prøv noget i retning af følgende:
arrStreng = Split(strStreng)
strErr = ""
For i = 0 To UBound(arrStreng)
If Len(arrStreng(i)) > 20 Then
strErr = "Ordet " & arrStreng(i) & " er for langt"
Exit For
End If
Next
If strErr <> "" Then
' Gør et eller andet
End If
Utestet kode - men ideen er at dele din streng op i et array med
Split, gennemløbe arrayet for at teste oredenes længde og så give en
fejl meddelelse, hvis ordet er for langt.
Good luck,
--
Jørn Andersen,
Brønshøj