TStcltk 発言

藤岡です。こんばんは。

puts -nonewline $line

putsは通常は改行を付けて出力します。

しかし、

while {[gets $fd line] >= 0} {

で読み込めば改行は削除して読み込むはずですが・・・

On Mon, 28 Jul 2003 20:30:00 +0900
Ito Takahiro <taka@...> さんwrote:

> 伊藤です。
> 
> 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@...

藤岡 和夫
FGALTS@...
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/