| ■5902 / ) |
Re[1]: レコード毎に別名でテキストの書き出し(NO2)
|
□投稿者/ eo -(2010/06/01(Tue) 15:37:03)
| 2010/06/01(Tue) 15:41:43 編集(投稿者)
前の一括処理は、恐ろしいくらい駄作ですね^^;
こんなんでどうでしょう。
変数宣言 固有,文字列{&txt1,&txt2},数値{&txt,&i}
ファイル削除 "*.txt"
表 "ファイル名.tbl"
&txt=1
繰り返し (.not #EOF)
繰り返し &i=1,9
&txt1=#文字列(&txt,5)
印字開始 &txt1,追加
印字 [番号]
印字 [個数]
印字終了
&txt2=#文字列(&txt+1,5)
印字開始 &txt2,追加
印字 [アイテム]
印字終了
ジャンプ 行番号 = 次行
条件 (#EOF) 繰り返し中止
繰り返し終了
&txt=&txt+2
繰り返し終了
|
|
