reading a text file

[Aphid2005]

hey

when u open a text file to read u use lineinput(*Varibal*).

when i use a post tested loop such as

do

username=lineinput(filenum)
password=lineinput(filenum)

loop until EOF or lineinput(filenum)=""

that then will read 3 lines each time it loops and by that then some lines will be skipped. the reason i have that lineinput(filenum)="" is because some times in textfiles u get extra unwanted lines which get read. what i am asking is how can u make it so that it still reads the 2 lines but when it comes to check the line it doesn't proceed to the next line, so that when it loops the data will be read properly.

so can anyone help me

[Aspnot]

Try using the StreamReader. That object allows you to ReadLine().

What object are you using to open the file and read it?

[jmcilhinney]

As Aspnot says, use a StreamReader to read the data from the file. You would then use the Peek method to determine whether there is still data to be read, which checks for data but does not actually read it.

[Aphid2005]

I am using a click event on a button

[jmcilhinney]

I am using a click event on a button

That makes no difference. You can put whatever code you want wherever you want. You can use a StreamReader in the Button's Click event handler or you can put it in a method that you call from the event handler.

[Cyrix]

Dim sr As IO.StreamReader =IO.File.OpenText("nameoffile.txt)

Do while sr.Peek <> - 1
username = sr.ReadLine()
password = sr.ReadLine()
Loop

The only problem with StreamReader is that you cannot choose which line you want to read when using the ReadLine method. It has always got to go line by line.

[gigemboy]

Make an If Condition inside your loop to evaluate what the line is, and execute the code you want...

Do while sr.Peek <> - 1
     Dim strLine as String
     strLine = sr.ReadLine()
     If strLine = "" then
           'do nothing
     Else 
           'add more code or If statements to evaluate the string further....
           username = strLine    'just an example
     End If
Loop

[JuggaloBrotha]

or simplify gigemboy's code:

Do while sr.Peek <> - 1
     Dim strLine as String = sr.ReadLine()
     If strLine <> "" then
           username = strLine    'just an example
     End If
Loop

[conipto]

Juggalo, won't that create and dispose the variable strline every time?

HEre's how I do it..

Dim sr As New streamreader(filename)
Dim line As String 
 
Do
     line = sr.readline
     'Check, store, manipulate etc variable "line"
Loop Until line Is Nothing
sr.Close()
line.Dispose()

Bill

[gigemboy]

It won't dispose it, the code works, and you really don't have to call your line.dispose in your code, conipto, since you declared it with the "Dim" statement. The line is automatically disposed once it is out of scope...

[jmcilhinney]

You can declare the string variable outside the loop to avoid a new variable being created each iteration, but note that the String class does not have a Dispose method, so you just leave it up to the GC to clean up the managed resources when its ready.

[Aphid2005]

thanks guys

[jmcilhinney]

Don't forget to resolve your thread from the Thread Tools menu.