So grob angedacht:
Function PlaceReturns(thePart, NumberOfReturns, MaxLength)
Dim ActualPosition, PartsToAddReturn, ActualTo, ActualLength
ActualPosition = 0
ActualLength = len(thePart)
Redim PartsToAddReturn(ReturnsToAdd)
For Returns = 0 To ReturnsToAdd
ActualTo =ActualPosition + MaxLength
If ActualTo > ActualLength Then ActualTo = ActualLength
PartsToAddReturn(Returns) = mid(thePart,ActualPosiotion, ActualTo) &
vbCrLf
ActualPosiotion = ActualPosiotion + MaxLength
Next
PlaceReturns = join(PartsToAddReturn)
End Function
Function CheckWordLength(Eingabe, MaxLength)
Dim Parts, NumberOfParts, Actual, ActualPart
Dim Spaces, ReturnsToAdd
Parts = Split(Eingabe)
NumberOfParts = UBoud(Parts)
For Actual = 0 To NumberOfParts
ReturnsToAdd = int(len(Parts(Actual)))
If ReturnsToAdd > 0 Then
Parts(Actual) = PlaceReturns(Parts(Actual), ReturnsToAdd,
MaxLength)
Else
Parts(Actual) = Parts(Actual) & " "
End If
Next
CheckWordLength = join(Parts)
End Function
Aufruf z.B.
Response.Write(CheckWordLength("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa",40))
> -----Urspr�ngliche Nachricht-----
> Von: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]Im Auftrag von J�rg L�gering
> Gesendet: Samstag, 28. Dezember 2002 14:52
> An: [EMAIL PROTECTED]
> Betreff: [Coffeehouse] automatischen Umbruch
>
>
> Hallo zusammen,
>
> ich habe da folgendes Problem. Ich habe ein Eingabeformular indem der
> Benutzer unter anderem in eine Memofeld ( Text bei SQL ) einen
> l�ngeren Text
> ( Beschreibung ) eingeben darf. Jetzt gibt es nat�rlich auch User die nur
> Unfug im Kopf haben und dort
>
> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
> aaaaaaaaaa
> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
> aaaaaaaaaa
> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
> aaaaaaaaaa
> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
>
> so etwas eintragen, das f�hrt bei mir dann auf der Seite dazu, dass die
> Seite auseinander gedr�ckt wird, also aus der Form gebracht wird.
> Da der Bereich auf der Seite dynamisch ist und auch sein muss habe ich mit
> solchen Usern nat�rlich meine Probleme.
>
> Gibt es dort eine M�glichkeit, dass man einen automatischen
> Umbruch nach ca.
> 100 Zeichen einleiten kann ?
>
> F�r eine Info w�hre ich sehr Dankbar.
>
> Gru� J�rg
>
>
>
> _______________________________________________
> Coffeehouse mailing list
> [EMAIL PROTECTED]
> http://www.glengamoi.com/mailman/listinfo/coffeehouse
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
