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 , ...

用endfile试试

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

open 后面的文件名可以带路径(相对路径或绝对路径均可) open( 12 , file = 输入文件 ) open( 13 , file = "nnode\输出文件1" ) open( 14 , file = "nline\输出文件2" ) .... ... 不同的通道号代表不同文件,向里面对应的 read 或 write 既可。...

Fortran格式化输出的时候,若为浮点数,需要满足一定的数据宽度才能显示. f8.5, 说明小数点后5位,同时数据总宽度8位(包含符号). 则-9.99999可以正常显示,然而-10.00000就不能显示了。 建议更改: (1) 增加总宽度,如f14.5 (2) 减小有效位数, ...

character( len = 12 ) cfile cfile = "aaa-iii.txt" Do i = 1 , n a = a + 1 write( cfile(1:3) , '(i3.3)' ) a write( cfile(5:7) , '(i3.3)' ) i Open( 12 , File = cfile ) End Do

意思就是write(3,格式字符串),不要用'*'省略,否则输出总会先空走一格(很无奈)。貌似直接write(3,'A')也可以。

open(11,file='**.**') ! 要读取的文件 open(12,file='**.**') !存储第一类数据的文件 open(13,file='**.**') !存储第二类数据的文件 open(14,file='**.**') !存储第三类数据的文件 open(15,file='**.**') !存储第四类数据的文件 do i=1,300...

s='abcdefg'if 'bcd'==s[1:4]:print(True)print(s[1:4])else:print(False)

这只能在文件中,每一行的长度都一样时才能实现。 此时,用有格式直接读取,方式打开既可。

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