使用backspace语句出现问题

哈哈哈超开心

我的以下代码的backspace语句用的好像有问题，但不知如何修改，使用前都可以正常读取数据，用了backspace就好像陷入无限循环。我的目的是想在文件里读取到符合条件的str1字符串后，再返回前面某一行，读取到与str1相关的的一行也就是str2字符串（前面有很多符合‘str2（1：1）==‘#’’的行，但是就只取离str1最近的前面某一行）。请大佬赐教！！！

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program read_1line

02	implicit none

03

04	character(130)::str1

05	character(52)::str2

06	real,dimension(63):: cross

07	integer::rows

08	open(unit=12,file='cinder.dat',status='old')

09	do rows=1,162309

10	read(12,'(a130)') str1,str2

11	if(str1(1:8)=='   #3215') then

12	write(*,*) str1

13	read(12,*)cross

14	write(*,*)cross

15	read(12,'(a130)') str2

16	do while(str2(1:1).ne.'#')

17	backspace(unit=12)

18

end do

19	write(*,*) str2

20	read(12,'(a130)') str1

21

end if

22

end do

23

close(12)

24

pause

25	end program read_1line

青衣巷

你要读取的文件是什么样子的？你想要哪一部分？给个范例。

哈哈哈超开心

青衣巷 发表于 2022-9-20 08:59
你要读取的文件是什么样子的？你想要哪一部分？给个范例。

以下数据我已经读取第四行字符串就是以‘   #'开头的这一行 ，然后又读了下面的对应的这些科学计数数据，此时我想再读取上面的对应的某一行的以'#'开头的这一行，上面有很多以‘#’开头的行，但是只要读取最近的一行。感谢！

#   4:   30020  He  3    H-L=   9.9999E+99 DKref:m .
   0, 0, 0 =(n,f) yield sets. If > 0,  63-gp fisn CX follows.(    ), REF:
   4 reaction products. If > 0, 63-group reaction cross sections follow:
   #   1:   10010 produced by the following C-X  (c   ) REF:   mix   i endf5
  1.5987E+04  9.7420E+03  7.5774E+03  6.4077E+03  5.6500E+03  5.1110E+03  4.7014E+03  4.3204E+03  3.9529E+03  3.6479E+03
  3.3910E+03  3.1289E+03  2.8309E+03  2.4191E+03  1.9381E+03  1.5118E+03  1.1655E+03  9.0732E+02  7.0320E+02  5.4858E+02

li913

character(512) str, line
do i=1,n
read(12,"(a)") str
if(str(1:1)=='#') line=str
if(str(1:8)='   #3215') then
...处理line
end if
end do

哈哈哈超开心

li913 发表于 2022-9-20 09:44
character(512) str, line
do i=1,n
read(12,"(a)") str

我去试了，非常可行，受教了！感谢！