山本さま
この前のメイルで、諸事、うまく行きました。感謝します。
と同時に、データファイルの末端に、
--------------------
<改行>
<半角空白文字><改行>
<EOF>
--------------------
のような不細工なことは、いままでしたことがなかったので、
かなりショックでした。ご迷惑をおかけし、申し訳ありません。
また人名の並べ替えですが、僕のはやとちりです。あのサン
プルデータでは、0〜2まで欄をキーにしても並び変わりませ
ん。こちらもお詫びして訂正します。
ところで、sortfield.tclの結果は、コンソール画面に文字
バケもせず、表示され、これは素直に感動しました。という
のは、コマンドラインで日本語入力をしても、王贛愚の贛な
どは?となってしまうからです。ただリダイレクトで、ソート
結果をファイルに保存ができないのが、残念です。
また、
% proc sortfield {filename column encoding} {;set fd
[open $filename];fconfigure $fd -encoding $encoding;
set data [lsearch -all -regexp -inline [split [read
$fd] \n] .+];puts [join [lsort -index $column $data]
\n];close $fd;}
で、ファイルの区切りを半角の空白ではなく、たとえば/
(スラッシュ)に変更することなどはできるのでしょうか。
ただこれらの疑問は、自分で少しずつ解決してゆくつもり
です。具体的にまた質問させていただくかも知れませんが、
今回はまずは動作確認の報告とお礼まで。
みずは