HtmlMemo Extract Plain Text - How ?

[andyhill]

How can I get the Plain Text from the HtmlMemo ? MyLines(TStringList) in code at runtime.

MyLines.SetStrings(HtmlMemo.Lines); // I want plain text CRLF for each line

 

[Sherzod]

20 minutes ago, andyhill said:

How can I get the Plain Text from the HtmlMemo ?

What is your HTML string for example?

[andyhill]

Hello

<b style=""><font color="#ff0000">Hello</font></b>

I need text "Hello" only (no markup)

[Ronbral]

You must use an HTML Parse to extract any content from the HTML document. I use CleverSuite, which has this functionality. But there are many libraries on the market for this purpose.

[andyhill]

Yes, I was hoping for UniGUI to provide this capability - Thanks

[Sherzod]

3 hours ago, andyhill said:

<b style=""><font color="#ff0000">Hello</font></b>

I need text "Hello" only (no markup)

 

27 minutes ago, andyhill said:

Yes, I was hoping for UniGUI to provide this capability - Thanks

For start, you can try to use this approach:

procedure TMainForm.UniButton1Click(Sender: TObject);
  function StripHTML(S: string): string;
  var
    TagBegin, TagEnd, TagLength: integer;
  begin
    TagBegin := Pos( '<', S);

    while (TagBegin > 0) do begin
      TagEnd := Pos('>', S);
      TagLength := TagEnd - TagBegin + 1;
      Delete(S, TagBegin, TagLength);
      TagBegin:= Pos( '<', S);
    end;

    S := StringReplace(S, '&nbsp;', ' ', [rfReplaceAll]);

    Result := S;
  end;
begin
  UniMemo1.Lines.Text := StripHTML(UniHTMLMemo1.Lines.Text)
end;

 

[andyhill]

Thank you Sherzod, I used the very same code however I could not remove the &nbsp; - do you have an answer for that ?

[Sherzod]

2 minutes ago, andyhill said:

I could not remove the &nbsp; - do you have an answer for that ?

    S := StringReplace(S, '&nbsp;', ' ', [rfReplaceAll]); //<-----

    Result := S;

 

[andyhill]

No, it fails to remove, try it (Delphi 10.3)

[Mehmet Emin]

Do you have the option to process this in browser ?

HTMLElement.innerText would do it. Then you can send it to server.

[andyhill]

I can remove NBSP if I refer to it as #$A0