Export Paradoxtabelle in eine Textdatei mit Trennzeichen

[rincewind]

Hallo,

ich versuche eine Paradoxtabelle in eine Textdatei zu exportieren. Mit BatchMove ist das ja auch kein Problem. Nur sollen die einzelnen Datenfelder mit Trennzeichen, in diesem Fall ein Semikolon getrennt werden.
Wie bekommt man das mit BatchMove hin oder anders ganz anders?
Ich habe bisher keine Möglichkeit gefunden. :(

Viele Grüße

Uwe

[DelphiDeveloper]

kannste doch einfach so machen
vorausgesetzt deine paradox tabelle enthaelt keine bildchen, memos etc.

Delphi-Quellcode:

procedure CSVExport;
var
  i: integer;
  F: TextFile;
  Fn: string;

begin
  Fn := 'c:\myCSVexport.txt';
  AssignFile(F, Fn);
  Rewrite(F);

  Table1.open;
  while not table1.eof do
  begin
    for i := 0 to table1.FieldCount - 1 do
    begin

      write(F, table1.fields[i].Value);
      write(F, ';');
    end;
    write(F,#13#10);
    table1.next;
  end

end;

[edit=r_kerber]Delphi-Tags gesetzt. Mfg, r_kerber[/edit]

[woki]

Hi,

Vorsicht, das geht in die Hose, ein csv (comma separated values) das funktioniert ist doch noch ein wenig komplizierter.

cu
Wolfgang

[DelphiDeveloper]

hi wolfgang,
dann erklär uns mal was du meinst mit:

Zitat:

Vorsicht, das geht in die Hose, ein csv (comma separated values) das funktioniert ist doch noch ein wenig komplizierter.

[woki]

Hi,

Überlegt euch, was passiert wenn das verwendete Trennzeichen auch im eigentlichen Inhalt vorkommt.
Ich hab jetzt nicht die Zeit gerade mal eine vollständige Definition eines funktionierenden csv zu posten, dachte aber ich sollte trotzdem mal für das Problem sensibilisieren.

Grüsse
Woki

[barnti]

Hi woki,

ich glaube DelphiDeveloper wollte Dich für die deutsche Rechtschreibung sensibilisieren: ;)

Zitat:

Vorsicht, das geht in die Hose, ein csv (comma separated values) das funktioniert ist doch noch ein wenig komplizierter.

Gruß,

Barnti

[woki]

Zitat:

Zitat von barnti

Hi woki,

ich glaube DelphiDeveloper wollte Dich für die deutsche Rechtschreibung sensibilisieren: ;)

:roll: :roll:

ohne Worte......

[DelphiDeveloper]

ne da hat wolfgang schon recht!

als nächstes würde man dann sagen na dann halt quoted strings aber dann muessen
die quotes auch wieder doppelte gequoted werden.

[grayfox]

wenn ich ein text-file in ein csv-file importiere, dann ersetze ich alle im text vorkommenden semicolons durch bindestriche, somit bleibt die spaltenanzahl erhalten. falls man die strichpunkt umbedingt im text benötigt, dann kann man ja auch '#' als trenner einsetzen. man muss ja die sache nicht umbedingt noch mehr verkomplizieren ;)

mfg, stefan

[DelphiDeveloper]

2.ter versuch wolfgang

Code:

procedure CSVExport;
var
  i: integer;
  F: TextFile;
  Fn: string;
  tmpstring: string;
begin
  Fn := 'c:\myCSVexport.csv';
  AssignFile(F, Fn);
  Rewrite(F);

  Table1.open;
  while not table1.eof do
  begin
    for i := 0 to table1.FieldCount - 1 do
    begin
      // ersetze quotes in doppelquotes
      tmpstring := stringreplace(table1.fields[i].Value, '"', '""', [rfReplaceAll]);
      // ; nicht vorhanden
      if pos(';', tmpstring) = 0 then
      begin
        write(F, tmpstring);
        write(F, ';');
      end
      else
      begin
        // ; vorhanden
        write(F, '"');
        write(F, tmpstring);
        write(F, '"');

        write(F, ';');
      end;
    end;
    write(F, #13#10);
    table1.next;
  end

end;