Changeset 8 for trunk/UFormImport.pas

Timestamp:

Apr 21, 2016, 1:12:45 PM (8 years ago)

Author:

chronos

Message:

• Added: Also allow to edit acronym detailed description.
• Added: Import from CSV file.

File:

• trunk/UFormImport.pas (modified) (5 diffs)

trunk/UFormImport.pas

@@ -14 +14 @@
 
   TFormImport = class(TForm)
+    ButtonLoadFromFile: TButton;
     ButtonImport: TButton;
+    ComboBoxDataFormat: TComboBox;
+    Label1: TLabel;
     Memo1: TMemo;
+    OpenDialog1: TOpenDialog;
     procedure ButtonImportClick(Sender: TObject);
+    procedure ButtonLoadFromFileClick(Sender: TObject);
   private
-    { private declarations }
+    procedure ImportMediaWiki;
+    procedure ImportCSV;
   public
     { public declarations }
@@ -55 +61 @@
 
 procedure TFormImport.ButtonImportClick(Sender: TObject);
+begin
+  if ComboBoxDataFormat.ItemIndex = 0 then ImportCSV;
+  if ComboBoxDataFormat.ItemIndex = 1 then ImportMediaWiki;
+end;
+
+procedure TFormImport.ButtonLoadFromFileClick(Sender: TObject);
+begin
+  if OpenDialog1.Execute then
+    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
+end;
+
+procedure TFormImport.ImportMediaWiki;
 var
   I: Integer;
   Line: string;
   AcronymName: string;
-  AcronymDescription: string;
+  AcronymMeaning: string;
   AddedCount: Integer;
   Acronym: TAcronym;
@@ -74 +92 @@
     end;
     if Copy(Line, 1, 1) = ':' then begin
-      AcronymDescription := Trim(Copy(Line, 2, Length(Line)));
-      if AcronymName <> '' then begin
+      AcronymMeaning := Trim(Copy(Line, 2, Length(Line)));
+      if (AcronymName <> '') and (AcronymMeaning <> '') then begin
         Acronym := FormMain.AcronymDb.Acronyms.SearchByName(AcronymName);
         if not Assigned(Acronym) then begin
@@ -82 +100 @@
           FormMain.AcronymDb.Acronyms.Add(Acronym);
         end;
-        Meaning := Acronym.Meanings.SearchByName(AcronymDescription);
+        Meaning := Acronym.Meanings.SearchByName(AcronymMeaning);
         if not Assigned(Meaning) then begin
           Meaning := TAcronymMeaning.Create;
-          Meaning.Name := AcronymDescription;
+          Meaning.Name := AcronymMeaning;
           Meaning.Acronym := Acronym;
           Acronym.Meanings.Add(Meaning);
@@ -97 +115 @@
 end;
 
+procedure TFormImport.ImportCSV;
+var
+  I: Integer;
+  Line: string;
+  Columns: TStringList;
+  Acronym: TAcronym;
+  Meaning: TAcronymMeaning;
+  AcronymName: string;
+  AcronymMeaning: string;
+  AcronymDescription: string;
+  AddedCount: Integer;
+begin
+  AddedCount := 0;
+  Columns := TStringList.Create;
+  Columns.StrictDelimiter := True;
+  for I := 0 to Memo1.Lines.Count - 1 do begin
+    Line := Trim(Memo1.Lines[I]);
+    Columns.DelimitedText := Line;
+    if Columns.Count > 0 then AcronymName := Trim(Columns[0])
+      else AcronymName := '';
+    if Columns.Count > 1 then AcronymMeaning := Trim(Columns[1])
+      else AcronymMeaning := '';
+    if Columns.Count > 2 then AcronymDescription := Trim(Columns[2])
+      else AcronymDescription := '';
+    if (AcronymName <> '') and (AcronymDescription <> '') then begin
+      Acronym := FormMain.AcronymDb.Acronyms.SearchByName(AcronymName);
+      if not Assigned(Acronym) then begin
+        Acronym := TAcronym.Create;
+        Acronym.Name := AcronymName;
+        FormMain.AcronymDb.Acronyms.Add(Acronym);
+      end;
+      Meaning := Acronym.Meanings.SearchByName(AcronymDescription);
+      if not Assigned(Meaning) then begin
+        Meaning := TAcronymMeaning.Create;
+        Meaning.Name := AcronymMeaning;
+        Meaning.Description := AcronymDescription;
+        Meaning.Acronym := Acronym;
+        Acronym.Meanings.Add(Meaning);
+        Inc(AddedCount)
+      end;
+    end;
+  end;
+  Columns.Free;
+  if AddedCount > 0 then FormMain.AcronymDb.Modified := True;
+  ShowMessage(Format('Imported %d new acronyms.', [AddedCount]));
+end;
+
 end.