how to read data from a formatted text file 1

[matthewkmk]

If I have a file in this format:
Actually this is a long file, I just want to get some data from it.

...........
*
*******************
* Class 1
******************
Name No
John 1
Mary 2
..............

******************
* Detail
******************
Name Age
John 13
Mary 15
................

I want to get the information about John and Mary.
If I open the text file, how to get the data once the computer finds the words *Class 1 and then after some
row, I also want to get another data below *Detail

Thx a lot.

 

[CaKiwi]

Here's something that should get you started.

program ff
character*80 a

open(1,FILE='ff.dat')

read(1,1001,end=999) a
1001 format(a72)

do while (a(1:9).ne.'* Class 1')
read(1,1001,end=999) a
enddo

read(1,1001,end=999) a
read(1,1001,end=999) a
read(1,1001,end=999) a

do while (a(1:4) .ne. '****')
print 1001,a
read(1,1001,end=999) a
enddo

do while (a(1:9).ne.'* Detail')
read(1,1001,end=999) a
enddo

read(1,1001,end=999) a
read(1,1001,end=999) a
read(1,1001,end=999) a

do while (a(1:4) .ne. '****')
print 1001,a
read(1,1001,end=999) a
enddo

999 close(1)
end CaKiwi

 

[matthewkmk]

Thanks a lot ^^

However, I have the problem that if the part containing
the detail is a long distance after the previous part I want to get, the code is the same?

 

[matthewkmk]

And also it can't read the line Name No,
and the line Name Age. Could u help me to solve this problem.

 

[CaKiwi]

I don't understand what you mean by
"I have the problem that if the part containing
the detail is a long distance after the previous part I want to get, the code is the same?"

To print out the Name No and Name Age, try this.

program ff
character*80 a

open(1,FILE='ff.dat')

read(1,1001,end=999) a
1001 format(a72)

do while (a(1:9).ne.'* Class 1')
read(1,1001,end=999) a
enddo

read(1,1001,end=999) a
read(1,1001,end=999) a
read(1,1001,end=999) a
print 1001,a

do while (a(1:4) .ne. '****')
print 1001,a
read(1,1001,end=999) a
enddo

do while (a(1:9).ne.'* Detail')
read(1,1001,end=999) a
enddo

read(1,1001,end=999) a
read(1,1001,end=999) a
read(1,1001,end=999) a
print 1001,a

do while (a(1:4) .ne. '****')
print 1001,a
read(1,1001,end=999) a
enddo

999 close(1)
end CaKiwi

 

[matthewkmk]

May be I say in this way,

how to repeatly search , i.e. once it find * Class 1 , then it can read,
e.g. It found all information in the first "* Class 1, then
if there are many *Class 1 in the following lines, is there any method such that I can repeatly do it.

Thx a lot

 

[CaKiwi]

A simple but inelegant way is to use a goto as follows:

program ff
character*80 a

open(1,FILE='ff.dat')

read(1,1001,end=999) a
1001 format(a72)

100 continue
do while (a(1:9).ne.'* Class 1')
read(1,1001,end=999) a
enddo

read(1,1001,end=999) a
read(1,1001,end=999) a
read(1,1001,end=999) a
print 1001,a

do while (a(1:4) .ne. '****')
print 1001,a
read(1,1001,end=999) a
enddo

do while (a(1:9).ne.'* Detail')
read(1,1001,end=999) a
enddo

read(1,1001,end=999) a
read(1,1001,end=999) a
read(1,1001,end=999) a
print 1001,a

do while (a(1:4) .ne. '****')
print 1001,a
read(1,1001,end=999) a
enddo

goto 100

999 close(1)
end CaKiwi

 

[matthewkmk]

still cant work wor, it just show the original number, and not the following number

 

[CaKiwi]

What is "the original number" and what is "the following number"? CaKiwi

 

[matthewkmk]

oic, it means,


e.g. ^&&(&(*&
8(*)(*)*)
(blank line)
**********
*Class 1
(blank line)
John 1 100
(blank line)
(blank line)
**********
*Class 1
(blank line)
Mary 200

I want to use the same format to read those data, could u help me to solve? thx

 

[CaKiwi]

Perhaps I'm dense, but I still don't understand.

What is
^&&(&(*&
8(*)(*)*)

Why are there 2 numbers after John but only 1 after Mary?

What happened to the Name No and Name Age lines?

Post a more complete example of your input file and the exact output you require.
CaKiwi

 

[matthewkmk]

Oic, may be I post the complete one.

DATA File:



Here is the inforamtion of Class 1
(blank line)
(blank line)
**********
*Class 1
(blank line)
John 1 100
(blank line)
(blank line)
**********
*Class 1
(blank line)
Mary 2 200
(blank line)
(blank line)
**********
*Class 1
(blank line)
Susan 3 200
(blank line)
(blank line)

 

[matthewkmk]

One more question is that

if I want to count how many times the word Mary appear in the program, could u also help me to solve? thx

 

[CaKiwi]

I still don't know what output you want from the input file you posted above. But to count the number of Marys (starting in column 1) in that file, try this (untested) code.

program ff
character*80 a
integer j

open(1,FILE='ff.dat')

100 continue
read(1,1001,end=999) a
1001 format(a72)

if (a(1:4).eq.'Mary') j=j+1
goto 100

999 close(1)
print *, 'Number of Marys = ', j
end CaKiwi

 

[matthewkmk]

do u think it's the format's problem, the no of occurrence=0 even there are many Mary in the data file?

 

[matthewkmk]

I can find the solutions, thx very much.

 

[matthewkmk]

one more question:

how to read the data on the same line
e.g.

if i want to read the number after Mary once I have found Mary in the data file.

Mary 100
John 200

Mary 300

 

[Eric1950]

Mathew: Do this the simple way: Post the DATA FILE and the RESULTS you want, then let us try to help, for instance (and use the old technique of ';' being comments.. for us):

Data for class ; comments not part of file. Header
; blank line is in file
Mary 100 ; mary's data no delimiters
John 90
Mary 80

etc (looks like grades to me)

THEN:
Results..
Mary .. 2 test Avg 90
John .. 1 test Avg 100

OR WHATEVER IT IS YOU ARE DOING. It will be much easier to point you to what you want. This is probably very simple to do but hard to explain, so.. just show the IN and the OUT !

 

[matthewkmk]

Thx very much. I have solved the problem.
And could u tell me how to write dll and how to make an interface? I am using digital visual fortran.

 

[Eric1950]

Such a simple question ! but never a simple answer !
I will post a code/snippet later.. but I wanted to give you a heads up on what I would do.

First, the output!

Class Age Gender ...othr flds in the file ?
John 1 12 M
Mary 1 11 F

etc

Then the code would follow this outline:

declare some arrays: Name, class, age, gender ..etc

read a line
While .not. end_of_file

if special (line has Name or Age or other code)
set flag for which array to use
else if a comment (just a *
skip
else its a name
if we already know the name
set name array element
else
add 1 to end of array
endif
if array flag = age
put data in age array
elseif array flag = class
put data in class array
etc
endif
read next line
end while

do i 1 = 1 to len(namearray)
print name(i),age(i),class(i).....
continue

end

Let me know if you want real code .. but the pseudo code about should do it !