读取txt文件数据至动态数组

[勤奋石头]

Private Sub PcpDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PcpDataToolStripMenuItem.Click
PcpOpenFile.InitialDirectory = Form2.ListBox1.Items(0)
PcpOpenFile.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
PcpOpenFile.FilterIndex = 1
PcpOpenFile.RestoreDirectory = True
PcpOpenFile.ShowDialog()
Dim pcptxt As IO.StreamReader = New IO.StreamReader(PcpOpenFile.FileName, System.Text.Encoding.Default)
Dim n As Integer = 0
Do Until pcptxt.EndOfStream
n = n + 1
pcp(n) = pcptxt.ReadLine()
Loop
pcptxt.Close()
End Sub
数据格式如下：
在读取数据至pcp数组的时候提示以下错误，我是用到了openfile读取txt数据，之前用的vb6，到了NET遇到了点问题，请教各位~~~~

[勤奋石头]

 Private Sub PcpDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PcpDataToolStripMenuItem.Click
        PcpOpenFile.InitialDirectory = Form2.ListBox1.Items(0)
        PcpOpenFile.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
        PcpOpenFile.FilterIndex = 1
        PcpOpenFile.RestoreDirectory = True
        PcpOpenFile.ShowDialog()
        Dim pcptxt As IO.StreamReader = New IO.StreamReader(PcpOpenFile.FileName, System.Text.Encoding.Default)
        Dim n As Integer = 0
        Do Until pcptxt.EndOfStream
            n = n + 1
            pcp(n) = pcptxt.ReadLine()
        Loop
        pcptxt.Close()
    End Sub

[im战术]

        Dim PcpOpenFile As New OpenFileDialog()
        Dim pcp As String()
        PcpOpenFile.InitialDirectory = Form2.ListBox1.Items(0)
        PcpOpenFile.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
        PcpOpenFile.FilterIndex = 1
        PcpOpenFile.RestoreDirectory = True
        If PcpOpenFile.ShowDialog() = DialogResult.OK Then
            pcp = System.IO.File.ReadAllLines(PcpOpenFile.FileName)
        End If

[智者知已应修善业]

提示清楚,对象未实例化,看了你的代码,寻不到在何处定义PCP?应该照着提示检查对象.

[绿领巾童鞋]

PcpOpenFile 对象未实例化吧