こんにちは。Koji27です。

非常に単純なんですが、HTMLからタグを除去するだけというサンプ
ルです。たまにはこんな単純なモノも良いのでは？と思いまして(^-^;

FormにMemoとButtonを１つずつ配置して、MemoにはHTMLのソースを
コピーしてて下さい。Buttonを押すとMemo内のHTMLソースからタグ
を除去します。

---------------



function TForm1.GetPlainText(const StrHTML: string): string;
var
  StrText, StrTmp: string;
  IntS, IntE: Integer;
begin
  StrTmp := StrHTML;
  repeat
    IntS := Pos('<',StrTmp);
    if IntS <> 0 then begin
      IntE := Pos('>',StrTmp);
      StrText := StrText + Copy(StrTmp,0,IntS-1);
      StrTmp := Copy(StrTmp,IntE+1,Length(StrTmp));
    end;
  until IntS = 0;
  Result := StrText;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Memo1.Text := GetPlainText(Memo1.Text);
end;

---------------

             < Koji27 ☆ Navigated by EmNifty >
            < http://www.marimo.or.jp/~koji27/ >


Original document by Koji27          氏 ID:(DZP02560)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。