ファイルを1行ずつ読み込んで処理

外部ファイルを1行ずつ読み込んで、ループさせる例です。
色んな場面で活用出来ます。

■サンプル1:読み込んだ行を表示

リストファイル:readfile_msg_list.txt

あか~ん

マクロ:readfile_msg.ttl

;リストファイル定義
LIST_FILE = 'list.txt'

;ファイルオープン
fileopen FH LIST_FILE 0

while 1
;ファイルから1行読む
filereadln FH VAL

;最終まで読み込んでいたらループを抜ける
if result = 1 then break

        ;読み込んだ行を表示
messagebox VAL LIST_FILE
endwhile

;ファイルを閉じる
fileclose FH


■サンプル2:読み込んだ行をコマンドとして実行

リストファイル:readfile_cmd_list.txt

uname -n
date
df

マクロ:readfile_cmd.ttl

;リストファイル定義
LIST_FILE = 'readfile_list.txt'

;プロンプト定義(適宜変更)
PROMPT = 'sh-3.00$'

;ファイルオープン
fileopen FH LIST_FILE 0

while 1
;ファイルから1行読む
filereadln FH VAL

;最終まで読み込んでいたらループを抜ける
if result = 1 break

;読み込んだコマンドを実行
flushrecv
sendln VAL
wait PROMPT

endwhile

;ファイルを閉じる
fileclose FH

SelectionFile type iconFile nameDescriptionSizeRevisionTimeUser
ċ

ダウンロード
  1KB v. 1 2012/08/28 1:22 h tsuki
ċ

ダウンロード
  1KB v. 1 2012/08/28 1:22 h tsuki
Comments