Hat's denn nu geklappt?
CU
Schmiddl
Am Donnerstag den, 24. Januar 2002, um 11:34, schrieb Michael Schmidt:
> 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
>
| [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
