Nein, aber:
das kann nicht funktionieren:
Response.Write(CheckWordLength("<%=Text%>",40))
sondern
<%Response.Write(CheckWordLength(Text,40))%>
> -----Urspr�ngliche Nachricht-----
> Von: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]Im Auftrag von J�rg L�gering
> Gesendet: Samstag, 28. Dezember 2002 16:02
> An: [EMAIL PROTECTED]
> Betreff: AW: [Coffeehouse] automatischen Umbruch
>
>
> Hallo Andreas,
>
> erst einmal Danke.
> Wenn ich f�r
> >Response.Write(CheckWordLength("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
> aaaaaaaaaa
> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa",40))
>
> dies einsetze
>
> Response.Write(CheckWordLength("<%=Text%>",40))
>
> Wird dann, auch wenn in <%=Text%> nach z.B. 10 Zeichen ein
> Leerzeichen ist,
> trotzdem nach 40 Zeichen ein Umbruch gemacht?
>
> Gru� J�rg
>
>
>
> -----Urspr�ngliche Nachricht-----
> Von: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]] Im Auftrag von Andreas Roth
> Gesendet: Samstag, 28. Dezember 2002 15:31
> An: [EMAIL PROTECTED]
> Betreff: AW: [Coffeehouse] automatischen Umbruch
>
> 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("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
> aaaaaaaaaa
> 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
>
>
> _______________________________________________
> Coffeehouse mailing list
> [EMAIL PROTECTED]
> http://www.glengamoi.com/mailman/listinfo/coffeehouse
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
