fortran批处理读取数据

自由行 · 发表于 2016-4-1 16:36:06

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

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

x

本帖最后由自由行于 2016-4-1 16:37 编辑

现在在用fortran批处理读取数据，已经提取了695个文件夹的文件名，但是print的时候每次都会显示一个提示语，不明白出错在哪里，每个文件里面的行数都一样，名字也很规律吗，希望大神能指点迷津，附上我的fortran程序和提示错误的语言以及txt通过软件出来的文件名，请多指点比较急。

随缘 · 发表于 2016-4-1 16:46:13

这个是程序读到文件尾了，用EOF函数来判断是否是文件尾吧

自由行 · 发表于 2016-4-1 16:49:10

随缘发表于 2016-4-1 16:46
这个是程序读到文件尾了，用EOF函数来判断是否是文件尾吧

这个程序读一个txt是没有问题的，现在是批量处理，所以我觉得是不是有其他的因素喃

尔卿不归 · 发表于 2016-4-1 17:23:00

第二次和第三次read（1）之间少了个rewind
还有可能do循环设置的数组范围大于文件实际大小

尔卿不归 · 发表于 2016-4-1 17:23:21

第二次和第三次read（1）之间少了个rewind
还有可能do循环设置的数组范围大于要读的实际文件大小

尔卿不归 · 发表于 2016-4-1 17:27:06

批量处理的话读取文件名可以和读取文件分开，但是判断文件行数和对文件读数据最好放在一起吧，这个程序计算出来的Line是所有文件的总行数了。。。。

尔卿不归 · 发表于 2016-4-1 17:27:27

批量处理的话读取文件名可以和读取文件分开，但是判断文件行数和对文件读数据最好放在一起吧，这个程序计算出来的Line是所有文件的总行数了。。。。最好把数据txt打开可以看下

自由行 · 发表于 2016-4-2 14:58:58

尔卿不归发表于 2016-4-1 17:27
批量处理的话读取文件名可以和读取文件分开，但是判断文件行数和对文件读数据最好放在一起吧，这个程序计 ...

想请教下您，那具体在哪里改动比较好喃，这个。

自由行 · 发表于 2016-4-2 15:04:55

尔卿不归发表于 2016-4-1 17:23
第二次和第三次read（1）之间少了个rewind
还有可能do循环设置的数组范围大于要读的实际文件大小

太感谢您的回答，但是在程序里有添加rewind，还是不太明白是少添加了吗

尔卿不归 · 发表于 2016-4-2 15:55:41

自由行发表于 2016-4-2 14:58
想请教下您，那具体在哪里改动比较好喃，这个。

do k=1,695
      line=0
read（..）....
   判断改文件行数的语块
   line=line+1

do j=1,line （对单个文件内部进行循环）
         判断每行
         读取每行
         写入数据
enddo

enddo

一般是这样的

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

[源代码] fortran批处理读取数据

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