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
