過去の桐井戸端BBS (桐ver.5)
9463 固定長のテキストを書き出す一括処理を作ったけど1行しか書き出しされない wa2new 2001/01/25-00:15
みなさん
前回は固定長の書き出しを 桐V5から直接出力を
ご指導いただき ありがとうございました。
恥ずかしながら 先ほど倉庫で 以下のように記述し
実行したところ 最終レコードのみの
テキストが出来上がり 困ってしまいました。
暖かい ご助言お願いします。

●まづ 1800レコード程度の表を開きます。

位置指定 行番号=先頭
      繰り返し (.not #EOF)
         印字開始 "tumi_s.txt"
          印字 #部分列([日付]+#複写("" "",8),-1,8)+#部分列([車輌No]+#複写("" "",3),-1,3))

          印字終了
         位置指定 行番号=次行
       繰り返し終了

この結果 印字した "tumi_s.txt" の中身が1レコードのみでした。

何がわるいのでしょう?????
私が欲しいのは 選択状態の表に有る1800レコードが縦に連なる 固定長テキストなのですが・・・・
          

9464 Re:もう一度固定長・・・お恥ずかしながら 宮城 2001/01/25-02:11
記事番号9463へのコメント
wa2newさん、こんばんは。

そりゃいかんでしょう。レコード毎に印字開始と印字終了をやってれば。
最後のレコードだけになってしまいますね。

このループの外側に記述しないとダメでしょう。(とは、酔ってるけど直感的にそう思います。)

おまけ。インデントも変ですよ。
私は1段しか下げません。インデントのみに限って記述してもこうします。


位置指定 行番号=先頭
繰り返し (.not #EOF)
 印字開始 "tumi_s.txt"
  印字 #部分列([日付]+#複写("" "",8),-1,8)+#部分列¥
  ([車輌No]+#複写("" "",3),-1,3))
 印字終了
 位置指定 行番号=次行
繰り返し終了

9465 解決!!Re:もう一度固定長・・・お恥ずかしながら wa2new 2001/01/25-02:46
記事番号9464へのコメント
>そりゃいかんでしょう。レコード毎に印字開始と印字終了をやってれば。
>最後のレコードだけになってしまいますね。
>このループの外側に記述しないとダメでしょう。(とは、酔ってるけど
>直感的にそう思います。)

いーゃーすみません。
ぜんぜん気付きませんでした。・・・・反省

なんか とてもありがたく思います。
本当にありがとうございました。

《原因》
他のひと の頂戴された 1レコード毎にファイルに書き出す場合の答えを丸写しでした。
あせり・・・・
9466 Re:解決!!Re:もう一度固定長・・・お恥ずかしながら 幅田 2001/01/25-06:24
記事番号9465へのコメント
この場合、印字コマンドを使わないで

#部分列([日付]+#複写("" "",8),-1,8)+#部分列([車輌No]+#複写("" "",3),-1,3))

を項目計算式に書いた項目を別に作り、その項目のみを
書き出ししてもいいと思います。
あえて一括処理を使わなくてもできますし。

9471 Re印字コマンドを使わないで wa2new 2001/01/25-11:06
記事番号9466へのコメント
幅田さんは No.9466「Re:解決!!Re:もう一度固定長・・・お恥ずかしながら」で書きました。
>を項目計算式に書いた項目を別に作り、その項目のみを
>書き出ししてもいいと思います。
●幅田さん ありがとうございます。
実は 佐田先生も
http://www.fuku3.com/~habata/kbbs/kakov5/09417.htm
でおっしゃっていましたが 全国銀行協会の書式を固定長で私も6年前くらいに作成し 今も使用しています。
しかしこれはkifix.exeを使用したもので幅田さん がアドバイスされてるような 書き出しは使用しませんでした。
(使い方が解らなかったからです。)
可変長な桐のフィールド内データを固定長なデータに保つ概念が無かったのも一因ですが
書き出し コマンドと固定長の関連が良くわからなかったのです。

●ところで 今回の私の例では次のような記述でよろしいのでしょうか?
もちろん [項目あ]の中に計算式を記述して
固定長データ 用のバイト数固定のデータが有るとして

●書き出し テキスト,”あああ.txt”,{[項目あ]}

又、今回の処理は 1200行くらいの一括の最後に手続きコマンドでかませてる為
やはり 一括で書く内容でした。
では 勝手ながら
●よろしく ご指導 お願いします。


9474 Re:Re印字コマンドを使わないで 幅田 2001/01/25-12:31
記事番号9471へのコメント
>●書き出し テキスト,”あああ.txt”,{[項目あ]}

これでいいと思います。

9482 ありがとうございました。 wa2new 2001/01/25-19:43
記事番号9474へのコメント
●幅田さん ありがとうございました。
21世紀になるまで 一度も 印字コマンドと
書き出し テキスト コマンドを使用したことが無かったのに
急に使えるようになりました。
得した気分です。

戻る