外部ファイルを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:読み込んだ行を表示 |