TStcltk 発言

伊藤です。

Tclのregsubコマンドを使用して、改行コードを変換させたいので
すが、どのようにすればいいでしょうか？
環境は Windows2000 Tcl/Tk8.4 です。

具体的には、以下の内容のテキストファイルがあり、改行コードを
無くして出力したいのです。

AAAA^M
BBBB^M
↓
AAAA
BBBB

試したコード
--------------------
set fd [open "test" r]
while {[fgets $fd line] >= 0} {
    regsub -line {.*\f\n*} "" line
    puts $line
}
--------------------
でも、これではダメでした。正規表現の書き方が悪いと思うのです
が、どのように書けば良いか解りません。
よろしくお願いします。

-- 
伊藤 孝浩
mailto:taka@...