| 查看: 2226 | 回复: 1 | ||
[求助]
fortran直接读取文件 已有1人参与
|
|
求助各位大神，有一个文本文件，我想循环读取文件，比如要从2到5行，12到15行的数据，以此类推 发自小木虫Android客户端 |
回复此楼» 猜你喜欢
小木虫没落了，除了祈祷帖子，几乎看不到有价值的帖子
已经有15人回复
-
面上的水很深
已经有18人回复
-
国社科通讯评审
已经有5人回复
-
5个%2F，非固定段22个字母
已经有9人回复
-
生命口C13面上会评时间
已经有11人回复
-
内心匮乏
已经有16人回复
-
生命口面上会评结束了吗大家有知道结果吗？现在还没有结果正常不？
已经有9人回复
-
投英文期刊如何查重
已经有6人回复
-
不要再数国自然申请书的 filecode 的分隔符个数了
已经有21人回复
-
伯胺上甲基求助
已经有7人回复
【答案】应助回帖
★
感谢参与，应助指数 +1
xzhdty: 金币+1, 感谢参与 2017-07-05 12:47:16
感谢参与，应助指数 +1
xzhdty: 金币+1, 感谢参与 2017-07-05 12:47:16
|
INTEGER,PARAMETER :: SkipLine ! how many lines you want to skip, in your case SkipLine = 12-2 = 10 INTEGER :: Line1 ! in your case Line1 = 2 INTEGER :: MaxLine ! how many lines in your file DO i = Line1 : MaxLine : SkipLine DO j = i : ReadNLine READ(UNIT,*) A(j) ENDDO ENDDO ???????????????????? |
2楼2017-07-04 20:14:51
10