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