作者: Koichi Yamamoto
日時: 2003/12/5(19:58)
こんにちは、山本です。

"HFC01730@... (水羽信男)"さんは書きました：
> 現在、仕事の関係で30kbps程度の上網環境しかなく、ここ数日間は、ActiveTclのダウ
> ンロードもかなわず、手つかずの状況でした。昨日、ようやくインストールができ、件
> の作業を確認したところ、所期の成果を得ることができました。

お役に立ててよかったです。
蛇足ですが、検索結果に表示されたファイル名はリンクになっていますから、
クリックして該当ファイルを開くことができます。

> ただ、検索対象のファイルの方に意味のない半角が入っていたせいで、１つヒットしな
> かったものがありますが、これはfind.tclではなく、元ファイルのバグですので、気に
> なさらないでください。

もし、半角空白文字・タブ・改行文字も無差別に削除してしまってよいのであれば

      regsub -all -- {<[^>]*>} [read $fd] {} html

という行を

      regsub -all -- {<[^>]*>|[ \t]*|\n*} [read $fd] {} html

とすればOKです。
# 全角空白文字も削除するときは {<[^>]*>|\s*|\n*} です。

> 今回、はじめてActiveTclというものに触れたのですが、大変に興味が湧いてきました。
> その意味でも大変に感謝しています。

Tclはインタープリタ本体が多言語に対応していますので、今回のような
問題を解決するのに適しています。今回はオマケでGUIも付けてみましたが、
コマンドベースのスクリプトも作ることができますよ。
興味がありましたら、TStcltkもご覧下さい。

--
Koichi Yamamoto, 
http://homepage3.nifty.com/yamakox/