Hi NG.
Delphi 4 (update 3)
Hintergrund:
Ich speichere von einer Webseite eine
CSV-Datei per FileStream in eine Textdatei. Diese Textdatei lese ich anschließend mittels ASCIIDRV der
BDE als Datentabelle ein.
Dabei muss ich zwei Dinge beachten:
a) Enthält die runtergeladene Datei den Text 'Keine Daten vorhanden', so kann und soll nichts ausgewertet werden.
b) Sind Daten vorhanden, so enthält die
CSV-Datei in der ersten Zeile die Header-Daten/Feldnamen der Tabelle. Diese Zeile soll nicht in die Textdatei gespeichert werden.
Wie kann ich bereits beim Download Fall a) oder b) erkennen und darauf entsprechend beim Abspeichern in die Textdatei reagieren?
Mein Code:
Delphi-Quellcode:
f := tfilestream.Create(sUhrkauf, fmOpenReadWrite);
try
HTTP.Get(sUrl, f);
f.Seek(soFromBeginning, 0)
if (fRead( .... = 'Keine Daten vorhanden.')
then
KEIN SPEICHERN IN TEXTFILE
else
SPEICHERE BIS AUF DIE ERSTE ZEILE IN TEXTFILE
finally
f.Free;
end;
Wenn ich aber TFileStream richtig verstehe, speichert der bereits beim HTTP.Get alles in die Textdatei.
Kann mir jemand helfen?
gruß,
Peter
P.S.: Ich möchte nicht den Umweg gehen und die gesichter Textdatei als Textfile öffnen und dann bearbeiten.