Chars in *.cvs pro Zeile zählen

[_frank_]

Zitat von mpth:

allerdings werden damit nicht vorkommen von ; (= suchzeichen) innerhalb von felddaten (also innerhalb von gänsefüßchen) ausgelassen...

aber so solltes dies funktionieren:

Delphi-Quellcode:

function ZaehleZeichen(const zeile: String; const suchzeichen: Char): integer;
var
  i: integer;
  quoted:boolean;
begin
  Result := 0;
  quoted:=false;
  if Length(zeile) > 0 then
    for i := 1 to Length(zeile) do
    begin
      if (zeile[i] = '"') then 
        quoted:=not quoted 
      else
        if (zeile[i] = suchzeichen) and (not quoted) then
          Result := Result + 1;
    end;
end;

HTH Frank