Ja, aber ReadLine schiebt den Pointer auch weiter. Wenn du dann skipLine
machst, bist du noch eine Zeile weiter ;-)
Also besser:
firstChar = Left(Trim(TLine),1)
If firstChar <> "=" and firstChar <> "P" Then
Response.Write objDatei.ReadLine & "<br>" & VbCrlf
End If
CU
Schmiddl
> 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
>
| [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
