過去の桐井戸端BBS (桐ver.8)
12978 会社名ごとにCSVで書き出すときに、それぞれのファイル名をその会社名にしたい UG2 2001/09/10-14:32
現在、Ver8.6を使用しています。
表を、単一化して会社名ごとにレポートに書き出しています。
これを、会社名ごとにCSVファイルで書き出したいのですが、
当然の事ながら、条件名で書き出しすると同じファイル名になってしまい、不可能でした。

そこで、できれば会社名ごとに A社.CSV, B社.CSVと言うように、書き出ししたいのですが、
可能なのでしょうか?

もし、不可能の場合、1.CVS, 2.CSVと言うように、適当な名称を付けて書き出すことは、
可能なのでしょうか?

アドバイスの程宜しくお願い申し上げます。
12979 Re:繰り返し?書き出し CSV pokopon 2001/09/10-15:31
記事番号12978へのコメント
UG2さん こんにちは

>そこで、できれば会社名ごとに A社.CSV, B社.CSVと言うように、書き出ししたい

桐の会話形式からですか? 一括処理を組まないとダメなような気がしますが。
会社がある程度固定されていて(数社程度)いるならば複数の条件名を根性で設定して行えますし、
「履歴」という手もありますが、多分そうではなさそうですね(毎回不特定)。

やっぱり一括処理を組む必要があるかと思いますけど。
会社名の入っている項目を[会社名]として

解除 *
並べ替え {[会社名]昇順}
繰り返し (.not #EOF)
  &STR = [会社名]
  ジャンプ 行番号 = 次行
  if ([会社名]<>&STR)
   絞り込み [会社名]{&STR}
    書き出し CSV , &STR , {[会社名],[売上],[実績]・・・・出力したい項目を
必要なだけ} 
   絞り込み 補集合
  end
繰り返し終了
解除 *

で、どうでしょうか? 間違いがありましたら m(__)m

後は、諸先輩方による訂正をお願いたします。


12980 Re:会社名に注意して下さい pokopon 2001/09/10-15:37
記事番号12979へのコメント
訂正&追加です。
[会社名]に空白やファイル名として使えない文字列がある場合にはご注意ください。
エラーで止まるかも??
空白だけの対処なら、

>書き出し CSV , &STR , {[会社名],[売上],[実績]・・・・}
改め
書き出し CSV , #TRIM(&STR,4) , {[会社名],[売上],[実績]・・・・}
で対応可能です。

12981 Re:会社名に注意して下さい UG2 2001/09/10-18:44
記事番号12980へのコメント
お早い、コメントありがとうございました。

この、コメントを書いた後、サーバーに支障が生じ、すぐにテストする時間が無くなってし
まい、今後時間を作って試させていただきたいと思います。

今後とも、宜しくお願い申し上げます。
12984 印字コマンドを使う方法もあります 佐田 守弘 2001/09/10-22:26
記事番号12978へのコメント
UG2さん
私はこの手の処理には、一括処理で印字コマンドを使って書き出しています。
大ざっぱに主要なコマンドのみを書き連ねます。
(このままでは動きません)

表 <データの表>
絞り込み 単一化={[会社名]}
書き出し 表,社名一覧,{[会社名]}

表 社名一覧
繰り返し (.not #終端行)
 代入 &会社名=[会社名],&出力=&会社名+".csv"
 印字開始 &会社名
  印字 "社名,所属,・・・・"
  表 <データの表>
  絞り込み [会社名]{=&会社名}
  繰り返し (.not #終端行)
   印字 [社名],",",[所属],",",・・・
  繰り返し終了
  解除 1
  表 社名一覧
 印字終了
繰り返し終了

印字コマンドは、複数の項目を組み合わせた計算式を書き出せるなど、
書き出しコマンドよりも自由度が高いのが特徴です。

佐田守弘(KS-00119)
12988 うまくいきました UG2 2001/09/11-13:33
記事番号12980へのコメント
pokopon様 ありがとうございました。

コメントいただいた通りに、一括処理を書きましたら、思い通りに会社名ごとに、
CSVに書き出すことができました。

ありがとうございました。

戻る