CSVReaderの使い方

CSVファイルを読む「CSVReader」について解説します。
CSVファイルを読むときに使用します。
https://github.com/RelaxTools/Hidennotare/wiki/CSVReader

Test.csvの内容(UTF8,LF)

ソースコード


    Dim IC As ICursor
    Set IC = CSVReader.CreateObject("E:\Test.csv", NewLineCodeLF, EncodeUTF8)

    Do Until IC.Eof

        Debug.Print IC(1)
        Debug.Print IC(2)
        Debug.Print IC(3)

        IC.MoveNext
    Loop

結果(イミディエイト)

001
利根太郎
東京都
002
筑後次郎
福岡県

解説

コンストラクタ

コンストラクタの内容は以下のとおり。

E:\Test.csvを読む。
改行コードはLF
エンコードはUTF8

※ CSVの項目内にカンマや改行コードが入っていても読むことができます。（コーテーションあり)
　くわしくは以下リンクへ。
https://github.com/RelaxTools/Hidennotare/wiki/CSVReader

    Set IC = CSVReader.CreateObject("E:\Test.csv", NewLineCodeLF, EncodeUTF8)

EOFプロパティ

CSVの行が終了した時に True になります。

    Do Until IC.Eof

Itemプロパティ

Itemは省略可能です。現在の行の１列の値をVariant型で返却します。列の値は定数ですが、Enum で指定することが多いようです。

    Debug.Print IC(1)
    Debug.Print IC.Item(1)

MoveNextメソッド

現在の行を次に移動します。

    IC.MoveNext

１回目のSheetCursorを比べてことなる部分は、コンストラクタ、Itemプロパティの返却値。
Sheet と CSV 読むものが異なりますが、ICursor I/F を使うとほぼ同じ使い方が可能です。

Hidennotareの使い方(1) SheetCursorクラス
https://qiita.com/RelaxTools/items/f0395ff268a6288570c0