how to copy text from UniDBHtmlMemo without Html tag

[uniguibbs]

help, how to  copy text from UniDBHtmlMemo without Html tag?

[uniguibbs]

actually

， i want export data to excel without Html tag. 

[Sherzod]

Hi uniguibbs.

 

 

Try this function:
 

function StripHtmlMarkup (const source: string): string;
var i, count: Integer;
    InTag: Boolean;
    P: PChar;
begin
  SetLength (Result, Length (source));
  P := PChar (Result);
  InTag := False;
  count := 0;
  for i := 1 to Length (source) do
    if InTag then
      begin
        if source [i] = '>' then InTag := False;
      end
    else
      if source [i] = '<' then InTag := True
      else
        begin
          P [count] := source [i];
          Inc (count);
        end;
  SetLength (Result, count);
end;

for example:
 

UniMemo1.Text := StripHtmlMarkup (UniHTMLMemo1.Text);

Source: http://stackoverflow.com/questions/5717405/how-to-extract-text-from-such-type-of-html-source

 

 

...or you can look in the direction of regular expressions...

 

Sincerely.

[uniguibbs]

Thank you ,  duser .

useful for me.