html转TXT怎么转

Question

html转TXT怎么转

Answer 1

function Html2Text(Str : String):String;
var
  StrL, i : Integer;
  NewStr : String;
begin
  StrL := StrLen(PChar(Str));
  i := 0;
  While i < StrL do
    begin
    Inc(i);
    if Str[i]='>' then
      begin
      While Str[i+1]<>'<' do
        begin
          Inc(i);
          if i > StrL Then Break;
          NewStr := NewStr + Str[i];
        end;//End While
      end;//End if
    end;//end While
  Result := NewStr;
end;