How to rewind a file

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

**Developer** - 13 Dec 2005 20:19 GMT

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

Reply to this Message

Ken Halter - 13 Dec 2005 20:32 GMT

> 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 ;-)

Signature

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

Reply to this Message

**Developer** - 13 Dec 2005 20:56 GMT

I wasn't sure if Seek worked with LineInput.

Thanks

>> Assume that the first line of a file is read with:
>>
[quoted text clipped - 13 lines]
> file at will. Surely, there's similar support in .Net (if you can keep it
> running anyway ;-)

Reply to this Message

tomb - 14 Dec 2005 02:14 GMT

>
>
[quoted text clipped - 19 lines]
>
>

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

Reply to this Message

**Developer** - 14 Dec 2005 17:59 GMT

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?

Ken Halter wrote:

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

Reply to this Message

How to rewind a file

Free Magazines