Changeset 168 for trunk/Packages/Common/Table.pas

Timestamp:

Jul 1, 2023, 8:17:50 PM (17 months ago)

Author:

chronos

Message:

• Modifed: Export/Import moved to TVCard class.
• Added: Export/Import tests for CSV and MediaWiki formats.

File:

• trunk/Packages/Common/Table.pas (modified) (2 diffs)

trunk/Packages/Common/Table.pas

@@ -281 +281 @@
 
 procedure TTable.SetInputCsv(Text: string);
-begin
-
+var
+  Lines: TStringList;
+  I: Integer;
+  Row: TRow;
+begin
+  Clear;
+  Lines := TStringList.Create;
+  try
+    Lines.Text := Text;
+    for I := 0 to Lines.Count - 1 do begin
+      if I = 0 then begin
+        Columns.StrictDelimiter := True;
+        Columns.DelimitedText := Trim(Lines[I]);
+      end else begin
+        Row := TRow.Create;
+        Row.Cells.StrictDelimiter := True;
+        Row.Cells.DelimitedText := Trim(Lines[I]);
+        Rows.Add(Row);
+      end;
+    end;
+  finally
+    FreeAndNil(Lines);
+  end;
 end;
 
@@ -296 +317 @@
 
 procedure TTable.SetInputMediaWiki(Text: string);
-begin
-
+var
+  Lines: TStringList;
+  I: Integer;
+  Line: string;
+  InsideTable: Boolean;
+  Index: Integer;
+  Row: TRow;
+begin
+  Clear;
+  Lines := TStringList.Create;
+  try
+    Lines.Text := Text;
+    Row := nil;
+    InsideTable := False;
+    for I := 0 to Lines.Count - 1 do begin
+      Line := Trim(Lines[I]);
+      if not InsideTable then begin
+        if Line.StartsWith('{|') then InsideTable := True;
+      end else begin
+        if Line.StartsWith('|}') then InsideTable := False
+        else
+        if Line.StartsWith('!') then begin
+          Delete(Line, 1, 1);
+          Line := Trim(Line);
+          repeat
+            Index := Pos('!!', Line);
+            if Index > 0 then begin
+              Columns.Add(Trim(Copy(Line, 1, Index - 1)));
+              Delete(Line, 1, Index + 1);
+            end else begin
+              Columns.Add(Trim(Line));
+              Break;
+            end;
+          until False;
+        end else
+        if Line.StartsWith('|-') then begin
+          if Assigned(Row) then Rows.Add(Row);
+          Row := TRow.Create;
+        end else
+        if Line.StartsWith('|') then begin
+          if Assigned(Row) then begin
+            Delete(Line, 1, 1);
+            Line := Trim(Line);
+            repeat
+              Index := Pos('||', Line);
+              if Index > 0 then begin
+                Row.Cells.Add(Trim(Copy(Line, 1, Index - 1)));
+                Delete(Line, 1, Index + 1);
+              end else begin
+                Row.Cells.Add(Trim(Line));
+                Break;
+              end;
+            until False;
+
+            while Row.Cells.Count < Columns.Count do
+              Row.Cells.Add('');
+          end;
+        end;
+      end;
+    end;
+    if Assigned(Row) then
+      Rows.Add(Row);
+  finally
+    FreeAndNil(Lines);
+  end;
 end;