Changeset 62 for trunk/UCore.pas

Timestamp:

Dec 9, 2021, 10:53:52 PM (3 years ago)

Author:

chronos

Message:

• Added: New feature to split multiple contacts into separate files. Accessible from File menu.

File:

• trunk/UCore.pas (modified) (9 diffs)

trunk/UCore.pas

@@ -27 +27 @@
     AAbout: TAction;
     AboutDialog1: TAboutDialog;
+    AFileSplit: TAction;
     AGenerate: TAction;
     AFindDuplicate: TAction;
@@ -41 +42 @@
     ActionList1: TActionList;
     ApplicationInfo1: TApplicationInfo;
+    SelectDirectoryDialog1: TSelectDirectoryDialog;
     Translator: TTranslator;
     ImageList1: TImageList;
@@ -58 +60 @@
     procedure AFileSaveAsExecute(Sender: TObject);
     procedure AFileCloseExecute(Sender: TObject);
+    procedure AFileSplitExecute(Sender: TObject);
     procedure AFindDuplicateExecute(Sender: TObject);
     procedure AGenerateExecute(Sender: TObject);
@@ -70 +73 @@
     LoadErrors: string;
     ProfileImage: TImage;
+    LastSplitDir: string;
     procedure FileModified(Sender: TObject);
     function FindFirstNonOption: string;
@@ -108 +112 @@
   SAppExit = 'Application exit';
   SAppExitQuery = 'File was modified. Do you want to save it before exit?';
+  SFileSplit = 'Contacts split';
+  SFileSplitFinishedOpenDirectory = 'Total %d contact files saved. Do you want to open the directory %s?';
   SFileNotFound = 'File ''%s'' not found.';
   SMergedContacts = 'Contacts merged. Loaded: %d, New: %d, Updated: %d';
@@ -175 +181 @@
   FileClose;
   UpdateFile;
+end;
+
+procedure TCore.AFileSplitExecute(Sender: TObject);
+var
+  I: Integer;
+  C: Integer;
+  FileName: string;
+  ModalResult: TModalResult;
+begin
+  C := 0;
+  SelectDirectoryDialog1.FileName := LastSplitDir;
+  if SelectDirectoryDialog1.Execute then begin
+    LastSplitDir := SelectDirectoryDialog1.FileName;
+    with TContactsFile(DataFile).Contacts do
+    for I := 0 to Count - 1 do begin
+      if Items[I].Fields[cfFullName] <> '' then begin
+        FileName := SelectDirectoryDialog1.FileName + DirectorySeparator +
+          Items[I].Fields[cfFullName] + VCardFileExt;
+        Items[I].SaveToFile(FileName);
+        Inc(C);
+      end;
+    end;
+    ModalResult := MessageDlg(SFileSplit,
+     Format(SFileSplitFinishedOpenDirectory, [C,
+     SelectDirectoryDialog1.FileName]), mtConfirmation, [mbYes, mbNo], 0);
+    if ModalResult = mrYes then begin
+      {$IFDEF WINDOWS}
+      ExecuteProgram('explorer.exe', ['"' + SelectDirectoryDialog1.FileName + '"']);
+      {$ENDIF}
+    end;
+  end;
 end;
 
@@ -434 +471 @@
     LastContactTabIndex := ReadIntegerWithDefault('LastContactTabIndex', 0);
     LastContactFileName := ReadStringWithDefault('LastContactFileName', '');
+    LastSplitDir := ReadStringWithDefault('LastSplitDir', '');
   finally
     Free;
@@ -457 +495 @@
     WriteInteger('LastContactTabIndex', LastContactTabIndex);
     WriteString('LastContactFileName', LastContactFileName);
+    WriteString('LastSplitDir', LastSplitDir);
   finally
     Free;
@@ -484 +523 @@
   AFileSaveAs.Enabled := Assigned(DataFile);
   AFileClose.Enabled := Assigned(DataFile);
+  AFileSplit.Enabled := Assigned(DataFile);
+  AFileMerge.Enabled := Assigned(DataFile);
 end;