 |
forums.silverfrost.com
Welcome to the Silverfrost forums
|
| View previous topic :: View next topic |
| Author |
Message |
Zach
Joined: 13 Mar 2023
Posts: 85
Location: Groningen, Netherlands
|
 Posted: Sat May 20, 2023 7:49 am Post subject: Label error reading data from a file |
 |
|
Casus: a file is being read
Relevant portions of the text, in the read file, begin and end with an *
There are many such relevant portions
The keys are searched for by dataitem "seek". The keys are in one the first lines directly below the *'s, and nowhere else.
My question is: could this code be improved?
Patrick.
10 do while string(1:1).NE.'*')
read(1,"(a)",iostat=stat)string
end do
read(1,"(a)",iostat=stat)string
if (index(string,seek(1:3)).NE.1)goto 10
do while (string(1:1).NE.'*')
read(1,"(a)",iostat=stat)string
print_*, string !the program uses a subroutine to print
end do
Last edited by Zach on Sat May 20, 2023 2:17 pm; edited 3 times in total |
|
| Back to top |
|
 |
Kenneth_Smith
Joined: 18 May 2012
Posts: 697
Location: Hamilton, Lanarkshire, Scotland.
|
| Posted: Sun May 21, 2023 11:29 am Post subject: |
|
|
Assuming the data file input.txt is
| Code: | *
123
*
123
123, abc
*
123
123, abc
123
*
123
*
|
The following program:
| Code: | program p
implicit none
integer fileopened, nlines, readstat, i
character(len=124) text
open(unit=10,file='input.txt', status='old', iostat=fileopened)
if (fileopened .ne. 0) stop 'Failed to open file existing file'
rewind 10
nlines = 0
do
read(unit=10,fmt='(A)',iostat=readstat) text
if (readstat .eq. 0) then
nlines = nlines + 1
cycle
else
exit
end if
end do
print'(a,1x,i3)', 'nlines = ', nlines
rewind 10
do i = 1, nlines
read(unit=10,fmt='(A)') text
if (index(text,'*') .eq. 1) then
cycle
else
print*, trim(text)
end if
end do
rewind 10
close(unit=10, status='keep')
end program p
|
Returns
| Code: | nlines = 12
123
123
123, abc
123
123, abc
123
123
Press RETURN to close window... |
i.e. you read the file once to establish the number of lines in the file (nlines), then go back to the beginning of the file (rewind) and read and process each of the nlines in turn. |
|
| Back to top |
|
|
Zach
Joined: 13 Mar 2023
Posts: 85
Location: Groningen, Netherlands
|
| Posted: Sun May 21, 2023 4:12 pm Post subject: |
|
|
| Thank you, Kenneth, for your code. I was unable to respond before, for which my apologies. I have run your code. The casus as posted required text to be retrieved from an .exe file. The organisation of the text lines was in batches of lines (unequal numbers of lines). I call them labels. The first line of each label started with a single * as a delimiter of the label. Each * was followed by a key, identifying the contents of the focal label. I had posted code using a goto. This I thought wasn't very elegant. So the objective of my query was to improve the code, i.e., to do away with the goto statement. My impression is that i did not post my query clear enough. So it does not answer my query. Your code is also very much longer than my code. My code works and does so flawlessly, in spite of its ugliness. So we're having a nogo here. |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
