Fortran Coder

查看: 13098|回复: 6
打印 上一主题 下一主题

[文件读写] 关于文件读取赋值问题

[复制链接]

5

帖子

2

主题

0

精华

入门

F 币
42 元
贡献
18 点
跳转到指定楼层
楼主
发表于 2021-6-1 10:39:26 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
-0.116758884160000        -0.442415566389000        -0.0979160104040000        -0.0401969243740000        -0.556714728297000        0.0163785985080000
-0.520017575911000        -0.483202961172000        -0.4170738046240000        -0.0403238663060000        -0.551954534509000        0.7672014375880000
-0.424326191009000        -0.443990520364000        -0.0961863555910000        -0.0404490570790000        -0.552315966443000        0.7570562805320000
-0.554525470360000        -0.884795759153000        -0.0952230384360000        -0.0405791594860000        -0.552630092899000        0.0173827315000000
-0.541764742491000        -0.485535568918000        -0.0943069225310000        -0.0406945545240000        -0.552955370065000        0.0177060323720000
-0.563014613570000        -0.486275851122000        -0.1133289446710000        -0.0408196775530000        -0.553266387177000        0.0180154687650000
-0.544407368494000        -0.887500984712000        -0.5415525887380000        -0.0410335961340000        -0.553883811712000        0.0186354152930000
有一组这样的数据,假设该数据在.txt文件内,如何将数据依次循环按行读取赋值给x呢,请求大神帮助,十分感谢!
例如第一次循环时x(1:6)等于第一行数据,第二次循环时x(1:6)等于第二行数据,依次把所有行都读取

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
沙发
发表于 2021-6-1 11:21:35 | 只看该作者
do i=1,n
read(10,*) x(1:6)
end do

213

帖子

2

主题

0

精华

宗师

F 币
2142 元
贡献
875 点

规矩勋章

板凳
发表于 2021-6-1 13:35:50 | 只看该作者
do
   read(10, iostat=stat) x(1:6)
   if (stat /= 0) exit
   ! process x
end do

5

帖子

2

主题

0

精华

入门

F 币
42 元
贡献
18 点
地板
 楼主| 发表于 2021-6-2 15:55:59 | 只看该作者
li913 发表于 2021-6-1 11:21
do i=1,n
read(10,*) x(1:6)
end do

read可以读取文本文件嘛

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
5#
发表于 2021-6-2 17:03:42 | 只看该作者
可以的,沙发正解。板凳的代码更健壮

5

帖子

2

主题

0

精华

入门

F 币
42 元
贡献
18 点
6#
 楼主| 发表于 2021-6-3 10:31:44 | 只看该作者
vvt 发表于 2021-6-2 17:03
可以的,沙发正解。板凳的代码更健壮

已解决,十分感谢~

5

帖子

2

主题

0

精华

入门

F 币
42 元
贡献
18 点
7#
 楼主| 发表于 2021-6-3 10:33:06 | 只看该作者
li913 发表于 2021-6-1 11:21
do i=1,n
read(10,*) x(1:6)
end do

已解决,十分感谢~
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-12-25 21:23

Powered by Tencent X3.4

© 2013-2024 Tencent

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