Hat jemand eine Info wie ich ein Innerhtml des Webbrowser Wort für Wort durchgehen kann, gegebenenfalls kennzeichen und/oder ersetzen kann? Ziel ist es eine Rechtschreibprüfung mit THunSpell direkt in einer Html durchzuführen.
Für eure Hilfe wäre ich sehr dankbar.

Gruß Gerd

Hat niemand eine Idee wie das funktionieren könnte?

Hallo,

Zugriff auf den Text einer HTML-Seite bekommst Du folgendermaßen:

zusammenfalten · markieren

Delphi-Quellcode:

uses
  [...] MSHTML;

procedure DoSomething;
var
  r : IHTMLTxtRange;
  s : WideString;
begin
  r := ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
  s := r.text;
  // weitere Funktionalität
end;

Text markieren geht dann so:

zusammenfalten · markieren

Delphi-Quellcode:

  p := 0; // Position ab der im Text gesucht werden soll
  t := 'some text';
  
  r.moveStart('character', 1);
  r.moveEnd ('textedit', 0);
  r.moveStart ('character', -1);
  
  if r.findText (t, p, 0) then
    begin
      r.select;
      // und wenn Du ersetzen willst
      r.pasteHTML ('replace some text');
    end;

Nachtrag: Natürlich solltest Du vorher WebBrowser1.Document <> nil etc. prüfen!

Gruß

Vielen Dank für dein Info.
Und die Variable p verschiebt sich bis man ans Ende des Textes kommt?

Zitat:

Und die Variable p verschiebt sich bis man ans Ende des Textes kommt?

So ist es. Die letzte Fundstelle merken und den Text ab dieser Stelle durchsuchen.

Gruß

Mit: if r.findText (t, p, 0) then..

kann man nicht wortweise durch einen HTML-Text durchgehen, sondern man kann nur nach bestimmten Wörtern suchen.

Ich suche eine Routine mit der man Wort für Wort durch den Text steppen kann.

Hallo,

Du kannst mal versuchen, ob folgender Code auf Deine Anforderungen anpassbar ist.

zusammenfalten · markieren

Delphi-Quellcode:

uses
  MSHTML;

procedure TForm4.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate ('some-url.htm');
end;

procedure TForm4.Button2Click(Sender: TObject);
var
  r0, r1 : IHTMLTxtRange;
  t : string;
  l : Integer;
begin
  r0 := ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
  r0.moveStart ('textedit', 0);

  while r0.text <> '' do
    begin
      r1 := r0.duplicate;
      r0.moveStart ('word', 1);
      r1.setEndPoint ('EndToStart', r0);

      t := r0.text;
      while (t <> '') and (t [1] in [#9, #10, #13]) do
        begin
          r0.moveStart ('character', 1);
          t := r0.text
        end;

      t := r1.text;
      if (t = '') then
        Continue;

      l := Length (t);
      while (t <> '' ) and (t [l] in [#9, #32]) do
        begin
          r1.moveEnd ('character', -1);
          Delete (t, l, 1);
          Dec (l)
        end;

      if l = 0 then
        Continue;

      if (l = 1) and (t [1] in ['.', ',', '!', '?']) then
        Continue;

      // ggf. auf Anhäufung ungültiger Zeichen o. ä. prüfen

      try
        r1.select;
        Application.ProcessMessages;
        Sleep (200)
      except
        // ggf. Log
        // Text in einem HTML-Container mit style="display:none / visibility:hidden" konnten nicht selektiert werden
      end;
    end;

  r0.select
end;

Gruß

Prima danke,
das ist genau das was ich suche.

Ich baue einen Hunspell-Spellchecker für HTML-Texte, dafür benötige ich das.