program ex
implicit none
character(len=40) A(3000),B(3000),C(3000) !A异常、B已开挖、C需标记
integer i,j,N1,N2,count !N1是10号文件行数,N2是11号文件行数,count是计数器
open(unit=10,file="10异常焊口编号列表.txt") !异常焊口编号列表
open(unit=11,file="11以开挖焊口列表.txt") !以开挖焊口列表
open(unit=12,file="12异常焊口中已开挖焊口编号.txt")
read(10,*)N1 !读取10号文件
DO i=1,N1,1
read(10,*) A(i)
end do
read(11,*)N2 !读取11号文件
DO i=1,N2,1
read(11,*) B(i)
end do
!开始比对(从异常到全部开挖去比对)
DO i=1,N1,1
DO j=1,N2,1
if ( trim(A(i))==trim(B(j)) ) then
write(*,*)A(i)," 以开挖"
write(12,*)A(i)
exit
end if
end do
end do
write(*,*)"按任意键结束"
read(*,*)
end program
Fortran文件读写
点赞
收藏