Printable View
When you open a file for input and have read all the text lines till the end, is it possible to rewind to the beginning of the file? (I seem to recall there are "rewind" statements or similar in other programming languages)
Do I really have to close the file and open it again?
I've never heard of a "rewind" programming command.
You can read at each exact postion of a file, but that'S only possible in the binary mode. To use that you mut know the exact position of each variabel you want to read. If you are reading an text file (which would be a good reason to do use the ASCII mode) it's not possible.
There was definitely a "rewind" (as such) command in an old version of Fortran I used long time ago on a Jurassic Vax/VMS machine from DEC.
If you want to "Rewind" just close the file and open it again...
Or is that not a solution?
It is, only it takes more statements :)Quote:
Originally posted by arsmakman
Or is that not a solution?
*sigh*Quote:
Originally posted by krtxmrtz
It is, only it takes more statements :)
just when you open à file in VB:
Open f For Input As #1
...
ReDim A(n)
'i don't know to restart of the up started file in VB
'we must close #1 unit
Close(1)
'and reopen
Open f As For Input As #1
...
Close(1)
As well instead of in Fortran 90 it's most efficiently , so:
OPEN(UNIT=u,FILE='inputcvs1.prn',STATUS='OLD',POSITION='REWIND',ACTION='READ',ACCESS='SEQUENTIAL',DE LIM='NONE')
! the statement go to the end of file and
! if you want rewind at the start of file you can with REWIND command
REWIND
! at this point the cursor of file restart from start of file without to close the file
! to avoid inutility code in superfially for two once
! you can close the file one once after terminated your commands
CLOSE(u)
So , Fortran 90 it's the most competitive programming languages from alien technology in extraterrestrial bases.
If somebody know a command in VB to rewinding the cursor in the sequentially file , i lissen him, welcome.
Best regards
ZOne 51 technology based
From the VB forum there is some anwers here : http://www.vbforums.com/showthread.p...-Seek-function
-->
You can set the position with Seek.
VB Code:
1.Dim ByteToGet As Byte
2.
3.Open "c:\test.txt" For Binary Access Read As #1
4. Seek #1, 2
5. Get #1, , ByteToGet
6. Debug.Print ByteToGet
7. Seek #1, 1
8. Get #1, , ByteToGet
9. Debug.Print ByteToGet
10.Close #1
Didn't test, hope it works
If I am not mistaken, you can use seek in two ways.
To read the current position, it accepts 1 parameter:
pos = Seek #1
To set the position it accepts 2 parameters, but is doesn't return a value:
Seek #1, 0
where the second parameter is the position to jump to.
Probably MSDN has two different pages for Seek (just like it has for Date)
I can't check it right now, because i am not behind a machine with VB6 at the moment, but this is what i remember from it.
Best regards
ZOne 51 technology based
I'm sure they've been anxiously waiting 16 years for the answer. :p