Hallo Andreas, ja, jetzt geht es Danke.
Gru� J�rg -----Urspr�ngliche Nachricht----- Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Im Auftrag von Andreas Roth Gesendet: Samstag, 28. Dezember 2002 18:19 An: [EMAIL PROTECTED] Betreff: AW: [Coffeehouse] AW: automatischen Umbruch 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 _______________________________________________ Coffeehouse mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/coffeehouse
