TStcltk 発言

水羽です。

山本さんのメイルをみながら、次のようなプロシージャ
を考えてみました。

----------ここから-----------------
# 入力・出力データの形式は、以下のとおり
# 1/李広田/りこうでん
# 2/王迅中/おうじんちゅう
proc sortfield3 {filename column encoding} {
     set fd [open $filename] 
     fconfigure $fd -encoding $encoding

    set data [read $fd 1]
    if [string equal $data \ufeff] {
        set data [read $fd]
    } else {
        append data [read $fd]
    }
    close $fd
    foreach i $data {lappend data2 [split $i /]}
    set data3 [join [lsort -index $column $data2] \n]
    puts [regsub -all -line \  $data3 /]
}
--------おわり--------------------

いまのところ期待通りの動作なのですが、データファイル
が大きくなるとここが問題だ、とか、何か気づかれた点が
あれば、ご教示いただければ、幸甚です。

みずは