Dim myreader As IO.StreamReader = New IO.StreamReader(TxtBx_filepath.Text, System.Text.Encoding.Default)
Dim tr(26) As String
Dim rws As String
Dim chararray() As Char = {", "}
rws = myreader.ReadLine()
While Not myreader.EndOfStream
Try
tr = rws.Split(chararray)
.........
Catch ex As FileIO.MalformedLineException
MessageBox.Show(ex.Message)
End Try
filtable.AcceptChanges()
rws = myreader.ReadLine()
End While
myreader.Close()
用Line Input读入一行数据,然后用splite函数将每行的数据以逗号为隔符读入数组。大致是这样的:
Dim b() as string
dim i as integer
Open telFile For Input As #FF
Do While Not EOF(FF)
Line Input #FF, lineStr
redim preserve b(i)
i=i+1
b(i)=splite(linestr,",")
DoEvents
Loop
Close #FF