fortran读取txt文件 读取的时候怎么跳过开头数据信息

嘟嘟鱼2013

言深深 发表于 2012-9-21 09:17

                               
登录/注册后可看大图

楼上做法是正确的，在open file之后read几行字符，例如：
character(len=20)
do i=1,6

看了这个以后，觉得很有帮忙，可是我有一个疑问，怎么用FORTRAN读取一行数据时跳过之前几个字符呢？数据差不多如下：尝试过把空格看成分隔符，结果只把第一个数据提取出来了;或者把每个字符看成一列，从第18列开始读，也不太读得出后面那个矩阵数组。指针什么的不太会用，能麻烦您指点一下吗。
2013-04-14 23:42 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

言深深

嘟嘟鱼2013 发表于 2013-10-1 10:54

                               
登录/注册后可看大图

看了这个以后，觉得很有帮忙，可是我有一个疑问，怎么用FORTRAN读取一行数据时跳过之前几个字符呢？数据差 ...

跳过时间那一行么？或许应该直接
read(1,*)
就可以了，下面到直接read

Singapore_鹏

虽然现在在学FORTRAN，但是我们还未真正学自我编程

嘟嘟鱼2013

言深深 发表于 2013-10-1 11:25

                               
登录/注册后可看大图

跳过时间那一行么？或许应该直接
read(1,*)
就可以了，下面到直接read

OO 不是 日期、时间和数据在同一行里面。那个应该怎么处理呢。

言深深

嘟嘟鱼2013 发表于 2013-10-1 14:28

                               
登录/注册后可看大图

OO 不是 日期、时间和数据在同一行里面。那个应该怎么处理呢。

fortran可以通过记录进行跳读，但是记事本文件的建议直接通过读取释放，将变量全都定义为字符型的，前面读取释放两个数，生下来的写到文件里面就可以了。

嘟嘟鱼2013

言深深 发表于 2013-10-1 21:30

                               
登录/注册后可看大图

fortran可以通过记录进行跳读，但是记事本文件的建议直接通过读取释放，将变量全都定义为字符型的，前面读 ...

不太明白您的意思。我的数据列出的是第一行，第一行数据用于计算。里面一共有四行。都把它理解成字符串。
integer::m,n
character::str(4,3000)
do m=1,4
do n=1,3000
  read(10,*)str(m,n)
end do
end do

do m=1,1
write(11,*)str(1,18:3000)
end do

end

这样试了一下，还是不对呢？能麻烦指点一下吗。

言深深

try this

integer::m,n
character(len=1)::str(4,3000)
do m=1,4
  read(10,*)(str(m,n),n=1,3000)
end do

do n=18,3000
write(11,*)str(1,n)
enddo
end

嘟嘟鱼2013

言深深 发表于 2013-10-2 22:36

                               
登录/注册后可看大图

try this

integer::m,n

按您说的我试了一下，还是不行。运行以后是这样的，
forrtl: severe(24): end of file during read...
我把数据传在附件里，能麻烦您帮我看下吗。提取第一行除了日期、时间以外的数据。
我是把四行都理解成字符数组，只读第一行，跳过前17个字符。。。不知道这样对不对？主要是我自己没有试出来。麻烦指点一下，谢谢。我在想是不是第一个open语句里面要加一个IOSTAT的说明，或者每行得读到‘\n’才跳到下一行呢。

program main
implicit none

integer::m,n
character(len=1)::str(4,3000)

open(10,file='d:\PShadow_GD001.txt')
open(11,file='d:\Newfile.txt')

do m=1,4
  read(10,*)(str(m,n),n=1,3000)
end do

do n=18,3000
write(11,*)str(1,n)
enddo
end

mobei

6楼的方法真不错，学习啦！

CDH

空读过去就行了，不用定义数据类型。