Hi, versuche doch mal bei der Ausgabe TLine auszugeben und nicht objDatei.ReadLine, wie sieht es denn dann aus?
lg. Karin > -----Urspr�ngliche Nachricht----- > Von: Thomas Bandt [mailto:[EMAIL PROTECTED]] > Gesendet: Donnerstag, 24. J�nner 2002 11:04 > An: AspGerman Kaffeehaus > Betreff: [aspdecoffeehouse] AW: Ich stehe mal wieder auf'm Schlauch... > > > Guten Morgen, > > der "Code" besteht im Grunde aus nix anderem, weil ich das > ja wie gesagt nur teste. Aber okay ;-) > > 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 filtern und das Datum da rausholen > > 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) > > Do Until objDatei.AtEndOfStream > TLine = objDatei.ReadLine > If Left(Trim(TLine),1) = "=" Then > objDatei.SkipLine > Elseif Left(Trim(TLine),1) = "P" Then > objDatei.SkipLine > Else > Response.Write objDatei.ReadLine & > "<br>" & VbCrlf > End If > Loop > > objDatei.Close > SET objDatei = Nothing > SET objFS = nothing > > > -----Urspr�ngliche Nachricht----- | [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
