Noch ein Fehler drin:
Also richtig:
firstChar = Left(Trim(TLine),1)
If firstChar <> "=" and firstChar <> "P" Then
Response.Write TLine & "<br>" & VbCrlf
End If
--------------------^
CU
Schmiddl
Am Donnerstag den, 24. Januar 2002, um 11:04, schrieb Thomas Bandt:
> 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-----
>> Von: Karin Walter [mailto:[EMAIL PROTECTED]]
>> Gesendet: Mittwoch, 23. Januar 2002 18:37
>> An: AspGerman Kaffeehaus
>> Betreff: [aspdecoffeehouse] AW: Ich stehe mal wieder auf'm Schlauch...
>>
>>
>>
>> vielleicht schickst du doch mal deinen Source, manchmal �bersieht
>> man vor lauter suchen eine Kleinigkeit, weiss ich aus Eigenerfahrung ;-)
>>
>>
>>
>> lg.
>> Karin
>>
>>> -----Urspr�ngliche Nachricht-----
>>> Von: Thomas Bandt [mailto:[EMAIL PROTECTED]]
>>> Gesendet: Mittwoch, 23. J�nner 2002 18:20
>>> An: AspGerman Kaffeehaus
>>> Betreff: [aspdecoffeehouse] AW: Ich stehe mal wieder auf'm Schlauch...
>>>
>>>
>>> Ja klar,
>>>
>>> in der Theorie wie gesagt alles super, aber praktisch
>>> baut er mist - und ich kann dahinter kein System er-
>>> kennen.
>>
>>
>>
>> | [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
>
| [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
