quick way to read in a text file.

[nswan]

Hi,

i'm reading in a text file in the following way:

dim sr as streamreader
sr = file.opentext(filename)
dim x as string
while sr.peek <> -1
    x = trim(sr.Readline()) & vbcrlf
    txtFile.text = txtFile.text & x
end while
sr.close()

Problem is it seems this way of reading file is sometimes quite slow? Is there a quicker way to read in a text file?

Many thanks
Nick

[dynamic_sysop]

either add it all in one go, rather than a loop like this....

[Color=Blue]Private[/COLOR] [Color=Blue]Sub[/COLOR] Button1_Click([Color=Blue]ByVal[/COLOR] sender [Color=Blue]As[/COLOR] System.Object, [Color=Blue]ByVal[/COLOR] e [Color=Blue]As[/COLOR] System.EventArgs) [Color=Blue]Handles[/COLOR] Button1.Click
 
        [Color=Blue]Dim[/COLOR] sr [Color=Blue]As[/COLOR] [Color=Blue]New[/COLOR] StreamReader([Color=Blue]New[/COLOR] FileStream("C:\test.txt", FileMode.Open))
        txtFile.AppendText(sr.ReadToEnd)
        sr.Close()
 
    [Color=Blue]End[/COLOR] [Color=Blue]Sub[/COLOR]

or read through the lines using filestream to open it, like this...

[Color=Blue]Private[/COLOR] [Color=Blue]Sub[/COLOR] Button2_Click([Color=Blue]ByVal[/COLOR] sender [Color=Blue]As[/COLOR] System.Object, [Color=Blue]ByVal[/COLOR] e [Color=Blue]As[/COLOR] System.EventArgs) [Color=Blue]Handles[/COLOR] Button2.Click
 
        [Color=Blue]Dim[/COLOR] sr [Color=Blue]As[/COLOR] [Color=Blue]New[/COLOR] StreamReader([Color=Blue]New[/COLOR] FileStream("C:\test.txt", FileMode.Open))
        [Color=Blue]While[/COLOR] [Color=Blue]Not[/COLOR] sr.Peek
            txtFile.AppendText(sr.ReadLine & Environment.NewLine)
        [Color=Blue]End[/COLOR] [Color=Blue]While
[/COLOR]        sr.Close()
 
    [Color=Blue]End[/COLOR] [Color=Blue]Sub[/COLOR]

[nswan]

thanks,

I'll give them a try!