正文

Fortran文件读写--查找内容

IP云
IP云V管理员/2 阅读
11/29
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示
program ex

implicit none

character(len=) A(),B(),C()  !A异常、B已开挖、C需标记

integer i,j,N1,N2,count   !N1是10号文件行数,N2是11号文件行数，count是计数器

open(unit=,file="10异常焊口编号列表.txt")   !异常焊口编号列表

open(unit=,file="11以开挖焊口列表.txt")     !以开挖焊口列表

open(unit=,file="12异常焊口中已开挖焊口编号.txt")

read(,*)N1   !读取10号文件

DO i=,N1,

read(,*) A(i)

end do

read(,*)N2    !读取11号文件

DO i=,N2,

read(,*) B(i)

end do

!开始比对（从异常到全部开挖去比对）

DO i=,N1,

  DO j=,N2,

     if ( trim(A(i))==trim(B(j)) ) then

     write(*,*)A(i),"   以开挖"

     write(,*)A(i)

     exit

     end if

  end do

end do

write(*,*)"按任意键结束"

read(*,*)

end program

相关阅读

目录[+]