.csv in .html Datei umwandeln

**Delphi.Narium**

Grober, ungetesteter, Vorschlag:

Delphi-Quellcode:

			var

  sl : TStringList;

  i  : Integer;

begin

  sl := TStringList.Create;

  sl.Delimiter := ';'

  for i := 0 to Memo1.Lines.Count - 1 do begin

    sl.DelimitedText := Memo1.Lines[i];

    Memo1.Lines[i] := Format('<tr><td><a "target="_blank" href="%s">%s %s</a></td><td>%s</td><td>%s</td><td>%s</td></tr>',[sl[0],sl[1],sl[2],sl[3],sl[4],sl[5]]);

  end;

  Memo1.Lines.Insert(0,'<table>');

  Memo1.Lines.Insert(0,Format('<title>Links '%s'</title>',[datum]));

  Memo1.Lines.Insert(0,'<html>');

  Memo1.Lines.Add('</table>');

  Memo1.Lines.Add('</html>');

  sl.Free;

end;

.csv in .html Datei umwandeln

AW: .csv in .html Datei umwandeln

Forumregeln