OBS/Makros und Scripting/Allgemeines/Klassen/Importdatei/TxImportFileCSV

Aus OBS Wiki
Zur Navigation springen Zur Suche springen


Die Klasse TxImportFileCSV ist speziell zum Import von CSV-Dateien vorgesehen und unterstützt auch den Import von CSV mit mehrzeiligen Texten, sofern diese mit entsprechenden Anführungszeichen versehen sind. CSV-Dateien mit einem Datensatz pro Zeilen können theoretisch auch mit TxImportFile importiert werden.

Struktur

Methoden

Create

Definition: 

constructor Create();

Erklärung:
Erstellt eine Instanz für das Objekt TxImportFileCSV.

Beispiel: 

oDatei := TxImportFileCSV.Create();

LoadFromFile

Definition: 

function LoadFromFile(const FileName : string; const FileDelim : Char = ';'; const FileQuote : Char = '"'): boolean;

Erklärung:
Die Methode erwartet zwingend einen gültigen Dateipfad im ersten Parameter. Der Inhalt der Datei wird eingelesen. Auf die Daten kann mit der Property Cell zugegriffen werden. Optional können Feldtrenner (Standard ;) und Anführungszeichen (Standard ") für die Texterkennung angegeben werden.
Beispiel: if (oDatei.LoadFromFile(cPfad)) then begin 

   Meldung('Datei konnte gelesen werden');

end;

Properties

Cell

Definition: 

property Cell[Row, Col : Integer] : string read GetCell write SetCell;

Erklärung:
Diese Property ermöglicht den Zugriff auf die Daten, die mit LoadFromFile eingelesen wurden. Die Logik ist vergleichbar mit einem Tabellenkalkulationsprogramm wie Excel oder LibreCalc. Möchten Sie den Wert einer Zelle erhalten geben Sie der Property die Koordinaten der Zelle mit. Anders als bei den Programmen jedoch nicht mit Buchstabe und Zahl sondern mit zwei Zahlen. Auch ist hier die Reihenfolge zuerst Zeile und danach Spalte.

ACHTUNG: Bei Dateien mit Umbrüchen in Texten gilt hier nicht Zeile in der Datei enspricht Zeile im Objekt! Die jeweils erste Zeile und Spalte startet bei 0. Außerdem kommt es bei mehrzeiligem Inhalt zu einer "Verschiebung" zwischen Datei und Objekt.

Beispiel: 
1  "Artikelnummer";"Name";"Beschreibung"
2  "MR1000-10";"Marker 1000 (Rot)";"Marker in der Farbe Rot"
3  "I7-9700K";"Intel Prozessor i7-9700K";"Leistungsstarker Prozessor mit 8 Kernen
4  und einem Basistakt von 3,60 GHz. Der Takt kann auf 4,90 GHz erhöht werden.
5  Unterstützt DDR4-2666 RAM bis 128 GB."
6  "PK3000-KX500";"Papierkassette KX500 für Modell 3000";"Papierkapazität bis zu 530 Blatt"

Diese "Datei" enthält Daten für drei Artikel. Die Daten sind aber über fünf Zeilen verteilt, weil die Beschreibung für den zweiten Artikel über drei Zeilen verläuft. Beginnend mit der Zählung bei 0 erhält man die Artikelnummer für den dritten Artikel also nicht aus .Cell[5,0] sondern mit .Cell[3,0].

Rows

Definition: 

property Rows : Integer read GetRows;

Erklärung:
Gibt die Anzahl der Zeilen für die Datei aus.

Beispiel: 

procedure ImportiereDatei(HatSpaltennamen: boolean);
var nStart : integer;
    i      : integer;
begin
    nStart := 0;
    if (HatSpaltennamen) then begin
        nStart := 1;
    end;

    for i := nStart to oDatei.Rows-1 do begin
        ImportZeile(i);
    end;
end;

Für eine Datei mit folgenden Aufbau wäre die Rückgabe 4: 

"Artikelnummer";"Name";"Beschreibung"
"MR1000-10";"Marker 1000 (Rot)";"Marker in der Farbe Rot"
"I7-9700K";"Intel Prozessor i7-9700K";"Leistungsstarker Prozessor mit 8 Kernen
und einem Basistakt von 3,60 GHz. Der Takt kann auf 4,90 GHz erhöht werden.
Unterstützt DDR4-2666 RAM bis 128 GB."
"PK3000-KX500";"Papierkassette KX500 für Modell 3000";"Papierkapazität bis zu 530 Blatt"

Cols

Definition: 

property Cols : Integer read GetCols;

Erklärung:
Gibt die Anzahl der Spalten für die Datei aus.

Beispiel: 

const
    C_NR     = 0;
    C_NAME   = 1;
    C_BESCHR = 2;

procedure ImportZeile(nZeile: integer);
begin
    if (oDatei.Cols = 3) then begin
        SchreibeArtikel(
            oDatei.Cell[nZeile,C_NR],
            oDatei.Cell[nZeile,C_NAME],
            oDatei.Cell[nZeile,C_BESCHR]
        );
    end;
end;

Für eine Datei mit folgenden Aufbau wäre die Rückgabe 3: 

"Artikelnummer";"Name";"Beschreibung"
"MR1000-10";"Marker 1000 (Rot)";"Marker in der Farbe Rot"
"I7-9700K";"Intel Prozessor i7-9700K";"Leistungsstarker Prozessor mit 8 Kernen
und einem Basistakt von 3,60 GHz. Der Takt kann auf 4,90 GHz erhöht werden.
Unterstützt DDR4-2666 RAM bis 128 GB."
"PK3000-KX500";"Papierkassette KX500 für Modell 3000";"Papierkapazität bis zu 530 Blatt"

Delim

Definition: 

property Delim : Char read FDelim write FDelim;

Erklärung:
Beinhaltet das Trennzeichen für die Spalten.

Quote

Definition: 

property Quote : Char read FQuote write FQuote;

Erklärung:
Beinhaltet das Anführungszeichen für die Texterkennung.

Beispiele

Abgerufen von „http:///index.php?title=OBS/Makros_und_Scripting/Allgemeines/Klassen/Importdatei/TxImportFileCSV&oldid=55346“