Fortran Coder

查看: 10868|回复: 5
打印 上一主题 下一主题

[文件读写] 用fortran读取txt文件,只要txt文件里有回车,就会运行失败

[复制链接]

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

楼主
发表于 2021-7-4 09:47:08 | 显示全部楼层
DO nSource=1,SourceNumber(1)
        READ(UNIT=10,FMT=*) SourcePositionOfMain(nSource,1),SourcePositionOfMain(nSource,2),SourcePositionOfMain(nSource,3),SourcePositionOfMain(nSource,4),SourcePositionOfMain(nSource,5),SourcePositionOfMain(nSource,6)
    END DO

可简写为
   DO nSource=1,SourceNumber(1)
        READ(UNIT=10,FMT=*) SourcePositionOfMain(nSource,1:6)
    END DO


请给出你的 txt 的文件内容。

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2021-7-6 19:10:52 | 显示全部楼层


这张图里,第一行的内容,也是文件的内容吗?
SourcePositionOfMain(SUM(SourceNumber(1:3))+1:SUM(SourceNumber(1:4)),6)

如果是,你的代码里,是否有语句读取或跳过这一行?

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

板凳
发表于 2021-7-9 08:38:58 | 显示全部楼层
从你给的信息看不出问题来。
你可以把代码缩减,比如仅提取读取该文件的部分,让代码尽可能简短,且能重现问题。

然后,把简短的全部代码给出来,文件传上来。以便他人分析。
(你可以点下方的大橘色按钮“回复”,或者快捷回复框右上角的“高级模式”,来上传附件。普通快捷回复无法上传。)
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-6 02:24

Powered by Tencent X3.4

© 2013-2024 Tencent

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