csv to html/de

unit uVerarbeiten;
    
    unit uEinlesen;
    
    {$mode objfpc}{$H+}
    {$IMPLICITEXCEPTIONS OFF}
    
    interface
    
    uses
      SysUtils, FileUtil;
    
    function subCSVDateiEinlesenUndVerarbeiten(const strNameQuellDatei: string;
      const chrDelimiter: char; const strNameZielDatei: string;
      const strRegistertitel: string; const bytHTMLHeader: byte): boolean;
    
    
    implementation
    
    const
      conSpaltenAnfang = '<td>';
      conSpaltenEnde = '</td>';
      conZeilenAnfang = '<tr>';
      conZeilenEnde = '</tr>';
      conTabellenAnfang = '<table align="center">';
      conTabellenEnde = '</table>';
      conAbsatzAnfang = '<p>';
      conAbsatzEnde = '</p>';
    
    var
      datQuellDatei: TextFile; // CSV-Datei
      datZielDatei: TextFile;  // HTML-Datei
    
    
    procedure subCSS;
    begin
      WriteLn(datZielDatei, '<style type="text/css">');
    
      WriteLn(datZielDatei, '  table');
      WriteLn(datZielDatei, '  {');
      WriteLn(datZielDatei, '    border-collapse:collapse;');
      WriteLn(datZielDatei, '    border-style: solid;');
      WriteLn(datZielDatei, '    border-color: black;');
      WriteLn(datZielDatei, '    border-with: 1px;');
      WriteLn(datZielDatei, '    background-color: #CCCCCF;');
      WriteLn(datZielDatei, '    padding: 0.0cm;');
      WriteLn(datZielDatei, '    text-align: center;');
      WriteLn(datZielDatei, '  }');
    
      WriteLn(datZielDatei, '  td');
      WriteLn(datZielDatei, '  {');
      WriteLn(datZielDatei, '    border-top: solid;');
      WriteLn(datZielDatei, '    border-right: solid;');
      WriteLn(datZielDatei, '    border-bottom: solid;');
      WriteLn(datZielDatei, '    border-left: solid;');
      WriteLn(datZielDatei, '    border-with: 1px;');
      WriteLn(datZielDatei, '    padding: 0.1cm;');
      WriteLn(datZielDatei, '  }');
    
      WriteLn(datZielDatei, '</style>');
    end;
    
    function funSpaltenZaehlen(const strUebergabe: string;
      const chrDelimiter: char): integer;
    var
      intI: integer;
    
    begin
    
      funSpaltenZaehlen := 0;
      for intI := 1 to Length(strUebergabe) do
        if strUebergabe[intI] = chrDelimiter then
          Inc(funSpaltenZaehlen);
    
    end;
    
    // ----------------------------------------
    // Unterprogramme für die HTML-Datei Anfang
    // ----------------------------------------
    
    procedure subHTMLTagSchreiben(const strTag: string; const blnZeilenumbruch: boolean);
    begin
      if blnZeilenumbruch = False then
        Write(datZielDatei, strTag)
      else
        WriteLn(datZielDatei, strTag);
    end;
    
    
    
    procedure subHTMLAusgabeDateiSchliessen;
    begin
      Close(datZielDatei);
    end;
    
    
    
    procedure subHTML4Kopf(const strRegistertitel: string);
    begin
      writeln(datZielDatei, '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"');
      writeln(datZielDatei, '"http://www.w3.org/TR/html4/loose.dtd">');
      writeln(datZielDatei, '<html>');
      writeln(datZielDatei, '<head>');
      writeln(datZielDatei, '<title>' + strRegistertitel + '</title>');
      subCSS;
      writeln(datZielDatei, '</head>');
      writeln(datZielDatei, '<body>');
      writeln(datZielDatei, '');
    end;
    
    
    
    procedure subHTML5Kopf(const strRegistertitel: string);
    begin
      Append(datZielDatei);  // Setzt den Dateizeiger auf das Ende der Datei
      writeln(datZielDatei, '<!DOCTYPE HTML>');
      writeln(datZielDatei, '<html>');
      writeln(datZielDatei, '<head>');
      writeln(datZielDatei, '<title>' + strRegistertitel + '</title>');
      subCSS;
      writeln(datZielDatei, '</head>');
      writeln(datZielDatei, '<body>');
      writeln(datZielDatei, '');
    
    end;
    
    
    
    procedure subHTMLFuss;
    begin
      writeln(datZielDatei, '</body> ');
      writeln(datZielDatei, '</html>');
    end;
    
    
    
    procedure subHTMLAusgabeDateiErstellen(const strAusgabedatei: string);
    begin
      AssignFile(datZielDatei, strAusgabedatei);
      ReWrite(datZielDatei); // Erstellt die Datei bzw. überschreibt eine vorhandene Datei
      Append(datZielDatei);  // Setzt den Dateizeiger auf das Ende der Datei
    end;
    
    
    
    procedure subHTMLSpaltenErstellen(const strUebergabe: string; const chrDelimiter: char);
    var
      intI: integer = 0;
      intLaenge: integer = 0;
      strZelle: string = '';
    
    begin
    
      // Leere Zeilen werden übersprungen
      intLaenge := Length(strUebergabe);
      if intLaenge < 1 then
        exit;
    
      subHTMLTagSchreiben(conZeilenAnfang, True);
      subHTMLTagSchreiben(conSpaltenAnfang, False);
    
      for intI := 1 to intLaenge do
      begin
    
        if strUebergabe[intI] = chrDelimiter then
        begin
          Write(datZielDatei, strZelle);
          strZelle := '';
          subHTMLTagSchreiben(conSpaltenEnde, False);
          subHTMLTagSchreiben(conSpaltenAnfang, False);
        end
        else
          strZelle := strZelle + strUebergabe[intI];
    
      end;
    
      Write(datZielDatei, strZelle);
    
      subHTMLTagSchreiben(conSpaltenEnde, True);
      subHTMLTagSchreiben(conZeilenEnde, True);
    
    end;
    
    
    
    // --------------------------------------
    // Unterprogramme für die HTML-Datei Ende
    // --------------------------------------
    
    
    
    function subCSVDateiEinlesenUndVerarbeiten(const strNameQuellDatei: string;
      const chrDelimiter: char; const strNameZielDatei: string;
      const strRegistertitel: string; const bytHTMLHeader: byte): boolean;
    var
      strText: string = '';
    
    begin
    
      Result := False;
    
      // Prüft, ob ein gültiger HTML-Header gewählt wurde
      if (bytHTMLHeader < 4) or (bytHTMLHeader > 5) then
        exit;
    
      // Prüft, ob die Quelldatei existiert
      if not FileExists(strNameQuellDatei) then
        exit;
    
      // Prüft, ob die Quelldatei Daten enthält
      if filesize(strNameQuellDatei) = 0 then
        exit;
    
      // Öffnet die Quelldatei
      AssignFile(datQuellDatei, strNameQuellDatei);
      // Setzt den Dateizeiger auf den Anfang der Datei
      Reset(datQuellDatei);
    
      // Erstellen der HTML-Datei - Anfang
      subHTMLAusgabeDateiErstellen(strNameZielDatei);
      case bytHTMLHeader of
        4: subHTML4Kopf(strRegistertitel);
        5: subHTML5Kopf(strRegistertitel);
      end;
    
      subHTMLTagSchreiben(conAbsatzAnfang, True);
      subHTMLTagSchreiben(conTabellenAnfang, True);
    
      repeat
        ReadLn(datQuellDatei, strText);
        subHTMLSpaltenErstellen(strText, chrDelimiter);
      until EOF(datQuellDatei);
    
      subHTMLTagSchreiben(conTabellenEnde, True);
      subHTMLTagSchreiben(conAbsatzEnde, True);
      subHTMLFuss;
      subHTMLAusgabeDateiSchliessen;
      // Erstellen der HTML-Datei - Ende
    
      // Schliesst die Quelldatei
      CloseFile(datQuellDatei);
    
      Result := True;
    
    end;
    
    end.

begin
      
      ...
      
      uVerarbeiten.subCSVDateiEinlesenUndVerarbeiten('Unbenannt 1.csv', ',',
        'Ausgabe.html', 'Testseite', 5);
      
      ...
      
    end;