wie könnte ich csv datei auslesen? Hilfe!!!

[k_ocel]

hi.
ich habe ein problem.
ich möchte gern eine csv datei auslesen mit spalten.
zumbeispiel:

Zitat:

nr;anrede;name;strasse;telnr;land;gebdatum;firma
1;frau;andrea müller;haupstr 33;0122344444;deutschland;01.01.1970;;
2;herr;sten mauer;landstr 32;017222222222;dutschland;;;

ich möchte gern spalte: name,strasse,telnr,land in einem array speichern.
kann jemand mir helfen?
danke....

[mkinzler]

Durch manuelles Zerlegen per PosEx bzw. Stringliste oder als "Datenbank" einem CSVDataSet.

[Klaus01]

explode ist da ganz hilfreich.

Grüße
Klaus

[k_ocel]

ich habe ein record wenn ich eine zeile lesen würde und alle benötigte spallte gefunden hätte, dann speichere ich in der access db.

Zitat:

KundenLfdnr KundenName KundenVorname KundenBeschreibung KDOrt KDStrasse KDPLZ KDTelNr KDFaxNr KDEmail KDHpAdr Land
48 Elisabeth Renate Hauser z.H. Trixl eBay import04.02.2007 18:50:03 Reit i. Winkl Dorfstr. 8 D- 83242 [e-mail] Deutschland

kundenlfdnr ist autoinc.
KundenLfdnr
KundenName
KundenVorname
KundenBeschreibung
KDOrt
KDStrasse
KDPLZ
KDTelNr
KDFaxNr
KDEmail
KDHpAdr
Land

[mkinzler]

Dann würde ich ein CSVDataSet (z.B. bei JVCL) verwenden.

[k_ocel]

na gut!
welche unit ist er csvdataset?
oder welche companente?
ich habe delhi 6 !!!
bis dann

[Relicted]

hm nen einfacher weg ist auch einfach die TStrings Klasse: Als standardmäßiger stringseperator ist das ";" eingestellt. vondaher use the DelimitedText property :-)

Zitat:

Zitat von onlinehilfe

Die Eigenschaft DelimitedText stellt alle Strings im TStrings-Objekt in einem einzigen String dar.

Delphi-Syntax:

property DelimitedText: string;

C++ Syntax:

__property AnsiString DelimitedText = {read=GetDelimitedText, write=SetDelimitedText};

Beschreibung

DelimitedText bietet die Möglichkeit, alle Strings eines TStrings-Objekts wie einen einzigen String zu behandeln.

Beim Lesen von DelimitedText erhalten Sie einen Wert, in dem die einzelnen Strings auf zwei Arten voneinander getrennt sind: jeder String wird von dem Zeichen eingeschlossen, das in der Eigenschaft QuoteChar angegeben ist. Zwischen den einzelnen Strings steht das Zeichen, das in der Eigenschaft Delimiter angegeben ist.

Wenn Sie DelimitedText einen Wert zuweisen, müssen die einzelnen Strings zwischen dem in QuoteChar festgelegten Zeichen stehen oder mit dem in Delimiter definierten Trennzeichen voneinander getrennt werden. Die beiden Methoden können auch gleichzeitig verwendet werden.

Hinweis: Die Eigenschaft CommaText entspricht der Eigenschaft DelimitedText, wenn als Trennzeichen (Delimiter) ein Komma und als Anführungszeichen (QuoteChar) das Zeichen " verwendet wird.

damit haste deinen string schnell auseinander gefrickelt :-)

gruß
reli

[mkinzler]

Ist nicht bei D dabei. Aber wie erwähnt in der freien Komponenetnsammlung JVCL

[Heffalump]

Mann könnte auch über ADO mit Hilfe des ODBC Treiber "Microsoft Text-Treiber"/"Microsoft Text Driver" auf die Textdatei zugreifen und dann per SQL abfragen und hat damit die Funktionalität von SQL zur Verfügung.

[Klaus01]

Zitat:

Zitat von Relicted

hm nen einfacher weg ist auch einfach die TStrings Klasse: Als standardmäßiger stringseperator ist das ";" eingestellt. vondaher use the DelimitedText property :-)

Hat aber den Nachteil, das zwischen zwei ; kein Leerzeichen vorkommen darf, die StringList interpretiert
das Leerzeichen auch als Trennzeichen. Wenn die StringList verwendet werden soll, dann müßen
die Felder in Quotes " " eingeschlossen werden.

Grüße
Klaus

[marabu]

Hallo,

wenn die CSV-Daten ohne jegliches Quoting daherkommen, dann wurde das Trennzeichen offensichtlich so gewählt, dass es selbst nie in den Daten vorkommt. Eine Verarbeitung ist dann recht einfach:

Delphi-Quellcode:

procedure Explode(const s, delimiter: string; items: TStrings);
begin
  items.CommaText := StringReplace(AnsiQuotedStr(s, '"'), delimiter, '","', [rfReplaceAll]);
end;

function Implode(items: TStrings; delimiter: string): string;
begin
  Result := StringReplace(items.Text, sLineBreak, delimiter, [rfReplaceAll]);
end;

Grüße vom marabu

[k_ocel]

vielen dank jungst!!!
Ihr seid spitze!!
danke schön
ich probiere mal!!!

[mschaefer]

Oft sind csv - Dateien aber nach dem Schema aufgebaut:

Code:

Feld_1,              Feld_2,        Feld_3
"Schneider, Hendrik","Thiel, Anja", "Duisberg, Karl"

da bleibt dann doch wieder Handcodieren

Grüße // Martin

[acadam71]

Stringlist macht keine Zeilenumbrüche bei Leerzeichen wenn man folgendes festlegt:
StringList.StrictDelimiter := True;

[mkinzler]

Zitat:

Zitat von acadam71

Stringlist macht keine Zeilenumbrüche bei Leerzeichen wenn man folgendes festlegt:

Wenn die verwendete Delphiversion das schon kann

[alzaimar]

Wozu in die Ferne schweifen, wo das Gute liegt so nah?

[semo]

Ich hoffe bei den Beispieldaten aus Betrag 4 handelt es sich um keine Originaldaten? Wenn doch, dann würde ich diese schnell mal entfernen...