eBay Turbolister CSV einlesen

[marabu]

In der Demo kannst du im Ereignis OnCreate() der Form zwei zusätzliche Zeilen eintragen:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.Title := Caption;
  FFileName := '';
  FNames := TStringList.Create;
  Values := TStringList.Create;
  FFields := TStringList.Create;

  // Trenner umstellen
  FFields.Delimiter := ';';
  FNames.Delimiter := ';';
end;

Danach solltest du die Datei problemlos öffnen können. Allerdings soll dir die Demo nur den Umgang mit einer virtuellen ListView nahe bringen.

Bei eBay wird für mich der Eindruck erweckt, der gewünschte Trenner sei ein Komma:

Zitat:

Wie erstelle ich eine CSV-Datei?

CSV-Dateien können auf verschiedene Weise erstellt werden. Zumeist werden sie mit Hilfe eines Tabellenkalkulationsprogramms wie Microsoft Excel angelegt und dann als CSV gespeichert. (Im Datei "Menü" von Microsoft Excel den Menüpunkt "Speichern unter" auswählen -> dann als Dateiformat CSV (Trennzeichen-Getrennt) wählen und die Datei speichern). Danach müssen Sie die gespeicherte Datei mit einem Editor (z.B. Notepad) aufrufen und das ";"(Semikolon) Trennzeichen durch ein "," (Komma) Trennzeichen ersetzen. Wählen Sie dazu im Editor im Menü "Bearbeiten" die Funktion "Ersetzen". Geben Sie dann im "Suchen nach" Feld ein ";" (Semikolon) und im "Ersetzen Durch" Feld ein "," (Komma) ein und drücken Sie auf die Schaltfläche "Alles Ersetzen".

Seltsam...

Freundliche Grüße