Aja... ich glaub das war dieser Bug, dass Replace nur das erste auftretten
replaced...
Falls ja(Test: replace("axaxaxaxa","a","y")), musst Du mit regExp und
Global=true replacen...
CLaudius
> Nee es geht nicht. Ab Zeile 2 der Textbox wird der Text wieder vorn an
> gestellt ??
>
>
> MfG
> J. Schwalenberg
> ______________________
> www.udex.de
> www.ultradevextensions.de
> [EMAIL PROTECTED]
> ______________________
> Think big - UDEX Software !
> Software & Extensions for Dreamweaver Ultradev & MX
> ----- Original Message -----
> From: "Claudius Ceteras" <[EMAIL PROTECTED]>
> To: "AspGerman Kaffeehaus" <[EMAIL PROTECTED]>
> Sent: Monday, May 27, 2002 8:11 PM
> Subject: [aspdecoffeehouse] RE: AST to TXT
>
>
> > > Hier mal der Code zum besseren Verst�ndnis.
> > >
> > > <%
> > > if Request("submit")<>vbNullString then
> > > dim strurl, links, diff, rechts, udexchr, udexText
> > >
> strurl=Replace(""&Request.ServerVariables("URL")&"",".asp","1001.txt")
> >
> > hat das einen bestimmten Grund, dass Du unn�tigerweise vorne und
> hinten
> > einen leerstring anh�ngst?
> >
> > >
> > > For I = 1 to Request.Form.Count
> > > links=len(Request.Form.Key(I))
> > > rechts=15
> > > diff=rechts-links
> > > For e = 1 to diff
> > > udexchr=udexchr & " "
> > > Next
> > >
> > > udexText = udexText & Request.Form.Key(I) & ": "&udexchr &
> > > Request.Form.Item(I) & vbCRLF
> > > udexchr=""
> > > Next
> > >
> >
> > oha... das geht auch k�rzer... und Dein Problem mit edn mehrzeiligen
> > Textfeldern sollte damit auch gel�st sein... :-)
> >
> > laenge= 15
> > for each key in Request.Form
> > udexText = udexText & key & ": " & space(laenge-len(key)) & _
> > replace(Request.Form(key), vbCrLf, vbCrLf&space(laenge+2)) & vbCRLF
> > next
> >
> > > postPage=Server.Mappath(""&strurl&"")
> >
> > wieso den schon wieder vorne und hinten leerstrings???
> >
> > Gruss,
> >
> > Claudius
> >
> > >
> > > dim objFSO, objFile
> > > set objFSO = Server.CreateObject("Scripting.FileSystemObject")
> > > set objFile = objFSO.OpenTextFile(postpage, 2, True, 0)
> > > objFile.Write udexText
> > > objFile.Close
> > > Response.redirect("testform_text1001.txt")
> > > End if
> > >
> > > %>
> >
> > --
> > GMX - Die Kommunikationsplattform im Internet.
> > http://www.gmx.net
> >
> >
> > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
> > | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
> > | Sie k�nnen sich unter folgender URL an- und abmelden:
> > |
> http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
>
>
> | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
>
--
GMX - Die Kommunikationsplattform im Internet.
http://www.gmx.net
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
