Jump to content
Imoto

Tcl/Tk: CSVファイルの中身を読みたい

Recommended Posts

Tcl言語では、openコマンドでファイルハンドルを取得して、getsコマンドでハンドルを指定すると、1行ずつ読むことができます。

 

openコマンドの最後を「r」にすると読み込みモード、「w」にすると書き込みモードで開きます。
openコマンドで開いていると、他からの書き込みなどができないロック状態になりますので、最後に忘れずにcloseコマンドで閉じて下さい。


-簡単なサンプルを用意しました。tk_messageBoxを使ったサンプルなので、sample.csv←のような短いCSVファイルで試してみて下さい。

set ft {{"CSV Files" .csv} {"All Files" *}};
set fn [tk_getOpenFile -filetypes $ft];
set fh [open $fn r];
while {![eof $fh]} {
 gets $fh line;
 set line [split $line ,];
 tk_messageBox -message "Gets = ${line}\nLength = [llength $line]";
}
close $fh;

 

 

-表示イメージ-

表示イメージ.jpg

M. Inoue likes this

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×