Suchbegriff als "ganzes Wort" innerhalb eines Textes suchen

[Helmi]

Hallo,

mittels folgendem Code ermittle ich die Anzahl eines Suchbegriffes innerhalb eines Textes.

Delphi-Quellcode:

  Offset  := 1;

  max_Ende := length(Zeile);

  repeat
    akt_Pos := PosEx(SuchText, Zeile, Offset);

    If akt_Pos > 0 then
      begin
        If akt_Pos <= max_Ende then
          inc(Result);

        Offset := akt_Pos + 1;
      end;
  until akt_Pos = 0;
end;

Damit wird aber z. B. der Suchbegriff "und" auch in "Kunde" gefunden.
Wie kann ich eine Suche nach "ganzem Wort" realisieren?
Wichtig ist hierbei, dass alle Vorkommen innerhalb des Textes gezählt werden sollen.

[DeddyH]

Du musst eben jeden Treffer noch weiter analysieren. Davor und dahinter sind dann je nach Definition eines ganzen Wortes eben nur Leer- und Satzzeichen oder Zeilenumbrüche erlaubt. Außerdem musst Du noch schauen, ob es sich evtl. um den Textanfang oder das Textende handelt.

[bernerbaer]

Vielleicht ist ja StrUtils.SearchBuf das was Du suchst (Options: soWholeWord)

[Helmi]

Zitat von bernerbaer:

Vielleicht ist ja StrUtils.SearchBuf das was Du suchst (Options: soWholeWord)

SearchBuf kannte ich schon - aber das liefert nur das erste Vorkommen - ich müsste es dann immer wieder aufrufen um alle Vorkommen zu finden, aber dann vermute ich, dass es sehr langsam wird

[bernerbaer]

Dann würden sich wohl noch die Verwendung von regulären Ausdrücken anbieten, ob das aber schneller ist als mit "searchbuf" wäre noch zu überprüfen.

[Helmi]

Ich hab SearchBuf ausprobiert und es schaut ganz gut aus
nur wie kann ich jetzt feststellen welche Position der gefundene Zeiger im Text hat?

Zitat von Hilfe:

Wenn die Suche erfolgreich war, gibt SearchBuf einen Zeiger auf das erste Zeichen der Fundstelle in Buf zurück. Andernfalls wird nil (Delphi) bzw. NULL (C++) zurückgegeben.

[Volker Z.]

Hallo,

versuch mal folgendes (auf Deine Problemstellung anzupassen):

Delphi-Quellcode:

procedure TForm4.Button2Click(Sender: TObject);
var
  c, i, l : Integer;
  p, q    : PAnsiChar;
  s       : Integer;
begin
  c := 0;
  i := 1;
  s := 'und';
  l := Length (Memo1.Lines.Text);
  p := PAnsiChar (Memo1.Lines.Text);
  q := SearchBuf (p, l, i, i, s, [soDown, soWholeWord]);

  while q <> nil do
    begin
      Inc (c);
      i := q - p;
      q := SearchBuf (p, l, i, i, s, [soDown, soWholeWord]);
    end
end;

Gruß

[Helmi]

Zitat von Volker Z.:

Hallo,

versuch mal folgendes (auf Deine Problemstellung anzupassen):

Delphi-Quellcode:

procedure TForm4.Button2Click(Sender: TObject);
var
  c, i, l : Integer;
  p, q    : PAnsiChar;
  s       : Integer;
begin
  c := 0;
  i := 1;
  s := 'und';
  l := Length (Memo1.Lines.Text);
  p := PAnsiChar (Memo1.Lines.Text);
  q := SearchBuf (p, l, i, i, s, [soDown, soWholeWord]);

  while q <> nil do
    begin
      Inc (c);
      i := q - p;
      q := SearchBuf (p, l, i, i, s, [soDown, soWholeWord]);
    end
end;

Gruß

Danke für den Code - hab jetzt in der Zwischenzeit auch die Zeile i := q - p; raugefunden.

Aber warum muss es i := q - p; lauten und nicht i := p - q; ?

[DeddyH]

Weil das Ergebnis dann negativ würde?

[Helmi]

Zitat von DeddyH:

Weil das Ergebnis dann negativ würde?

Ja, aber warum?
Sorry - ich bin mit Zeigern nicht so bewandert

Meine Erklärung wäre, weil die Anfangsadresse des Textes kleiner ist, als die Adresse des 1. Suchbegriffes
??