-
本版专家分：0结帖率 90.91% -
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遇到了点问题，请教各位~~~~
![]()
-
本版专家分：0
-
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
-
本版专家分：830 -
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
-
本版专家分：15271 -
提示清楚,对象未实例化,看了你的代码,寻不到在何处定义PCP?应该照着提示检查对象.
-
本版专家分：3848 -
PcpOpenFile 对象未实例化吧
