> Und wie sieht die L�sung jetzt aus?
so:
strDateiname = Request.ServerVariables("APPL_PHYSICAL_PATH") &
"\data\15_0_0.txt"
SET objFS = Server.CreateObject("scripting.FileSystemObject")
SET objDatei = objFS.OpenTextFile(strDateiname,1,true)
Betreff_0 = objDatei.Readline
Betreff_1 = Split(Betreff_0," ")
Betreff_2 = Split(Betreff_1(1),"-")
Datum = Betreff_2(2) & "." & Betreff_2(1) & "." & Betreff_2(0)
ObenAb = 1 : UntenAb = 1
Zeilen = split(objDatei.readAll(),vbCrLf)
For i = ObenAb To ubound(Zeilen)-UntenAb
Response.write Datum & " " & Zeilen(i) & "<br>"
Next
objDatei.Close
SET objDatei = Nothing
SET objFS = nothing
| [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
