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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
You are posting as a guest. If you have an account, please sign in.
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...