关于文件读写的问题

Felix804665

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program main

02	implicit none

03

04	integer :: ncols,nrows,xllcorner,yllcorner,cellsize,nodata

05	character(len=20) :: str(10)

06	integer :: a(4,5),i,j

07

08	open(5,file='1.txt',status='old')

09	open(6,file='2.txt')

10

11	!    read(5,'(/////)')        !本句相当于跳过了被读入文件的前六行，括号里为空时表示1行，斜杠数加1为跳过的全部行数。有一个问题需要注意，在本代码中，如果跳过行数超过6，则执行报错！

12	!具体原因请加群2338021向群主咨询。由于讨论這个问题时，他一直笑而不语，所以到现在我也不知道是为什么，且不知该如何自行查询......

13

14	!    read(5,'(6x,i6)') ncols  !注意本句和以下几句x前的数值不能包括最后的数字所占字节数，否则写入输出文件的数值为0

15	!    read(5,'(6x,i6)') nrows

16	!    read(5,'(11x,i6)') xllcorner

17	!    read(5,'(11x,i6)') yllcorner

18	!    read(5,'(10x,i6)') cellsize

19	!    read(5,'(10x,i6)') nodata

20

21	!    write(6,*) ncols         !写入输出文件

22	!    write(6,*) nrows

23	!    write(6,*) xllcorner

24	!    write(6,*) yllcorner

25	!    write(6,*) cellsize

26	!    write(6,*) nodata

27

28	do i=1,6                  !此do循环作用为将输入文件前六行连字符带数值全部写入输出文件，注意如果将'(A20)'换成*，则只输出字符，没有数值

29	read(5,'(A20)') str(i)

30	write(6,*) str(i)

31

end do

32

33

do j=1,5

34	read(5,*) (a(i,j),i=1,4)

35	write(6,*) (a(i,j),i=1,4)

36

end do

37

38

pause

39

end

fcode

我什么时候笑而不语了？汗颜....下午有点事，一直没顾着看QQ群。

这代码得看输入文件张啥样，才知道怎么算正确，怎么算错误。

第29行

[Fortran] 纯文本查看 复制代码

查看代码

打印?

1	read(5,'(A20)') str(i)

2

!// 可修改为

3	read(5,'(A)') Trim(str(i))

4	!// 因为 str 长度是20，我们一般不需要输入完，后面的空格是多余的。

珊瑚虫

跳跳的这个帖子主要是为了介绍文件读取时候的一些技巧吧，根据我的经验，一般不要用格式化读入，否则比较麻烦

楚香饭

如果万不得已，数据格式很变态，比如用 214900 来表示21点49分00秒，这时候可以用格式化读入。

其他时候， read( ?? , * ) 往往是最简单，也最好用的了。

Felix804665

感谢大家！