CSVファイルの出力のレイアウトで
VB初心者です。始めまして質問をさせて下さい。
環境
・VB6.0 SP5
・Windows2000
VBでDBの内容を読み込んでCSVファイルに出力する時のレイアウトなのですが、
このような形で出力が出来るのでしょうか？
項目名 ：A1 A2 A3 A4 A5 A6 A7 A8 A9 A10
== == == == == == == == == ==
データ１：AA AA AA AA AA AA AA B1 B2 B3
データ２：AA AA AA AA AA AA AA C1 C2 C3
データ３：AA AA AA AA AA AA AA D1 D2 D3
データ４：BB BB BB BB BB BB BB E1 E2 E3
データ５：BB BB BB BB BB BB BB F1 F2 F3
のデータが入っている時に、その内容をVBからCSVファイルに出力する時に
データ１〜３はA1〜A7まで一緒なのでA8〜A10を一つにまとめる事は可能か？
通常CSVファイルに出力する時は、
AA,AA,AA,AA,AA,AA,AA,B1,B2,B3
AA,AA,AA,AA,AA,AA,AA,C1,C2,C3
AA,AA,AA,AA,AA,AA,AA,D1,D2,D3
BB,BB,BB,BB,BB,BB,BB,E1,E2,E3
BB,BB,BB,BB,BB,BB,BB,F1,F2,F3
この形で出力できると思いますが、今自分が質問している出力の形は、
AA,AA,AA,AA,AA,AA,AA,B1,B2,B3,C1,C2,C3,D1,D2,D3
BB,BB,BB,BB,BB,BB,BB,E1,E2,E3,F1,F2,F3
にしたいのですが、やり方が分かりません教えて下さい。
質問に至らない点があるかと思いますが宜しくお願い致します。
この様な編集の仕方は、出来ないのでしょうか？
色々、調べたのですがさっぱりです。
ReDim関数を使うと出来るのでしょうか？
宜しくお願いします。
一例ですが参考にどうぞ
１）現在の行とその１つ前のそれぞれのフィールドの値を覚えておく変数を用意します。
２）次に現在読み取ったフィールドのA1〜A7の値を１つ前の行のA1〜A7と比較します。
３）A1〜A7までが現在の行と１つ前の行で全て一致していればB1〜B3をCSVで追記します。
４）そうでないばあいは改行し次の行にA1〜B3の値をCSVで書き出します。（ただし改行はしません）
５）データベースの全レコード分上記作業を繰り返せばできあがりです。
Dictionaryオブジェクトを使うと簡単にできますね。
A1〜A7をDictionaryとして、同じ場合は対応する吐き出し用の配列に追加or直接CSVに追記で良いかと。
Dictionaryオブジェクトをヘルプ等みてロジックを組んでみたのですが
いまいち分かりません。
何かサンプル的なロジックの組み方を教えて下さい。
アルゴリズム的なものはABCさんが例を示してくださっていると思いますが。
Dictionaryオブジェクトの使い方が分からないということですか？
参照設定とかは分かりますか？
どの変まで分かっていますか？
くまさんも言われていますが何をどう調べてどこがわからないのですか？
DictionaryオブジェクトはMSDNのヘルプだけでは難しいかもしれませんので、他もいろいろ調べてみてください。
ちなみに、私はサンプルソースは開示しないスタンスです。
開示するのは簡単ですが、それを組み込んでわかったような気になって終わってしまうのは、本人にも良くないと考えるからです。
初心者ならばなおさら調べること、試行錯誤することが力になりますのでがんばってください。
| ツイート |  |