FAST way to put the content of a file in a DataTable

[DraguVaso]

Hi,

I need a FAST way to put the content of a file in a datatable (one record
for each line in the file).

I have a routine for it, but it takes me too much time (2-5 seconds for each
file) to put the lines in the datatable and do some actions. Does anybody
knows a faster method? The fact is: I actually only need the lines starting
with "0*" and "1*".

What I do now is:
- reading all the lines into a datatable
- I make a dataview from the datatable and apply a filter so I have only the
"0*" and "1*"-records left.
- I do some actions with the 0- and 1-records.

To make it faster I can do folowing things:
- only putting the 0-records and 1-records in the datatable (so I don't have
to apply a filter afterwards). But I'd prefer to put everything in it for
eventually future use of other records.
- I guess I lose most time with opening the file and reading every line in
it. Or am I wrong? Is there a way to do it much faster than I do? (see
routine at the end of the message)

Thanks in advance!!

Pieter

My lines-of-file-reading-into-datatable-routine:

Public Function ReadFileToDataT able(ByVal strDir As String, ByVal
strFile As String) As DataTable
Dim intMyFile As Integer = FreeFile()
Dim strLine As String

Dim myTable As DataTable = New DataTable("File Table")
Dim colID As DataColumn = New DataColumn("ID" ,
Type.GetType("S ystem.Int32"))
colID.AutoIncre ment = True
colID.AutoIncre mentSeed = 0
colID.AutoIncre mentStep = 1

myTable.Columns .Add(colID)
Dim colText As DataColumn = New DataColumn("Tex t",
Type.GetType("S ystem.String"))
myTable.Columns .Add(colText)

Dim NewRow As DataRow
Try
FileOpen(intMyF ile, MakePathFile(st rDir, strFile),
OpenMode.Input, OpenAccess.Read , OpenShare.Share d, -1)
'once the file is opened
'loop through every line and copy them to our
'variable

Do While Not EOF(intMyFile)
strLine = LineInput(intMy File)
NewRow = myTable.NewRow( )
NewRow("Text") = strLine
myTable.Rows.Ad d(NewRow)
Loop
myTable.AcceptC hanges()

Catch ex As Exception
MessageBox.Show (ex.Message & ex.StackTrace, "Exception" )
Finally
'sluiten van het bestand
FileClose(intMy File)
ReadFileToDataT able = myTable
End Try
End Function

[Cor]

Hi Pieter,

The only thing I would add is (roughly typed not checked)

Do While Not EOF(intMyFile)
strLine = LineInput(intMy File)
if strLine.substri ng(0,2) = "*0" or strLine.substri ng(0,2) = "*1" then NewRow = myTable.NewRow( )
NewRow("Text") = strLine
myTable.Rows.Ad d(NewRow) end if Loop
myTable.AcceptC hanges() '???? why are you doing updates later

that you want to keep track on?

I hope this helps a little bit.

Cor

[DraguVaso]

Hm, thanks.
If I understand it good I don't need to use the "myTable.Accept Changes() "?
I thought it was needed to add the rows but I guess I'm wrong? hehe :-)

"Cor" <no*@non.com> wrote in message
news:O0******** ******@tk2msftn gp13.phx.gbl...

Hi Pieter,

The only thing I would add is (roughly typed not checked)

Do While Not EOF(intMyFile)
strLine = LineInput(intMy File)
if strLine.substri ng(0,2) = "*0" or strLine.substri ng(0,2) = "*1"

then

NewRow = myTable.NewRow( )
NewRow("Text") = strLine
myTable.Rows.Ad d(NewRow)

end if

Loop
myTable.AcceptC hanges() '???? why are you doing updates

later that you want to keep track on?

I hope this helps a little bit.

Cor