source: tags/1.3.0/Forms/UFormExport.pas

unit UFormExport;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TFormExport }

  TFormExport = class(TForm)
    ButtonProcess: TButton;
    ButtonSaveToFile: TButton;
    ComboBoxDataFormat: TComboBox;
    Memo1: TMemo;
    SaveDialog1: TSaveDialog;
    procedure ButtonProcessClick(Sender: TObject);
    procedure ButtonSaveToFileClick(Sender: TObject);
  private
    procedure ExportCSV;
    procedure ExportMediaWiki;
    procedure ExportMediaWikiTable;
  public
    { public declarations }
  end;

var
  FormExport: TFormExport;

implementation

{$R *.lfm}

uses
  UCore, UAcronym;

resourcestring
  SExpotedAcronyms = 'Exported %d acronyms';

{ TFormExport }

procedure TFormExport.ButtonSaveToFileClick(Sender: TObject);
begin
  if ComboBoxDataFormat.ItemIndex = 0 then SaveDialog1.DefaultExt := '.csv';
  if ComboBoxDataFormat.ItemIndex = 1 then SaveDialog1.DefaultExt := '.txt';
  if ComboBoxDataFormat.ItemIndex = 2 then SaveDialog1.DefaultExt := '.txt';
  if SaveDialog1.Execute then begin
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
  end;
end;

procedure TFormExport.ExportCSV;
var
  I: Integer;
  J: Integer;
  ItemCount: Integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;
  ItemCount := 0;
  for I := 0 to Core.AcronymDb.Acronyms.Count - 1 do
  with TAcronym(Core.AcronymDb.Acronyms[I]) do
    for J := 0 to Meanings.Count - 1 do
    with TAcronymMeaning(Meanings[J]) do begin
      Memo1.Lines.Add('"' + Acronym.Name + '","' + Name + '","' + Description + '","' + Categories.GetString + '"');
      Inc(ItemCount);
    end;
  Memo1.Lines.EndUpdate;
  ShowMessage(Format(SExpotedAcronyms, [ItemCount]));
end;

procedure TFormExport.ExportMediaWiki;
var
  I: Integer;
  J: Integer;
  ItemCount: Integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;
  ItemCount := 0;
  for I := 0 to Core.AcronymDb.Acronyms.Count - 1 do
  with TAcronym(Core.AcronymDb.Acronyms[I]) do begin
    Memo1.Lines.Add('; ' + Name);
    for J := 0 to Meanings.Count - 1 do
    with TAcronymMeaning(Meanings[J]) do begin
      Memo1.Lines.Add(': ' + Name);
      Inc(ItemCount);
    end;
  end;
  Memo1.Lines.EndUpdate;
  ShowMessage(Format(SExpotedAcronyms, [ItemCount]));
end;

procedure TFormExport.ExportMediaWikiTable;
var
  I: Integer;
  J: Integer;
  ItemCount: Integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;
  ItemCount := 0;
  Memo1.Lines.Add('{| class="wikitable sortable"');
  Memo1.Lines.Add('! Name !! Meaning !! Description !! Categories');
  for I := 0 to Core.AcronymDb.Acronyms.Count - 1 do
  with TAcronym(Core.AcronymDb.Acronyms[I]) do begin
    for J := 0 to Meanings.Count - 1 do
    with TAcronymMeaning(Meanings[J]) do begin
      Memo1.Lines.Add('|-');
      Memo1.Lines.Add('| ' + Acronym.Name + ' || ' + Name + ' || ' + Description + ' || ' + Categories.GetString);
      Inc(ItemCount);
    end;
  end;
  Memo1.Lines.Add('|}');
  Memo1.Lines.EndUpdate;
  ShowMessage(Format(SExpotedAcronyms, [ItemCount]));
end;

procedure TFormExport.ButtonProcessClick(Sender: TObject);
begin
  if ComboBoxDataFormat.ItemIndex = 0 then ExportCSV;
  if ComboBoxDataFormat.ItemIndex = 1 then ExportMediaWiki;
  if ComboBoxDataFormat.ItemIndex = 2 then ExportMediaWikiTable;
end;

end.