fortran读取文本文件问题

superkaren · 发表于 2013-12-27 17:08:23

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

要读一个文本文件前五列的数据，由于其中日期数据包含/，所以用格式化输入。但是每一行后面一部分数据不需要读，所以想问下，格式化输入时换行怎么办？

风浪 · 发表于 2013-12-28 14:30:34

do i=1,k
read(1,"()")(x(i,j),j=1,n)
enddo

superkaren · 发表于 2013-12-27 17:12:21

Text4.f90 (618 Bytes, 下载次数: 6)

秫彡 · 发表于 2013-12-27 19:11:49

楼主你可以把程序贴上来，数据截一部分，你这要下载3个文件帮你看。。有点难度

言深深 · 发表于 2013-12-27 21:09:26

do i=1,m
read(1,"()")(x(i,j),j=1,n)
enddo
表示读取m行数据，每一行读取n个···无需考虑换行问题

两米阳光 · 发表于 2013-12-27 22:14:52

言深深发表于 2013-12-27 21:09

登录/注册后可看大图

do i=1,m
read(1,"()")(x(i,j),j=1,n)
enddo

请问这种读取方式可以读取非纯数字的信息吗？还是只能读取数据呢？谢啦~~

Jasonluo · 发表于 2013-12-28 00:44:09

言深深发表于 2013-12-27 21:09
do i=1,m
read(1,"()")(x(i,j),j=1,n)
enddo

深深这行程序很帅

言深深 · 发表于 2013-12-28 21:25:37

两米阳光发表于 2013-12-27 22:14

登录/注册后可看大图

请问这种读取方式可以读取非纯数字的信息吗？还是只能读取数据呢？谢啦~~

都行，给定你的format即可···可以识别字符、浮点、整型等

言深深 · 发表于 2013-12-28 21:25:48

Jasonluo 发表于 2013-12-28 00:44

登录/注册后可看大图

深深这行程序很帅

superkaren · 发表于 2013-12-30 14:37:07

秫彡发表于 2013-12-27 19:11

登录/注册后可看大图

楼主你可以把程序贴上来，数据截一部分，你这要下载3个文件帮你看。。有点难度

program main
implicit none
integer::i
type::readdata
character(2)::a
character(10)::b1
character(10)::b2
integer::c
character(3)::d
integer::v
end type readdata

type(readdata)::m(2)
open(unit=12,file='C:\MSDEV\Projects\date.txt')

do i=1,2
read(12,30) m(i)%b1,m(i)%b2,m(i)%c,m(i)%d,m(i)%v
end do

do i=1,2
write(*,40) m(i)%b1,m(i)%b2,m(i)%c,m(i)%d,m(i)%v
end do

30 format(A10,6X,A10,1X,I2,3X,A3,5X,I2)
40 format(1x,A10,2X,A10,2X,I2,2X,A3,2X,I2)

end

date1:
2012/1/2       2012-01-01 17 30    6 7000 2000 12.6 63 8Sc1500 8 8 1024.8 1500 8 Sc
2012/1/2 2012-01-01 18 40 7 7000 2000 12.5 64 8Sc1500 8 8 1024.1 1500 8 Sc
2012/1/2 2012-01-01 19 40 6 7000 2000 12.4 64 5Sc1500 7Sc2400 7 7 1023.8 1500 5 Sc

date
2012/1/2       2012-01-01 17 30    6
2012/1/2       2012-01-01 18 40    7
2012/1/2       2012-01-01 19 40    6

		自动登录	找回密码
密码			立即注册

[求助] fortran读取文本文件问题

登录后查看更多精彩内容~