外部ファイルを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 リストファイル：readfile_cmd_list.txtuname -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 |
2.マクロ Tips > Tera Tremマクロ >
ファイルを1行ずつ読み込んで処理
外部ファイルを1行ずつ読み込んで、ループさせる例です。 色んな場面で活用出来ます。 ■サンプル1：読み込んだ行を表示 |