CSVファイルを読み込んだ際の、ダブルクォーテーションで囲まれた数値の処理について

Question

現在VB6を使用して開発を行っております。

以下のようなCSVファイルを読込み、列の並び替えを行って、別のCSVファイルに出力するという処理を作成しております。

[日付],  [金額] …, [文字列]
2015/4/1,"1,000,000", …, 行１
2015/4/2,"90,000", …, 行２
2015/4/3,"500", …, 行３

CSVファイルを読み込む際、以下のような処理を行っています。（だいぶ省略しています）

Dim InputFile     as String = "D:\InputFile.CSV"
Dim vvarData(99)  as Variant

Open InputFile For Output As #1

do until EOF(1)
    Input #1, vvarData(0), vvarData(1), … , vvarData(99)

  'データの並び替え、出力処理'
Loop

Close #1

読み込む際に使用しているInputステートメントは、
一行を読込みカンマ区切りでデータを取得する、という動きをするものだと解釈しているのですが、
データ内の「金額」のような、カンマ区切りのデータが存在しているので、
配列に保管する値がばらばらになってしまっています。
また、この金額はサンプルデータのように、一定の桁数ではありません。

vvarData(0) = 2015/4/1
vvarData(1) = 1
vvarData(2) = 000
vvarData(3) = 000
 …

読み込むCSVファイルは、xlsファイルをCSVファイルとして保存したものです。
そのため、金額のようなカンマ区切りの数値は「""(ダブルクォーテーション)」で囲まれています。

このダブルクォーテーションで囲まれたカンマ区切りの数値を、
そのまま文字列として出力したいと思っているのですが、うまい方法が浮かびません。
いい方法がありましたらご教示よろしくお願いいたします。

Answer 1

こんにちは。

VB6で拡張CSVを一発で解釈する方法は無かったと記憶しています。（たぶん・・・）
ですのでいくつか案はありますが、

①以下のように分解部分を作りこむ
http://d.hatena.ne.jp/spitfire_tree/20090809/1249772787

②拡張CSVを解釈できるExcelなどに一時的に吐き出してセル読み込みを行う

③COM経由で.NETモジュールを呼び出して拡張CSV対応クラスで読み込ませる。

など、代替案の検討をする必要があるのではないかと。

Comments

[f-hanako]

回答ありがとうございました。
他に方法がないか調べてみたところ、
>②拡張CSVを解釈できるExcelなどに一時的に吐き出してセル読み込みを行う
に近しいサンプルを見つけたので、こちらの方法で進めていこうと思います。
（①の頁を見たところ、少々私には難易度が高いようでした；）

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

Answer 2

サンプルのように、ダブルクォーテーションで囲っているのであれば、
期待通りの動作になると思いますよ。

vvarData(0) = 2015/4/1
vvarData(1) = 1,000,000
vvarData(2) = …
vvarData(3) = 行1
 ：

下記ソースで試して見てください。

[日付],  [金額], …, [文字列]
2015/4/1,"1,000,000", …, 行１
2015/4/2,"90,000", …, 行２
2015/4/3,"500", …, 行３

    Dim InputFile     As String
    Dim vvarData(99)  As Variant
    
    InputFile = "D:\InputFile.CSV"
    
    Open InputFile For Input As #1
    
    Do Until EOF(1)
        Input #1, vvarData(0), vvarData(1), vvarData(2), vvarData(3)
    
        Call MsgBox(vvarData(0))
        Call MsgBox(vvarData(1))
        Call MsgBox(vvarData(2))
        Call MsgBox(vvarData(3))
    Loop
    
    Close #1