rmml.net
当前位置:首页 >> FortrAnFortrAn如何判断到达文件末尾 >>

FortrAnFortrAn如何判断到达文件末尾

Program Main Implicit None integer n integer :: GetFileN Open( 12 , File = 'a.txt' ) n = GetFileN( 12 ) Write( * , * ) '共有',n,'行!' Close( 12 ) End Program Main Integer Function GetFileN( iFileUnit ) Implicit None Integer , ...

我是这么做的: program abc use DFPORT !要用DFPORT,很关键 implicit none character*20 infile1,infile2,infile3 logical istatus1,istatus2 infile2='C:\abcd' !定义一个字符串,代表要判断是否存在的那个文件夹abcd及其路径 infile1='MD '/...

一直读,直到结束为止。 结束可用 iostat 判断

方法一,如: read(1,*,end=111) fa 读到文件末尾处跳到第111行。 方法二: 利用oistat语法,比较麻烦,看看书。

如果你的文本文件每一行都是一样的长度。那么你可以试试用 “有格式文件直接读写方式” 打开文件。 如果你的文本文件每一行长度不同。则有点难办。如果你用的 windows 下的 Compaq Visual Fortran ,Digital Visual Fortran ,Intel Visual Fortra...

fortran 在处理文件时也有文件结尾的概念。 READ(UNIT=number, FMT=format, NML=namelist, REC=record, IOSTAT=stat, ERR=errlabel, END=endlabel, ADVANCE=advance, SIZE=size) UNIT=number 指定read/write所使用的输入输出的位置。FMT=format...

integer:: end read (1, iostat= end) if (end

open的时候加上 access = 'append' 参考:http://www.newsmth.net/bbsanc.php?path=%2Fgroups%2Fsci.faq%2FNumComp%2Ffor%2FFortran%2Fappend

open(unit=1,file='example.dat',status='old',access='append') 注意status='old'保证打开已有文件时不会被清空,access='append'表示续写。当然是会从新的一行开始写。 文件格式是.txt或dat什么的无所谓!

记住 4 步: 打开文件 准备数据 写入文件 关闭文件 !=========================================== open(unit=fileid, file=filename) do i=1,students write(*,"('请输入'I2'号同学的中文、英文及数学成绩')") i read(*,*) s(i)%Chinese, s(i)%...

网站首页 | 网站地图
All rights reserved Powered by www.rmml.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com