.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

**Papaschlumpf73**

Du fügst am Anfang 3 Zeilen an Memo1 an und machst dann die Schleife für Memo1.lines. Wenn Memo1 nicht vorher schon Daten hatte, sind es halt nur 3 Zeilen. Wo kommen denn die csv-Daten ins Spiel?

**julchen**

Die Daten würde ich rein kopieren oder ich öffne die Daten aus der Datei heraus.
Das ist mir im Moment noch nicht so wichtig.

**Delphi.Narium**

Grober, ungetesteter, Vorschlag:

zusammenfalten · markieren

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

.csv in .html Datei umwandeln

AW: .csv in .html Datei umwandeln

AW: .csv in .html Datei umwandeln

AW: .csv in .html Datei umwandeln

Forumregeln

Papaschlumpf73 Registriert seit: 3. Mär 2014 Ort: Berlin 315 Beiträge Delphi 12 Athens	#2 AW: .csv in .html Datei umwandeln 14. Mär 2023, 13:36 Du fügst am Anfang 3 Zeilen an Memo1 an und machst dann die Schleife für Memo1.lines. Wenn Memo1 nicht vorher schon Daten hatte, sind es halt nur 3 Zeilen. Wo kommen denn die csv-Daten ins Spiel?
	Zitat

julchen Registriert seit: 20. Mär 2008 115 Beiträge Delphi 10.3 Rio	#3 AW: .csv in .html Datei umwandeln 14. Mär 2023, 13:48 Die Daten würde ich rein kopieren oder ich öffne die Daten aus der Datei heraus. Das ist mir im Moment noch nicht so wichtig. Kollegin: Am Wochenende wird mein PC immer langsamer! Liegt das am Strom?
	Zitat