【VB.NET】TextFieldParserを使って超簡単にCSVファイルを読み込む！

若手エンジニアから「CSVファイルの読み込み方がわからん」と言われたので書きます。最終目的としてはCSVでインポートしたデータをグリッドに表示したいらしいのですが、まずはCSV読み込むところから始めましょう。別に難しい事ではありません。「あなたならできるわ。」

【スポンサーリンク】

TextFieldParserクラスを使ってCSVファイルを読み込む
実装
Split()を使えば良いのでは？というお言葉に対して…
編集後記
参考サイト
鉄道記事も書いてます！

TextFieldParserクラスを使ってCSVファイルを読み込む

そんな難しいことではないので、サクサクと進めます。VB.NETには、TextFieldParserクラスというCSV（カンマ区切り）やTSV（タブ区切り）を扱うためのクラスがあります。このTextFieldParserクラスを使用すれば、アッと驚く為五郎という感じで、あっという間に取り込めます。

【スポンサーリンク】

実装

理屈は後にして、まずは実際にコーディングしてみましょう。習うより慣れろってやつです。

用意するコントロール

必要なコントロールは4つ。

フォーム
テキストボックス１（CSVファイルパスを入れるところ）
ボタン（CSVインポート実行）
テキストボックス２（CSV読み込み結果を表示させるところ）

こんな感じで良いでしょう。

ソースコード

ボタンクリックしたら、横に細長いテキストボックスに入力されているCSVファイルパスからCSVファイルを読み込み、下のデカいテキストボックスにCSVファイルの中身を表示するとても簡単なものです。

Imports System.Text
Public Class From_CSV_Import
    Private Sub cmd_CSV_Import_Click(sender As Object, e As EventArgs) Handles cmd_CSV_Import.Click
        Dim strFilePath As String = Nothing
        Try
            strFilePath = txtFilePath.Text

            '未入力チェック
            If Trim(strFilePath) = "" Then
                MessageBox.Show("ファイルパス入れてね！", "未入力", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
            'ファイル存在チェック
            If System.IO.File.Exists(strFilePath) = False Then
                MessageBox.Show("そんなファイル無いよ！", "未入力", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If

            Using objIoTFP As New Microsoft.VisualBasic.FileIO.TextFieldParser(strFilePath, Encoding.GetEncoding("Shift_JIS"))
                '読み込み時の設定
                With objIoTFP
                    '区切り文字をカンマに設定
                    .TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
                    .SetDelimiters(",")
                    '空白があった場合にTrimしない
                    .TrimWhiteSpace = False
                End With

                'CSV読み込み実行
                While Not objIoTFP.EndOfData
                    Dim arrayRow As String() = objIoTFP.ReadFields()
                    Dim strVeiwResult As String = Nothing
                    For Each objField As String In arrayRow
                        '表示
                        strVeiwResult = strVeiwResult & objField & ","
                    Next
                    '列の末尾のカンマを削除
                    strVeiwResult = strVeiwResult.TrimEnd(",")
                    'テキストボックスに表示
                    txtResult.Text = txtResult.Text & strVeiwResult & vbCrLf
                End While
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Source.ToString)
        End Try
    End Sub
End Class

とまあ、こんな感じに書きます。結果はこんな感じ。

はい、簡単ですね。

読み込み時の設定について

読み込み前に設定すれば、色々な読み込み方が出来ます。上記のソースの場合は、

With objIoTFP
  '区切り文字をカンマに設定
  .TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
  .SetDelimiters(",")
  '空白があった場合にTrimしない
  .TrimWhiteSpace = False
End With