fortran处理txt数据

小傅之追梦

一个例子，给有需要的童鞋参考参考
program main
character*100 dat
integer error,line,position

open(1,file='1.txt')             !原数据
open(2,file='1-process.txt')     !处理后的数据

do while(.true.)
  read(1,*,iostat=error)
  if(error/=0)exit               !判断文件的行数
  line=line+1
enddo
rewind(1)

do j=1,line
   read(1,'(A100)')dat            !以字符串的形式将每行数据读取出来
   length=len(trim(dat))          !获取字符串实际长度
   position=index(dat,')')        !寻找每一行 ")" 所在位置
   write(2,*)adjustl(dat((position+1):length))   !将每一行 ")" 之后的数据存出来即可
enddo
end

自由行

小傅之追梦 发表于 2016-3-29 15:56
一个例子，给有需要的童鞋参考参考
program main
character*100 dat

谢谢您的解答，确实太厉害了，换了一个思路解决好咯这个问题

自由行

小傅之追梦 发表于 2016-3-29 15:56
一个例子，给有需要的童鞋参考参考
program main
character*100 dat

还想请教你一下，就是我这一个txt有很多抬头的英文，但是刚刚输入这个程序，即便我不读取英文，但是最后程序因为是输出字符串后面的，也会把抬头给输入，不知道这该怎么办喃

carolloster

{:eb302:}{:eb302:}{:eb302:}

tttttttttt

入门，学习