vbにてカンマ区切りのcsvファイルを読み込んで2次元配列の値を表示させる方法

Question

OS:Windows7Sp1
VisualStudio2017community
言語：VisualBasic.NET

test.txtファイルがあります。

-----test.txtファイルの中身---------

1,あいうえお,A
2,かきくけこ,B
3,さしすせそ,C

これを読み込ませて配列変数にセットして、
stResult(1)(1)と指定すると、その値が「かきくけこ」
と表示させるようにしたく思います。

' カレントディレクトリの取得
        Dim stCurrentDir As String = System.Environment.CurrentDirectory
        'テキストファイル処理
        Dim strFileName As String
        ' 読み込むファイルを設定
        strFileName = stCurrentDir & "\test.txt"

        '--メッセージボックス---
        '選択したボタンを判定する
        If MessageBox.Show("処理していいですか？", "確認", MessageBoxButtons.OKCancel) = DialogResult.OK Then
            'OKの場合
            MessageBox.Show("OK")
            If System.IO.File.Exists(strFileName) Then
                Dim cReader As New System.IO.StreamReader(strFileName, System.Text.Encoding.Default)
                Try
                    ' StreamReader の新しいインスタンスを生成する
                    'Dim cReader As New System.IO.StreamReader(strFileName, System.Text.Encoding.Default)
                    ' 読み込んだ結果をすべて格納するための変数を宣言する
                    Dim stResult As List(Of String) = New List(Of String)()
                    ' 読み込みできる文字がなくなるまで繰り返す
                    Dim cnt As Long
                    While (cReader.Peek() >= 0)
                        ' ファイルを 1 行ずつ読み込む
                        stResult.Add(cReader.ReadLine())
                        cnt += 1
                    End While
                    ' cReader を閉じる (正しくは オブジェクトの破棄を保証する を参照)
                    cReader.Close()
                    ' 結果を表示する
                    'stResult(配列番号)で行数を表示させる
                    'MessageBox.Show(cnt)
                    If (cnt > 0) Then
                        MessageBox.Show(stResult(1))
                    End If
                Catch ex As Exception
                    ' 何かエラー処理を行う
                Finally
                    ' 読み込みファイルを閉じる
                    If cReader IsNot Nothing Then
                        cReader.Close()
                    End If
                End Try
            End If
            Exit Sub

            Else
                'OK以外の場合
                MessageBox.Show("キャンセル")
            Exit Sub
        End If

どのようにしたら実現できるかご教示いただきたく宜しくお願いします。

Answer 1

もう少し問題を整理して、何が分かっていないのか明確にしましょう。
現状の質問ですと、丸投げと捉えられる可能性があります。

VB.NET CSV 読み込み List

Comments

[kumakumatan]

ご返信ありがとうございます。

String.Splitメソッドを利用してやってみました。

Dim textLines As New List(Of String())

While (cReader.Peek() >= 0)

' ファイルを 1 行ずつ読み込む
Dim stBuffer As String = cReader.ReadLine()
' 読み込んだものを追加で格納する
Dim cols() As String
cols = Split(stBuffer, ",")
textLines.Add(cols)

End While

Dim strArr()() As String
strArr = textLines.ToArray
MessageBox.Show(strArr(1)(1))

としても表示されなく悩んでいます。

宜しくお願いします。

[YAmaGNZ]

textLinesそのままでよいのでは？

[kumakumatan]

ありがとうございます。
MessageBox.Show(textLines(2)(1))
などにて表示できました。

Answer 2

String.Splitメソッド　を組み合わせましょう。,カンマでSplitすれば良い訳です。（※あとはご自分で考えてみましょう）

Comments

[kumakumatan]

ご返信ありがとうございます。

String.Splitメソッドを利用してやってみました。

Dim textLines As New List(Of String())

While (cReader.Peek() >= 0)

' ファイルを 1 行ずつ読み込む
Dim stBuffer As String = cReader.ReadLine()
' 読み込んだものを追加で格納する
Dim cols() As String
cols = Split(stBuffer, ",")
textLines.Add(cols)

End While

Dim strArr()() As String
strArr = textLines.ToArray
MessageBox.Show(strArr(1)(1))

としても表示されなく悩んでいます。

宜しくお願いします。

[dodox86]

確認しましたが、ご提示のコード、MessageBox.Show(strArr(1)(1))
の部分で"あいうえお"と表示されましたよ。デバッガーでstrArrの内容を確認してみてください。
(Visual Studio 2017 + .NET Framework 4.5)

[kumakumatan]

ありがとうございます。
Console.WriteLine(strArr(1)(2))
などにて表示できました。
MessageBox.Show(strArr(2)(1))
にてでも表示できました。

「try～catch」文で処理を記載していて、
間違っていた処理が手前であり（文中にない処理）、
例外処理（catch）にいってしまいました。
不要な処理を外したら、表示できました。ありがとうございます。

Answer 3

「2次元配列を動的に作る」ことにチャレンジしてみてください。
この記事なんかが参考になるのではないでしょうか。配列サイズはファイルの行数から求まりますよ。
https://teratail.com/questions/67042
上記のキーワードで色々ググるのもいいかもしれませんね。

もし実装する中でさらにトラブルが起こったら質問を修正するか、補足をしてください。答えます。

Comments

[Rocky]

※入力テキストの形式が固定であれば、動的じゃなくてもいいです。