fastest way to read text file

[stingrae]

I have a project that reads several text files and i am really shocked as to how slow the following process does it:

        FileOpen(1, strFilePath, OpenMode.Input)
        Do Until EOF(1)
            strTextLine = LineInput(1)
            :
            :
        Loop
        FileClose(1)

is there are faster way to read text files?

[taxes]

Have you tried using StreamReader?

Something like;

Dim SR1 As StreamReader = File.OpenText("C:\  path & file )
Dim sTemp As String
Do Until SR1.Peek = -1
  stemp = SR1.ReadLine
Loop

You could also read the entire file in one go with

sTemp=SR1.ReadToEnd

[dinosaur_uk]

Have you tried using StreamReader?
You could also read the entire file in one go with

sTemp=SR1.ReadToEnd

If i use that, it will read it all in one line yeah?

How do make it so that it will put it into an arraylist line by line...so that i can refer it to
al(i) quickly?

[Asgorath]

If i use that, it will read it all in one line yeah?

How do make it so that it will put it into an arraylist line by line...so that i can refer it to
al(i) quickly?

Using the .ReadLine and adding the line to the arraylist.

Regards
Jorge

[taxes]

If i use that, it will read it all in one line yeah?

How do make it so that it will put it into an arraylist line by line...so that i can refer it to
al(i) quickly?

Not sure if you're kidding me but

Dim aList As New ArrayList
 
 
        Dim sr1 As New StreamReader("G:\TestFile.txt")
        Dim sTemp As String
       
        Do Until sr1.Peek = -1
            sTemp = sr1.ReadLine
            aList.Add(sTemp)
        Loop
        sr1.Close()

Obviously you declare aList with the necessary scope.

[dinosaur_uk]

Hiya

Taxes,,

Yeah I have got that ....i was thinking if there was any other way...

I am not that bad

[taxes]

Hi,
Thought not from other posts, but one guy on the forum accuses me of being condescending at times ( apart from other things) - Hi Andy

See if this is faster

Dim sr1 As New StreamReader("G:\TestFile.txt")
        Dim sTemp As String
        Dim aList() As String
        sTemp = sr1.ReadToEnd
        sr1.Close()
        aList = Split(sTemp, vbCrLf)

I would be interested to know.

[zaza]

Hi,

One other possibility, although I make no claims as to the speed, might be to use a RichTextBox with a LoadFile command (in txt mode rather than rtf) and then use the split command a la Taxes.

zaza

[dinosaur_uk]

Hi Taxes,

The code does not work it says the 1-Dimensional array cannot be converted to a arraylist

can you please help me with this problem please please pretty please????
http://www.vbforums.com/showthread.php?t=324950

Hi,
Thought not from other posts, but one guy on the forum accuses me of being condescending at times ( apart from other things) - Hi Andy

See if this is faster

Dim sr1 As New StreamReader("G:\TestFile.txt")
        Dim sTemp As String
        Dim aList() As String
        sTemp = sr1.ReadToEnd
        sr1.Close()
        aList = Split(sTemp, vbCrLf)

I would be interested to know.

[dinosaur_uk]

Dim sr1 As New StreamReader(Application.StartupPath & "\bah.csv", FileMode.OpenOrCreate)
        Dim aList As New ArrayList
        Dim sTemp As String
        Do Until sr1.Peek = -1
            sTemp = sr1.ReadLine
            aList.Add(sTemp)
        Loop
        MsgBox(aList.Count)

This is faster...

[taxes]

Hi,

Thanks

[dinosaur_uk]

I am sure there must be a better way ....coz if i am handling big big csv....is there a data adaptor for it?

[taxes]

Hi Taxes,

The code does not work it says the 1-Dimensional array cannot be converted to a arraylist

can you please help me with this problem please please pretty please????
http://www.vbforums.com/showthread.php?t=324950

Hi,

I missed this post earlier, but I am rather confused about it.

I did not mention an arraylist and the code certainly works for me.

please clarify.

[dinosaur_uk]

yeah sorry ...i misread your post

many many apologies

[taxes]

No problem