Nur eine Spalte aus CSV-Datei auslesen und verarbeiten

[himitsu]

Am Schnellsten vielleicht. (wobei #9 natürlich auch , oder ; oder sonstwas sein kann .. drum nennen es Manche auch DSV statt CSV oder sagen einfach "character" statt "comma")
Mit "am Einfachstes" endet es schon, wenn die Zeilen nicht mit #13#10 enden, sondern eventuell auch mit #10 oder #13.

[Benmik]

Ich wusste, sowas würde kommen...

Ich gehe einfach mal davon aus, dass a) die Dateien vielleicht sogar von ihm selbst stammen b) CSV-Dateien praktisch immer #9 und #13#10 haben und c) er notfalls nachschaut.

[himitsu]

Drum auch TStringList ... die macht das Trennen der Zeilen (#10, #13 oder #13#10), aber es geht auch ReadLn oder eben z.B. ein PosEx(#13#10).
Und dann nochmal eine weitere TStringList.DelimitedText für das Trennen am "Komma", wofür man auch jede beliebige andere SplitString-Funktion nehmen kann,
So man muß sich um fast nichts kümmern und ist alles schon von Haus aus im Delphi vorhanden.

ReadAllLines erzeugt ein TArray<string> mit allen Zeilen (wie die erste StringList)
Bei diesem Code muß man aber aufpassen, den wenn in irgendeiner Zeile nicht 2 Spalten, also mindestens 1 Delimiter vorkommt, dann knallt es, wenn man so ungeprüft auf das Array zugreift.

Delphi-Quellcode:

for var Values in TFile.ReadAllLines('C:\irgendwo\file.csv') do
  MacheWasMitDerZweitenSpalte(Values.Split([#9])[1]);

Man könnte das ganze Problem sogar mit einem RegEx lösen, also irgendwie so

Delphi-Quellcode:

for var Match in TRegEx.Matches(TFile.ReadAllText('C:\file.csv'), '^[^\t]*\t([^\t]*)', [roMultiLine]) do
  DoWithSecondValue(Match.Groups[1]);  // Match.Value

[Fuchtel]

Meine Lösung:

Eine von TStringList abgeleitete Komponente (z,B,.: TStringList_Ex);

Uberschreibe

Code:

function Add(const S: string): Integer;
var
  sp: Szring;
begin
  Result := GetCount;
  sp := Part(S, <cSep>, 2);
  Insert(Result, sp);
end;

Wobei cSep dein Separator (hier #09 ist)

Code:

function Part(const sVar: String; const cSep: Char; UV: Integer): String;
var
  P, S : PChar;
  i, j : Integer;
begin
  P := Pointer(sVar);
  S := P;
  i := 1;
  j := UV; Inc(j);
  If P <> nil then
    begin
      While (P^ <> #0) do
        begin
          If P^ = cSep then
            begin
              INC(i);
              If i = UV then S := P;
              If i = j then break;
            end;
          P := NextChar(P);
        end;
    If UV > 1 then INC(s);
    If (i >= UV) and (UV > 0) then
        System.SetString(Result, S, P - S)
      else
        Result := '';
  end;
end;

Falls NextChar fehlt:

Code:

function NextChar(P: PChar): PChar;
begin
  Result := P;
  if (Result <> nil) and (Result^ <> #0) then
  begin
    Inc(Result);
    {$IFDEF UNICODE}
    if Result^.IsLowSurrogate then
      Inc(Result);
    while Result^.GetUnicodeCategory = TUnicodeCategory.ucNonSpacingMark do
      Inc(Result);
    {$ENDIF}
  end;
end;

Wobei, wenn Du nur den größten Wert ermitteln willst, nimm nur daraus die Proceduren:

Code:

procedure TStrings.LoadFromFile(const FileName: string);

Code:

procedure TStrings.LoadFromStream(Stream: TStream; Encoding: TEncoding);

und fuer Add

Code:

function Add(const S: string): Integer;
var
  sp: String;
  i: Integer
begin
  sp := Part(S, <cSep>, 2);
  FMax := Max(FMax, StrToIntDef(sP, - MaxInt));
end;