Hallo Claudius,
Einfach Spitze, auf die Idee war ich schon gekommen, allerdings wu�te ich nicht wie
ich das mit den Textboxen genau machen soll. In Sachen Codekomprimierunmg bist Du der
K�nig !
> for each key in Request.Form
> udexText = udexText & key & ": " & space(laenge-len(key)) & _
> replace(Request.Form(key), vbCrLf, vbCrLf&space(laenge+2)) & vbCRLF
> next
Die Leerstrings habe ich eigentlich nicht bewu�t im Code. Ich habe mal ein Problem
mit einem Server Mappath gehabt und es ging nur �ber diese Methode. Ich habe mir
diesen Bereich des anderen Codes einfach hier rein kopiert.
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
