Mahlzeit!

So einige kennen hier ja bestimmt csv Dateien. Die sind mit Excel herstellbar und gut geeignet um mit ihnen Datenbanken zu bearbeiten. Nun will ich aus einer csv die Seperatoren( ein ';') pro Zeile zählen und einen Fehler ausgeben, wenn es weniger als x sind. Ich habe in der beigelegten Hilfe zu meiner Delphi 3-Version nichts dazu gefunden, auch Google und SuFu hat mir nichts gebracht...
die normalen Such-Befehle bringen ja leider nicht raus, wie oft ein Char pro Zeile vorhanden ist, was ich sonst nutzen könnte.

Danke schonmal im Voraus

~Lamiadon

Hallo,

da es in Delphi3 posex noch nicht gibt, wird Dir nicht
viel anderes übrigbleiben als die Zeile Buchstabe für Buchstabe durchzugehen.

markieren

Delphi-Quellcode:

for i:=1 to lenght(zeile) do
  if zeile[i] = ';' then
    inc(counter);

Grüße
Klaus

markieren

Delphi-Quellcode:

function ZaehleZeichen(const zeile: String; const suchzeichen: Char): integer;
var
  i: integer;
begin
  Result := 0;
  if Length(zeile) > 0 then
    for i := 1 to Length(zeile) do
      if zeile[i] = suchzeichen then
        Result := Result + 1;
end;

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

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:

zusammenfalten · markieren

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

genau

joa, danke, schnell wie immer ^^

werde die möglichkeit probieren, die zweite von oben zu nehmen, weil in den Dateien keine ';' außer den Seperatoren vorkommen, und ausprobieren, sobald ich da durchgestiegen bin, bin schließlich noch neuling und muss ersma die befehle in der hilfe nachgucken, schließlich will ich nichts verwenden, was ich nicht auch verstehe.

~Lamiadon

edit: also, wenn ich das richtig sehe, sind "suchzeichen" und "Zeile" Platzhalter, oder
Kann ich diese function so auf eine TStringList anwenden

*hat noch nicht viel mit functions gearbeitet*