Windows で常に実行されるミニ アプリケーションを作成しています。次の 2 つのタスクがあります。
UNIX システムから作成されたテキスト ファイルを読み取り、同じ内容の新しいファイルを出力しますが、windows ファイルで終了します。
Windows システムからテキスト ファイルを読み取り、同じ内容の新しいファイルを出力しますが、UNIX ファイルの末尾が付きます。
チャネル入力の行末は、常に tcl から自動的に処理される必要があります。
ただし、-eofchar は 2 つの引数 (1 つは入力用、もう 1 つは出力用) を想定しています。タスク 1 を実行するために -eofchar に引数として何を渡す必要があり、タスク 2 を実行するには何を渡す必要がありますか?
make windows eof proc の私のコード:
proc MakeWin {} {
# read file
set types {
{{All Files} * }
}
set filename [tk_getOpenFile -filetypes $types]
set infile [open $filename]
# open file for writing
set PathWname [tk_getSaveFile -filetypes $types -initialdir $DefPath -title "Save Results as:"]
set outfile [open $PathWname w]
# chan configure $outfile -eofchar ??
#
while {[gets $infile line] >= 0} {
puts $outfile $line
}
close $infile
close $outfile
}