Hi,
ich hoffe ich bin hier richtig.
Ich bekomme übers Internet eine
CSV, die ich in ein Array speichern will.
Delphi-Quellcode:
var
Str: String;
I, J, K, Pos: Integer;
begin
Str := HTTP.Get('http://clix.superclix.de/export/partner/exportstats.php?id=' + frmLogin.edtUsername.Text + '&pw=' + frmLogin.edtPasswort.Text + '&mo=10&ja=2007&ta=29');
Str := StringReplace(Str, 'Datum;Nummer;Status;SubID;Partnerprogramm;Provision;Provinfo;Zeit;Ppnr;Währung', '', [rfReplaceAll]);
Str := StringReplace(Str, #$A, '', [rfReplaceAll]);
Pos := 0;
Repeat
Inc(Pos);
For J := 1 to 10 do
begin
K := 0;
Repeat
Inc(K);
if Copy(Str, 1, K) = ';' then
begin
Verdienst[Pos, J] := Copy(Str, 1, K-1);
Str := StringReplace(Str, Copy(Str, 1, K), '', []);
end;
Until Copy(Str, 1, K) = ';';
end;
Until Str = '';
end;
Wer sich mal den Aufbau der
CSV anschauen will ->
http://clix.superclix.de/export/part...&pw=supertest2
Irgendwie hängt sich mein Programm immer auf und mit Step by Step durchgegehen komm ich auch nicht weiter. Gibt es einfachere Möglichkeiten eine
CSV zu parsen?
