版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

海饼干01

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 4
帖子: 2
在线: 2.3小时
虫号: 6897906
注册: 2017-07-04
专业: 机械动力学

[求助] fortran直接读取文件已有1人参与

求助各位大神，有一个文本文件，我想循环读取文件，比如要从2到5行，12到15行的数据，以此类推

发自小木虫Android客户端

回复此楼

» 猜你喜欢

08工科275分求调剂已经有13人回复
材料工程322分已经有6人回复
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂已经有7人回复
274求调剂已经有5人回复
【求调剂】新能源材料本科，一志愿211，初试321 已经有3人回复
材料考研调剂已经有3人回复
材料调剂已经有12人回复
英一数一408，总分284，二战真诚求调剂已经有14人回复
085410 一志愿211 22408分数359求调剂已经有4人回复
271求调剂已经有19人回复

莫愁前路无知己，天下谁人不识君

1楼 2017-07-04 16:39:46

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

rex0707

新虫 (初入文坛)

应助: 1 (幼儿园)
金币: 3
帖子: 1
在线: 28分钟
虫号: 6296045
注册: 2017-04-11

【答案】应助回帖

★
感谢参与，应助指数 +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人)