|
Registriert seit: 27. Nov 2017
2.490 Beiträge
Delphi 7 Professional
|
AW: .csv in .html Datei umwandeln
14. Mär 2023, 15:29
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;
Geändert von Delphi.Narium (15. Mär 2023 um 00:19 Uhr)
Grund: Fehler behoben
|
|
|
Zitat
|