Ignore first line of file [RESOLVED]

[LITHIA]

Hey,
I'm im a kind of sticky situation here...

I know how I would skip to the second line of a file using StreamReader, i would just do:

streamer.ReadLine()
Dim strLine as String = streamer.ReadLine()

So basically that skips the first line and puts the second line into the string strLine

But... I've gone and stupidly used FileOpen instead, and have already implemented this throughout the entire code so I can't switch back now! Aggh!

If I were to rewrite this prog I would definitely stay away from FileOpen, but i used it because it was quick and easy to read through the file fast.

So... is there the same method as that, that I shown for the streamreader with FileOpen instead? So I can just ignore the first line and read the rest instead.

Thanks a bunch!

[Mike Hildner]

How are you currently reading the file? Can you post some code? Might have to do different things if you're opening in binary or whatever.

[LITHIA]

Just simply...

FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Do Until EOF(1)
            LineIn = LineInput(1)
            txtText.Text = txtText.Text & LineIn & vbCrLf
        Loop
txtText.Text = txtText.Text.TrimEnd(vbCrLf.ToCharArray)
        txtText.Select(0, 0)
        FileClose(1)

The trim at the end gets rid of the extra VbCrLf that I don't want.

That's how i read the file and put the contents into the text file. Now, i want exactly the same as that, except to miss out the first line of the file and start adding the contents into the textbox from the second line.
I store some special data in the first line with the writing procedure of my program which can only get read by my program. It's used for settings so I don't want it being put into the textbox after its read.
Thanks!

[LITHIA]

oh, and LineIn is just declared as a String

[Mike Hildner]

ok. I guess you could do a couple things, but you're going to have to look out for error checking. Just ideas here, no gospel.

One, you could do this

FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
LineInput(1) ' Possible exception
Do Until EOF(1)
            LineIn = LineInput(1)

Or maybe

Dim isFirstLine as Boolean = True
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Do Until EOF(1)
            LineIn = LineInput(1)
 
            If Not isFirstLine Then
                txtText.Text = txtText.Text & LineIn & vbCrLf
            End If
 
            isFirstLine = False

Or something like that. BTW, I did not check this in the IDE.

[LITHIA]

hehe thanks mike! the first one did the trick

i'm sure the second one would have too, but the first was a lot easier and was a lot more similiar to the streamer method above.

Thanks! Resolvdyed