Fortran Coder

标题: 关于文件读取赋值问题 [打印本页]

作者: 航行 时间: 2021-6-1 10:39
标题: 关于文件读取赋值问题
-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）等于第二行数据，依次把所有行都读取

作者: li913 时间: 2021-6-1 11:21
do i=1,n
read(10,*) x(1:6)
end do

作者: 风平老涡 时间: 2021-6-1 13:35
do
read(10, iostat=stat) x(1:6)
if (stat /= 0) exit
! process x
end do

作者: 航行 时间: 2021-6-2 15:55

li913 发表于 2021-6-1 11:21
do i=1,n
read(10,*) x(1:6)
end do

read可以读取文本文件嘛

作者: vvt 时间: 2021-6-2 17:03
可以的，沙发正解。板凳的代码更健壮

作者: 航行 时间: 2021-6-3 10:31

vvt 发表于 2021-6-2 17:03
可以的，沙发正解。板凳的代码更健壮

已解决，十分感谢~

作者: 航行 时间: 2021-6-3 10:33

li913 发表于 2021-6-1 11:21
do i=1,n
read(10,*) x(1:6)
end do

已解决，十分感谢~

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)