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