fortran批处理读取数据

自由行

尔卿不归 发表于 2016-4-2 15:55
do k=1,695
          line=0
    read（..）....

program main   !根据字符串的长度判断输出第二例数据，不读抬头（批量处理）
character*100 dat
character(len=50)temp
integer error,line,position,i,j,k,m
character*80 filename(695)

open(30,file='F:\work\ch4.2\3\filenames.txt')
do j=1,695
   read(30,*)filename(j)
   print*,filename(j)
enddo

do k=1,695  
    line=0   
open(1,file='F:\work\ch4.2\3\'//filename(k))
open(2,file='F:\work\ch4.2\4\2.txt')  

do while(.true.)
read(1,*,iostat=error)
  if(error/=0)exit               !判断文件的行数
  line=line+1
enddo
rewind(1)             !文件打开后，在读写过程中有时需要将当前文件指针位置指向文件头，通常用于顺序存取文件，

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

感觉还是不对，不知道您是这个意思吗

小傅之追梦

自由行 发表于 2016-4-2 16:18
program main   !根据字符串的长度判断输出第二例数据，不读抬头（批量处理）
character*100 dat
chara ...

你这样修改应该是对的

robindct

楼主的编程书写习惯不太好，缩进得有些太乱了，而且文件open但是没有对应close()，这就会给程序运行带来问题隐患。建议楼主使用断点调试，查找一下错误位置。另外同前楼，感觉是line=0这里的问题。

salmon

可以哦

huangbi_h

谢谢！你是我们的榜样

阿西达卡

多谢楼主分享

地表植被

请问楼主，你的每个文件中的行数都是固定25行吗？

自由行

地表植被 发表于 2016-4-15 11:53
请问楼主，你的每个文件中的行数都是固定25行吗？

是的喔，每个文件的行数都是一样的喔

地表植被

自由行 发表于 2016-4-15 14:07
是的喔，每个文件的行数都是一样的喔

哦，还有个问题就是，你的程序中的“do j=1，line-25”这个语句是什么意思啊？

晨心快乐

自由行 发表于 2016-4-1 16:49
这个程序读一个txt是没有问题的，现在是批量处理，所以我觉得是不是有其他的因素喃

这个是程序读到文件尾了，用EOF函数来判断是否是文件尾吧