Fortran Coder

楼主: 向着光亮

[文件读写] Fortran读取文本文件出错

[复制链接]

443

帖子

2

主题

0

精华

大宗师

F 币
2973 元
贡献
1770 点

水王勋章元老勋章热心勋章

发表于 2018-1-7 15:00:39 | 显示全部楼层
本帖最后由 pasuka 于 2018-1-7 15:04 编辑
向着光亮 发表于 2018-1-5 15:34
并不是这个问题,请您仔细看问题,OPEN和close并没有直接绝对关系

少年,有open无close这样的陋习,早晚会栽跟头!
Python有with关键字,光open就行,可惜fortran没有open的说明文档
https://docs.oracle.com/cd/E1995 ... j4m0vnaf/index.html
If you open a unit that is already open without specifying a file name (or with the previous file name), FORTRAN thinks you are reopening the file to change parameters. The file position is not changed. The only parameters you are allowed to change are BLANK (NULL or ZERO) and FORM (FORMATTED or PRINT). To change any other parameters, you must close, then reopen the file.
怎么能说没有关系呢?
回复 支持 反对

使用道具 举报

50

帖子

11

主题

0

精华

熟手

F 币
239 元
贡献
151 点
 楼主| 发表于 2018-1-7 19:50:20 | 显示全部楼层
pasuka 发表于 2018-1-7 15:00
少年,有open无close这样的陋习,早晚会栽跟头!
Python有with关键字,光open就行,可惜fortran没有open的 ...

关键我加上close也没有用,还是从rean那里直接就end of file 了,这是怎么回事

50

帖子

11

主题

0

精华

熟手

F 币
239 元
贡献
151 点
 楼主| 发表于 2018-1-7 19:57:51 | 显示全部楼层
pasuka 发表于 2018-1-7 15:00
少年,有open无close这样的陋习,早晚会栽跟头!
Python有with关键字,光open就行,可惜fortran没有open的 ...

而且我打开的是有文件名的文件,只是读取数据出错了

443

帖子

2

主题

0

精华

大宗师

F 币
2973 元
贡献
1770 点

水王勋章元老勋章热心勋章

发表于 2018-1-8 10:27:28 | 显示全部楼层
向着光亮 发表于 2018-1-7 19:57
而且我打开的是有文件名的文件,只是读取数据出错了

之前就有人指出了,数据量不够
截图一行只有12个数据,数据a有13数据
http://tpcg.io/1VGH45
[Fortran] 纯文本查看 复制代码
program hello
implicit none
character(len=255):: src
real(kind=4):: a(13)
a=0.0E0
src = "20.332 12.1 0.063 429.0 "
!! Not enough data
!read(src, *)a
!! 4 float number in src
read(src, *)a(1:4)
write(*, *)"a = ", a

end program Hello

1237

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂伙计

F 币
776 元
贡献
354 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2018-1-11 18:18:11 | 显示全部楼层
出错不给错误提示,都是耍流氓。

50

帖子

11

主题

0

精华

熟手

F 币
239 元
贡献
151 点
 楼主| 发表于 2018-1-15 09:25:31 | 显示全部楼层
pasuka 发表于 2018-1-8 10:27
之前就有人指出了,数据量不够
截图一行只有12个数据,数据a有13数据
http://tpcg.io/1VGH45

已解决,thanks
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2018-7-17 13:43

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表