Bestimmten String zählen?

[MCXSC]

Kann es nicht doch an der UTF-8-Codierung liegen? Aber im Notepad werden die Wörter gefunden...

//Edit: Hab grad mal in den Durchlauf der Liste mit den zu suchenden Wörtern für jeden Eintrag eine ShowMessage hinzugfügt, da wird komischerweise auch korrekt "Komödie" angezeigt, scheint also ganz normaler "Klartext" zu sein...

Weiß keiner nen Rat? :cry: :cry: :cry:

[SirThornberry]

kannst du mal die datenbank geladene Datei anhängen?

[marabu]

Hier eine kleine Starthilfe:

Delphi-Quellcode:

function Occurrences(xn: IXMLNode; const literal: String): Cardinal;
var
  Count: Cardinal;
  i, iPos: Integer;
  dn: IDOMNode;
  nl: IDOMNodeList;
  s: String;
begin
  Count := 0;
  nl := (xn.DomNode as IDOMNodeSelect).selectNodes('//text()');
  for i := 0 to Pred(nl.length) do
  begin
    dn := nl.item[i];
    s := dn.nodeValue;
    iPos := Pos(literal, s);
    while iPos > 0 do
    begin
      Inc(Count);
      iPos := PosEx(literal, s, iPos + Length(literal));
    end;
  end;
  Result := Count;
end;

procedure TDemoForm.CountButtonClick(Sender: TObject);
begin
  with XMLDocument do
  begin
    FileName := 'Meine Filme.xml';
    Active := true;
    ShowMessage(IntToStr(Occurrences(DocumentElement, 'Ärzte')));
  end;
end;

Grüße vom marabu