VB.net csvファイルを読み込んで配列に入れたいと思っています。

Question

構造体の配列に読み込んだcsvファイルを格納し、編集したい

何行あるか分からないファイルを一行ずつ読込んで、構造体の配列に入れたいと思っています。
OpenFileDialogでファイル名の取得は行っていますが、肝心の読み込みが出来ていません。
「VB.NET CSV 読み込み」などで検索したのですが、サンプルを見てもあまり理解できなかったので、質問させていただきます。

読み込むcsvファイルはX座標の値，Y座標の値，Z座標の値が入っています。
この値をそれぞれ配列で宣言し、各値のデータの処理を行いたいと考えています。
csvファイルのX座標とXpointを結びつけて、その平均をとる計算や
構造体で1つのグループとしてまとめて、指定した範囲に入る値の抽出などを行いたいです。

計算式等は頭の中でもう出来ていて、読み込みが出来ないので困っています。
配列を使えばcsvファイルの値とXpointなどを結び付けられるのでしょうか？
Importa system.ioやshift-jis等も調べたのですがあまり理解できていないです。

お願いばかりで申し訳ありませんが教えていただきたいと思います。
よろしくお願いします。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Public Class Form1

    'アプリケーションの終了
    Private Sub ExitButton_Click(sender As Object, e As EventArgs) Handles ExitButton.Click
        Application.Exit()
    End Sub

    '構造体の定義
    Public Structure PointData
        Dim Xpoint As Double  'X座標
        Dim Ypoint As Double　'Y座標
        Dim Zpoint As Double　'Z座標
    End Structure

    'メンバ変数
    Dim PD() As PointData

    'ファイルの読み込み
    Private Sub OpenButton_Click(sender As Object, e As EventArgs) Handles OpenButton.Click
        Try
            With OpenFileDialog1
                '選択ダイアログを開く。
                .Title = "点群ファイルの読み込み"
                .FileName = ""
                .Filter = "点群ファイル(*.csv)|*.csv|すべてのファイル(*.*)|*.*"
                .DefaultExt = ".csv"

                If .ShowDialog() = Windows.Forms.DialogResult.OK Then

                    '選択したファイル名を表示する。
                    OpenFileText.Text = IO.Path.GetFileName(.FileName)

                    'ファイルを読み込む。              
                    MessageBox.Show(.FileName & "を読み込みました。",
                                        My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Warning)

                Else
                    MessageBox.Show(.FileName & "の読み込みに失敗しました。",
                                        My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Warning)
                End If
            End With
        Catch ex As Exception
        End Try
    End Sub

End Class

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

検索されたサンプルをそのまま動作させてみて、動きを確認されてはどうでしょう。
こちらは比較的シンプルですので、参考になるかと思います。
その際、デバッガでステップ実行して各変数の中身を確認されれば、そこから変更すべき場所が見えてくるかと思います。
その上で、ここが分からない等質問された方がよろしいかと思います。

Comments

[mah1107]

ご丁寧に回答ありがとうございます。
まだ自分自身どこがわかってどこがわかっていないのか不明点もありますので参考にしながら頑張りたいと思います。

Answer 2

一行づつ読み込んで
その一行をsplitを使い カンマで分割すれば簡単に
ばらせます

単純に一行づつ読み込むサンプルです
引用ページ

   ' StreamReader の新しいインスタンスを生成する
    Dim cReader As New System.IO.StreamReader("C:\Hoge.txt", System.Text.Encoding.Default)

    ' 読み込んだ結果をすべて格納するための変数を宣言する
    Dim stResult As String = String.Empty

    ' 読み込みできる文字がなくなるまで繰り返す
    While (cReader.Peek() >= 0)
        ' ファイルを 1 行ずつ読み込む
        Dim stBuffer As String = cReader.ReadLine()
        ' 読み込んだものを追加で格納する
        stResult &= stBuffer & System.Environment.NewLine
    End While

    ' cReader を閉じる (正しくは オブジェクトの破棄を保証する を参照)
    cReader.Close()

    ' 結果を表示する
    MessageBox.Show(stResult)

ただし値がダブルクォーテーションとかで
囲まれていたり、各項目の列数が違う場合等は
一工夫必要ですが...

Vb.net自体は触ったことがないですが考えかたは使えると思うので...
stResult &= stBuffer & System.Environment.NewLine　をやめて
dim stSplit as String()を宣言して
stSplit = stBuffer.Split(","c)として
受け取った後に各要素を別の変数に割り振ればいいと思います。

Comments

[kamikazelight]

ごめんなさい
ループとか入ってませんでした

[mah1107]

回答ありがとうございます。
初心者で申し訳ないのですが、＃1のところはどのようなデータ型が当てはまるでしょうか？
お手数おかけしますが、教えて頂けると幸いです。

また、値はカンマ区切りで項目の列数は同じです

[YAmaGNZ]

こちらのサンプルはVBAなので、考え方の参考にはできるかと思います。
VB.NETですと、また違った書き方になるかと

[kamikazelight]

まだ、解決していないようなので
Vb.net で探してみました。

このサンプルコードからならどうでしょうか？
一応 Split も調べて乗っけておきました。

[mah1107]

回答ありがとうございます。
少しずつですが、理解が深まってきました！
まだまだ初心者ですが、分かってるとやっぱり楽しいです。
今後ともよろしくお願いします。

[kamikazelight]

何かあれば　気軽に聴いてください
余力があれば力になりたいと思います。