有没有内部函数能判断是否是文件的开始位置的办法

liudy02 · 发表于 2018-12-19 14:01:04

想自己写一个程序计算当前所在的行数
才发现似乎Fortran有判断当前是文件末尾的办法，
却似乎没有判断是文件开始的办法啊
大佬们给小白指点指点呗……

liudy02 · 发表于 2018-12-21 18:38:51

li913 发表于 2018-12-21 09:51
写个子程序返回当前的行数？这个我办不到，貌似fortran也办不到。系统函数也许行。 ...

反正顺序读取的位置只有行数啊，又没有在行里边的位置
只要先计算到文件末有多少行，然后Rewind后再数一遍有多少行
然后再回到初始位置不就OK了…………

liudy02 · 发表于 2018-12-21 18:36:08

vvt 发表于 2018-12-21 08:21
用 stream 读写有格式（文本）文件就好了呀。见6楼和顺序读取完全兼容。但可以 Inquire 查询位置
...

你这么一提醒我明白了，确实stream流读有格式文件也没有问题
可以涵盖顺序读取的所有功能
不过你说这个和顺序读取兼容是怎么回事呢
难道意思是stream流也是可以按行读写么？

li913 · 发表于 2018-12-21 09:51:31

liudy02 发表于 2018-12-20 16:48
哦，听你说过这个ifport扩展模块了
不过我自己还不是很了解，看来还是要啃编译器说明哪
用这个模块也不是 ...

写个子程序返回当前的行数？这个我办不到，貌似fortran也办不到。系统函数也许行。

vvt · 发表于 2018-12-21 08:21:04

用 stream 读写有格式（文本）文件就好了呀。见6楼和顺序读取完全兼容。但可以 Inquire 查询位置

liudy02 · 发表于 2018-12-20 16:48:38

li913 发表于 2018-12-20 12:10
ivf扩展函数getpos可以，文件头i=0。
use ifport
open(10,file=...)

哦，听你说过这个ifport扩展模块了
不过我自己还不是很了解，看来还是要啃编译器说明哪
用这个模块也不是不好，不过限定IVF了呀
我考虑自己写个自用的模块算了……
有格式文件反正是按行读取嘛，文件指针又不能再一行的中间
可以写个子程序计算文件的行数，也可以判断是文件的末尾和直接指定文件的首尾位置
那么自然也可以写个子程序返回当前的行数的，嗯嗯嗯，我真是太蛋疼了……