質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.48%

  • VB

    310questions

    VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

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

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 8,779

f-hanako

score 143

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

以下のようなCSVファイルを読込み、列の並び替えを行って、別のCSVファイルに出力するという処理を作成しております。
[日付],  [金額] …, [文字列]
2015/4/1,"1,000,000", …, 行1
2015/4/2,"90,000", …, 行2
2015/4/3,"500", …, 行3
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ファイルとして保存したものです。
そのため、金額のようなカンマ区切りの数値は「""(ダブルクォーテーション)」で囲まれています。

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

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

checkベストアンサー

+1

こんにちは。

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

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

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2015/07/03 17:09

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

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

    キャンセル

0

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

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

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

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

    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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

関連した質問

同じタグがついた質問を見る

  • VB

    310questions

    VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

  • トップ
  • VBに関する質問
  • CSVファイルを読み込んだ際の、ダブルクォーテーションで囲まれた数値の処理について