Also Tippfehler beseitigt, nun geht das:
Function PlaceReturns(thePart, NumberOfReturns, MyLength)
Dim ActualPosition, PartsToAddReturn, ActualTo, ActualLength
ActualPosition = 1
ActualLength = len(thePart)
Redim PartsToAddReturn(NumberOfReturns)
For Returns = 0 To NumberOfReturns
ActualTo = MyLength
If (ActualPosiotion+MyLength)> ActualLength Then ActualTo =
ActualLength-(ActualPosition+MyLength)
PartsToAddReturn(Returns) = mid(thePart,ActualPosition, ActualTo) &
vbCrLf
ActualPosition = ActualPosition+ActualTo+1
Next
PlaceReturns = join(PartsToAddReturn)
End Function
Function CheckWordLength(Eingabe, MaxLength)
Dim Parts, NumberOfParts, Actual, ActualPart
Dim Spaces, ReturnsToAdd
Parts = Split(Eingabe)
NumberOfParts = UBound(Parts)
For Actual = 0 To NumberOfParts
ReturnsToAdd = int(len(Parts(Actual))/MaxLength)
If ReturnsToAdd > 0 Then
Parts(Actual) = PlaceReturns(Parts(Actual), ReturnsToAdd,
MaxLength)
Else
Parts(Actual) = Parts(Actual) & " "
End If
Next
CheckWordLength = join(Parts)
End Function
> -----Urspr�ngliche Nachricht-----
> Von: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]Im Auftrag von Andreas Roth
> Gesendet: Samstag, 28. Dezember 2002 18:01
> An: [EMAIL PROTECTED]
> Betreff: AW: [Coffeehouse] AW: automatischen Umbruch
>
>
> *Grummel* Der Script war bislang ungetestet. Ich probier es mal.
>
> > -----Urspr�ngliche Nachricht-----
> > Von: [EMAIL PROTECTED]
> > [mailto:[EMAIL PROTECTED]]Im Auftrag von J�rg L�gering
> > Gesendet: Samstag, 28. Dezember 2002 17:50
> > An: [EMAIL PROTECTED]
> > Betreff: [Coffeehouse] AW: automatischen Umbruch
> >
> >
> > Hallo Andreas,
> >
> > ich bekomme jetzt folgende Fehlermeldung.
> >
> > Ung�ltiger Prozeduraufruf oder ung�ltiges Argument: 'Mid'
> >
> > Das ist die Zeile.
> > PartsToAddReturn(Returns) = Mid(thePart, ActualPosiotion,
> > ActualTo) & vbCrLf
> >
> > Kannst Du mir bitte dabei mal helfen ?
> >
> > Gru� J�rg
> >
> >
> >
> >
> >
> >
> > -----Urspr�ngliche Nachricht-----
> > Von: [EMAIL PROTECTED]
> > [mailto:[EMAIL PROTECTED]] Im Auftrag von J�rg L�gering
> > Gesendet: Samstag, 28. Dezember 2002 16:13
> > An: [EMAIL PROTECTED]
> > Betreff: AW: [Coffeehouse] automatischen Umbruch
> >
> > Ja ich weis, war doch nur Sinngem��.
> >
> > Nochmals vielen Dank.
> >
> > Gru� J�rg
> >
> >
> > -----Urspr�ngliche Nachricht-----
> > Von: [EMAIL PROTECTED]
> > [mailto:[EMAIL PROTECTED]] Im Auftrag von Andreas Roth
> > Gesendet: Samstag, 28. Dezember 2002 16:08
> > An: [EMAIL PROTECTED]
> > Betreff: AW: [Coffeehouse] automatischen Umbruch
> >
> > 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
> >
> >
> > _______________________________________________
> > 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
