OpenFileDialogをTextFieldParserに変換

Question

VB初心者です。
OpenFileDialog()で対象のファイルを指定して、
TextFieldParserに変換したいです。

最終的に下記サイトの入力ファイル部分をOpenFileDialogで指定したファイルにするようにしたいです。
http://blog.goo.ne.jp/ashm314/e/464c1063685c727230a13869420e00f1

何か、方法等ございましたら教えてください。

Private Sub btn_Import_Click(sender As Object, e As EventArgs) Handles Button2.Click
        
        Dim textFile1 As New OpenFileDialog()
        textFile1.Filter = "Cursor Files|*.csv"
        textFile1.Title = "Select a Csv File"

        If (textFile1.ShowDialog() = DialogResult.OK) Then
        
        Dim textFile2 As FileIO.TextFieldParser
        textFile2 = textFile1

        End If

Answer 1

添付されたコードでほとんどできてると思います。
（OpenFileDialogは選択したファイルのパスを取得するものなので、その部分を変更してやるだけ）
参考サイトの

textFile = New FileIO.TextFieldParser("C:\temp\test.csv")   ' -- デフォルト encoding は UTF8

を

textFile = New FileIO.TextFieldParser(textFile1.FileName)

に変更するだけでよいかと思われます。
（ほかの部分は参考サイトのコードをIF文の中にコピペ）

Comments

[teck]

解決いたしました。
回答ありがとうございました！

Answer 2

このへんのサンプルが参考にならないですか？
[C#] TextFieldParser利用してCSVファイルやTSVファイルを読み込む
C#のサンプルになってますけど、VBでもそんなに変わらないはず。