BDE Paradox db-Datei in eine CSV Datei exportieren

[Luckie]

Siehe oben, kein MS Office, kein Excel, kein Access. ;)

[Catbytes]

Zitat:

Zitat von Luckie

Siehe oben, kein MS Office, kein Excel, kein Access. ;)

:roll: Als ich den Beitrag schrieb, stand das noch gar nicht da :wink:

[Luckie]

Habe gerade gekuckt: Die OpenOffice tabellenkalkulation kann nur dbase dbf Dateien öffnen.

[dizzy]

Zitat:

Zitat von Catbytes

Zitat:

Zitat von dizzy

was macht Paradox so fett?

Vermutlich, daß in der Paradox-Datei ein String[40] eben 40 Zeichen belegt, auch wenn nur 30 benutzt werden. CSV schreibt nur das, was gebraucht wird.

Hui. Dann macht das hier einen Unterschied von satten 3.095kB aus. Das nenn ich ineffizient von Paradox :shock:

@Luckie: Ist denn überhaupt was auf'm Rechner? :stupid:

[Luckie]

Zitat:

Zitat von dizzy

@Luckie: Ist denn überhaupt was auf'm Rechner? :stupid:

Schlankes, rankes System: Windows 2000 (IE Outlook Express), Delphi, MSVS, PSDK, OpenOffice, PhotoFilter, IrfanView, FTP Client, HTML-Editor, Hex-Editor, mySQL-Server, TuneUp Utilities und Ad-aware.

[r_kerber]

Zitat:

Zitat von dizzy

Hui. Dann macht das hier einen Unterschied von satten 3.095kB aus. Das nenn ich ineffizient von Paradox

Das schaffst Du mit jeder (!!) Datenbank. Du mußt die Zeichenkettenfelder nur mit CHARACTER erstellen. Zum Platz sparen nimmt man dann VARCHAR. Wobei letzteres bei einigen Datenbanken auf 256 Zeichen begrenzt ist. :-(

[dizzy]

Jetzt wird mir auch der Unterschied CHAR <-> VARCHAR klar :D.

[Luckie]

War eine Jugendsünde. Mein erster Auftrag, von einen Bekannten. Waren glaube ich zwei Karten für die Dokumenta oder so. ;)

[merlin17]

mann, ist das lange her mit BDE und Paradox;
aber reizvoll war das Thema für die Mittagspause :lol:
(und am wochenende will ich es mal in C# probieren... )
)
-> incl. "CSV-Header" sprich db-felder....
ich nehme immer das '{' zeichen, ist in datenbank eher selten anzutreffen; ggf. ändern!

:-) thomas

__________________________________________________ _________

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i, j: integer;
  s: string;
  theStringList: Tstringlist;
begin
  if Query1.State = dsInactive then
    showmessage('Bitte erst "Suche starten" durchführen')
  else
    begin
      Query1.disablecontrols;
      s := '';
      Query1.First;
      theStringList := TStringList.Create;
      with Query1 do
        begin
          s := '';
          for I := 1 to Query1.FieldList.Count - 1 do
            begin
              s := s + Query1.FieldList.Strings[I] + '{';
            end;
          theStringList.add(s);

          for j := 0 to (RecordCount - 1) do
            begin
              s := '';
              for i := 1 to (FieldCount - 1) do
                begin
                  if Length(Fields[i].AsString) < 1 then
                    s := s + ' ' + '{'
                  else
                    s := s + (Fields[i].AsString) + '{';
                end;
              theStringList.add(s);
              Next;
            end;
          Query1.enablecontrols;

          SaveDialog1.Title := 'Speichert die CSV in einen File';
          if SaveDialog1.Execute then
            theStringList.savetofile(SaveDialog1.Filename);
        end;
    end;
end;

[Luckie]

Wenn ich eine Delphi version hätte mit datenbankunterstützung (Query1), dann wäre das ganze ja auch kein Thema gewesen. ;)