How to rewind a file

[**Developer**]

Assume that the first line of a file is read with:

InputLine = LineInput(FileNum)
I believe a file can be rewound as follows:
(So that the first line can be reread)
FileClose(FileNum) 'Rewind

FileOpen(FileNum, mDataInFullPath, OpenMode.Input)

InputLine = LineInput(FileNum)

Isn't there a better way?



Thanks

[Ken Halter]

" **Developer**" <RE*************@a-znet.com> wrote in message
news:OE**************@TK2MSFTNGP14.phx.gbl...

Assume that the first line of a file is read with:

InputLine = LineInput(FileNum)

Looks like the Seek method is still supported so..... no need to close, just
use Seek.

Seek(FileNum, 1)

I'd provide the sample code the VB6 migration wizard provided but.... VSNet
crashed and burned when I hit F1 (or, maybe 90 seconds isn't enough to open
help anymore <sigh>) to look up help on the Seek method so.....

fwiw, I've written VB6 apps that use Seek to mark (and store) the beginning
of each line as they're read so I can return to any line in the file at
will. Surely, there's similar support in .Net (if you can keep it running
anyway ;-)

--
Ken Halter - MS-MVP-VB (visiting from VB6 world) - http://www.vbsight.com
Please keep all discussions in the groups..

[**Developer**]

I wasn't sure if Seek worked with LineInput.

Thanks
"Ken Halter" <Ken_Halter@Use_Sparingly_Hotmail.com> wrote in message
news:ui**************@TK2MSFTNGP14.phx.gbl...

" **Developer**" <RE*************@a-znet.com> wrote in message
news:OE**************@TK2MSFTNGP14.phx.gbl...

Assume that the first line of a file is read with:

InputLine = LineInput(FileNum)

Looks like the Seek method is still supported so..... no need to close,
just use Seek.

Seek(FileNum, 1)

I'd provide the sample code the VB6 migration wizard provided but....
VSNet crashed and burned when I hit F1 (or, maybe 90 seconds isn't enough
to open help anymore <sigh>) to look up help on the Seek method so.....

fwiw, I've written VB6 apps that use Seek to mark (and store) the
beginning of each line as they're read so I can return to any line in the
file at will. Surely, there's similar support in .Net (if you can keep it
running anyway ;-)

--
Ken Halter - MS-MVP-VB (visiting from VB6 world) - http://www.vbsight.com
Please keep all discussions in the groups..

[tomb]

Ken Halter wrote:

" **Developer**" <RE*************@a-znet.com> wrote in message
news:OE**************@TK2MSFTNGP14.phx.gbl...

Assume that the first line of a file is read with:

InputLine = LineInput(FileNum)

Looks like the Seek method is still supported so..... no need to close, just
use Seek.

Seek(FileNum, 1)

I'd provide the sample code the VB6 migration wizard provided but.... VSNet
crashed and burned when I hit F1 (or, maybe 90 seconds isn't enough to open
help anymore <sigh>) to look up help on the Seek method so.....

fwiw, I've written VB6 apps that use Seek to mark (and store) the beginning
of each line as they're read so I can return to any line in the file at
will. Surely, there's similar support in .Net (if you can keep it running
anyway ;-)

Yes, seek(FileNum,1) is the way, and seek(FileNum) still returns the
current position. This is regardless of the method used to read the file.

Tom

[**Developer**]

thanks.

I noticed you send HTML. I was under the impression that many do not like
to receive HTML.

I like HTML but avoid it because it may be inconvenient for some.

Is that an obsolete notion?

"tomb" <to**@technetcenter.com> wrote in message
news:sc******************@bignews1.bellsouth.net.. .
Ken Halter wrote:

" **Developer**" <RE*************@a-znet.com> wrote in message
news:OE**************@TK2MSFTNGP14.phx.gbl...

Assume that the first line of a file is read with:

InputLine = LineInput(FileNum)

Looks like the Seek method is still supported so..... no need to close, just
use Seek.

Seek(FileNum, 1)

I'd provide the sample code the VB6 migration wizard provided but.... VSNet
crashed and burned when I hit F1 (or, maybe 90 seconds isn't enough to open
help anymore <sigh>) to look up help on the Seek method so.....

fwiw, I've written VB6 apps that use Seek to mark (and store) the beginning
of each line as they're read so I can return to any line in the file at
will. Surely, there's similar support in .Net (if you can keep it running
anyway ;-)
Yes, seek(FileNum,1) is the way, and seek(FileNum) still returns the current
position. This is regardless of the method used to read the file.

Tom