Changeset 171 for trunk

Timestamp:

Jan 30, 2024, 11:24:04 PM (11 months ago)

Author:

chronos

Message:

• Added: Import from XML file.
• Added: Lazarus project group.

Location:

trunk

Files:

• Packages/Common/Table.pas (modified) (5 diffs)
• vCardStudio.lpg (added)

trunk/Packages/Common/Table.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Generics.Collections, ComCtrls;
+  Classes, SysUtils, Generics.Collections, ComCtrls, XMLRead, XMLWrite, DOM;
 
 type
@@ -46 +46 @@
     procedure SetInputMediaWiki(Text: string);
     procedure SetInputJson(Text: string);
+    procedure SetInputXml(Text: string);
     procedure SetInput(OutputFormat: TTableFormat; Text: string);
     function GetInputFormats: TTableFormats;
@@ -457 +458 @@
 end;
 
+procedure TTable.SetInputXml(Text: string);
+var
+  Doc: TXMLDocument;
+  TextStream: TStringStream;
+  TableNode: TDOMNode;
+  RowsNode: TDOMNode;
+  RowNode: TDOMNode;
+  CellNode: TDOMNode;
+  NewRow: TRow;
+  CellName: string;
+  ColumnIndex: Integer;
+begin
+  Clear;
+  TextStream := TStringStream.Create(Text);
+  ReadXMLFile(Doc, TextStream);
+  TableNode := Doc.DocumentElement;
+  if Assigned(TableNode) and (TableNode.NodeName = 'table') then
+  with TableNode do begin
+    RowsNode := FindNode('rows');
+    if Assigned(RowsNode) then begin
+      RowNode := RowsNode.FirstChild;
+      while Assigned(RowNode) and (RowNode.NodeName = 'row') do begin
+        NewRow := TRow.Create;
+        CellNode := RowNode.FirstChild;
+        while Assigned(CellNode) and (CellNode.NodeName = 'cell') do begin
+          CellName := string(TDOMElement(CellNode).GetAttribute('name'));
+          ColumnIndex := Columns.IndexOf(CellName);
+          if ColumnIndex < 0 then begin
+            Columns.Add(CellName);
+            ColumnIndex := Columns.Count - 1;
+          end;
+
+          while NewRow.Cells.Count <= ColumnIndex do
+            NewRow.Cells.Add('');
+          NewRow.Cells[ColumnIndex] := string(CellNode.TextContent);
+          CellNode := CellNode.NextSibling;
+        end;
+        Rows.Add(NewRow);
+        RowNode := RowNode.NextSibling;
+      end;
+    end;
+  end;
+  FreeAndNil(TextStream);
+  FreeAndNil(Doc);
+end;
+
 procedure TTable.SetInput(OutputFormat: TTableFormat; Text: string);
 begin
@@ -463 +510 @@
     tfMediaWiki: SetInputMediaWiki(Text);
     tfJson: SetInputJson(Text);
+    tfXml: SetInputXml(Text);
     else raise Exception.Create(SUnsupportedFormat);
   end;
@@ -469 +517 @@
 function TTable.GetInputFormats: TTableFormats;
 begin
-  Result := [tfCsv, tfJson, tfMediaWiki];
+  Result := [tfCsv, tfJson, tfMediaWiki, tfXml];
 end;