.csv in .html Datei umwandeln

**julchen**

Hallo,

ich habe eine .csv-Datei, die ich in eine .html-Datei umwandeln möchte.
Die Datei habe ich bis jetzt immer aus Excel heraus in eine .pdf-Datei umgewandelt und den Kunden zur Verfügung gestellt.
Eine .html-Datei würde sich besser eignen.
Der angegebene Vorname und Nachname soll zum Link werden.

Das Problem mit meinem Code:
Es werden nur die ersten zwei Zeilen der Schleife abgearbeitet.

procedure TForm1.Button1Click(Sender: TObject);

var

datum: string;

i: integer;

begin

edit1.Text := datum;

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

Memo1.Lines.Add('<title>Links ' + datum + '</title>');

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

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

begin

//csv: Link;Vorname;Nachname;Gruppe;Kurs;Uhrzeit

Memo1.Lines[i] := StringReplace(Memo1.Lines[i], 'https://' , '<tr><td><a href="https://' , [rfReplaceAll]); // Start Link

Memo1.Lines[i] := StringReplace(Memo1.Lines[i], ';' , '" target="_blank" >' , [rfReplaceAll]); // Blank und Link Ende

Memo1.Lines[i] := StringReplace(Memo1.Lines[i], ';' , ' ' , [rfReplaceAll]); // Leerzeichen zwischen Vorname und Nachname

Memo1.Lines[i] := StringReplace(Memo1.Lines[i], ';' , '</a></td><td>' , [rfReplaceAll]); // Spalte Name

Memo1.Lines[i] := StringReplace(Memo1.Lines[i], ';' , '</td><td>' , [rfReplaceAll]); // Splate Gruppe

Memo1.Lines[i] := StringReplace(Memo1.Lines[i], ';' , '</td><td>' , [rfReplaceAll]); // Spalte Kurs

Memo1.Lines[i] := StringReplace(Memo1.Lines[i], ';' , '</td><td>' , [rfReplaceAll]); // Spalte Uhrzeit

end;

Memo1.Lines.Add('</td></tr>');

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

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

end;

VG, Julia

.csv in .html Datei umwandeln

.csv in .html Datei umwandeln

Forumregeln