Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#5

Re: TextFile auslesen mit Funtion

  Alt 12. Mär 2008, 05:53
Moin.

du kannst, aber du musst es nicht. ExtractValues() erwartet das INSERT-Statement im ersten Parameter, also kannst du den Dump auch zeilenweise verarbeiten. So ein SQL-Dump kann schon mal etwas größer werden und vielleicht musst oder willst du mit dem Hauptspeicher knausern.

Delphi-Quellcode:
procedure SQLDumpToCsv(var dump, csv: TextFile);
var
  s: TStrings;
  stmt: string;
begin
  s := TStringList.Create;
  try
    while not Eof(dump) do
    begin
      Application.ProcessMessages;
      ReadLn(dump, stmt);
      ExtractValues(stmt, s);
      WriteLn(csv, s.CommaText);
    end;
  finally
    s.Free;
  end;
end;
Freundliche Grüße
  Mit Zitat antworten Zitat