Question

fortran程序求助，需要读取文本中特定几行内容并输出到另一个文本中，求大侠帮忙，程序不会现在急用

文本形式类似下面，我只要input那行的，这行里既有字符也有数字还有标点符号，全部都要输出
date1，date2，date3，date4
I want to know the ideal measure,
input(1000, 0.11, 2000, 0.7, 3000, 0.1a,)

date1，date2，date3，date4
I want to know the ideal measure,
input(1000, 0.8, 2000, 0.1, 3000, 0.2a,)

date1，date2，date3，date4
I want to know the ideal measure,
input(1000, 1.6, 2000, 0.7, 3000, 0.5a,)

date1，date2，date3，date4
I want to know the ideal measure,
input(1000, 0.5, 2000, 0.7, 3000, 0.1a,)

格式就是以上不断重复

Answer 1

假定上边文件是a，需要存入b中：
character line*120, str*10, string*6
real*8 a,b,c,d,e
strng='input('
open(1,file='a',stutas='old')
open(2,file='b',stutas='unknown')
1 read(1,"(a)",end=99) line
if(line(1:6) .ne. string) then
goto 1
elseif(line(1:6) .eq. string) then
read(line(7:),*) a,b,c,d,e,str
write(2,*) a,b,c,d,e,str
goto 1
endif
99 continue
end
大致就是这么个意思，你需要根据实际情况修改一下。一般遇到这种需要读取文件中特定行的情况，都可以尝试使用这种应该称为“内部文件读写”的技巧。