用fortran 读取一个下面的文件 提取红色线标记的数据 并保存一个文件夹 求大神帮忙
1个回答
展开全部
PROGRAM rw
implicitnone
real :: temp,x
integer :: i
open(1,file='你的文件名')
open(2,file='你的输出文件名')
do i=1,11
read(1,*)
end do
do i=12,13
read(1,*)temp,temp,x !temp 用来读掉不用的数
write(2,*)x
end do
do i=14,26
read(1,*)
end do
do i=27,30
read(1,*)temp,temp,x
write(2,*)x
end do
END
implicitnone
real :: temp,x
integer :: i
open(1,file='你的文件名')
open(2,file='你的输出文件名')
do i=1,11
read(1,*)
end do
do i=12,13
read(1,*)temp,temp,x !temp 用来读掉不用的数
write(2,*)x
end do
do i=14,26
read(1,*)
end do
do i=27,30
read(1,*)temp,temp,x
write(2,*)x
end do
END
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询