*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
