我先把文件一行一行读出来,但只是READline,怎么能把这个文档中的数据分割,筛选出来?
Public Class Form1
Public objReader As System.IO.StreamReader
Public LineNum As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim s_FileName As String '存储文件名
OpenFileDialog1.Filter = "纬地交点数据文件(*.jdw)|*.jdw" '使用openfiledialog更灵活
OpenFileDialog1.ShowDialog()
s_FileName = OpenFileDialog1.FileName
Dim TextLine As String = ""
If System.IO.File.Exists(s_FileName) = True Then
objReader = New System.IO.StreamReader(s_FileName)
'Do While objReader.Peek() <> -1
'TextLine = TextLine & objReader.ReadLine() & vbNewLine
'Loop
TextLine = objReader.ReadLine()
RichTextBox1.Text = TextLine
LineNum = 1
Button2.Enabled = True
Else
MsgBox("File Does Not Exist")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
LineNum = LineNum + 1
If objReader.Peek() <> -1 Then
RichTextBox1.Text = objReader.ReadLine & vbNewLine & "这是第" & LineNum.ToString + "行数据"
Else
RichTextBox1.Text = "已经到了文件末尾!"
Button2.Enabled = False
End If
End Sub
这个是我读文件的代码
我怎么能用split 把数据分隔开,我的数据文件是这样
里面分别是XY坐标,半径 LS1 LS2
我做了一个datagridview,里面数据是我添加固定的值,我怎么能把我的这个文件里的数据显示到这个控件中。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i = 0 To 6
m_JdData.JDX = 80000
m_JdData.JDY = 90000
m_JdData.Ls1 = 200
m_JdData.Ls2 = 200
m_JdData.R = 300
m_JdDatas.Add(m_JdData)
Next
DataGridView1.Columns.Add("JDNO", "序号")
DataGridView1.Columns.Add("JDX", "交点X坐标")
DataGridView1.Columns.Add("JDY", "交点Y坐标")
DataGridView1.Columns.Add("LS1", "前缓和曲线长度")
DataGridView1.Columns.Add("R", "曲线半径")
DataGridView1.Columns.Add("LS2", "后缓和曲线长度")
' 注意DataGridView的索引是先列后行
For i = 0 To m_JdDatas.Count - 1
DataGridView1.Rows.Add()
DataGridView1.Item(0, i).Value = (i + 1).ToString
DataGridView1.Item(1, i).Value = m_JdDatas(i).JDX.ToString
DataGridView1.Item(2, i).Value = m_JdDatas(i).JDY.ToString
DataGridView1.Item(3, i).Value = m_JdDatas(i).Ls1.ToString
DataGridView1.Item(4, i).Value = m_JdDatas(i).R.ToString
DataGridView1.Item(5, i).Value = m_JdDatas(i).Ls2.ToString
Next
End Sub
我怎么才能把我的文件里面数据分别分割或者存成数组,并且显示到这个控件中。求各位大神帮忙,本人是小菜鸟一只