Text in Memo finden

**marabu**

Hallo Tommy,

du musst das Ergebnis der Funktion auch seiner Verwendung zuführen:

Memo1.Text := ReplaceBetween('<head>', '</head>', Memo1.Text); Es gibt aber auch noch einen zuverlässigeren Weg:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TDemoForm.ButtonClick(Sender: TObject);

var

  doc: IDispatch;

  ec: IHTMLElementCollection;

  title: IHTMLTitleElement;

begin

  doc := GetDocument(Memo.Text);

  // oder direkt aus dem Internet mit

  // doc := GetDocument(HTTP.Get('http://localhost'));

  with doc as IHTMLDocument3 do

  begin

    ec := getElementsByTagName('title');

    if ec.length > 0 then

    begin

      title := ec.item(0, null) as IHTMLTitleElement;

      title.text := 'potzblitz';

    end;

    Memo.Lines.Text := documentElement.outerHTML;

  end;

end;

Natürlich brauchst du noch die Funktion GetDocument:

markieren

Delphi-Quellcode:

			function GetDocument(const markup: WideString): IDispatch;

var

  doc: OleVariant;

begin

  Result := CoHtmlDocument.Create;

  doc := Result;

  doc.Open;

  doc.Write(markup);

  doc.Close;

end;

Dabei darfst du nicht vergessen die Units ActiveX und Mshtml einzubinden.

Freundliche Grüße vom marabu

Text in Memo finden

Re: Text in Memo finden

Forumregeln