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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】Fortran 如何读取文件中特定行的内容
北京石油化工学院2026年研究生招生接收调剂公告
172/2返回列表上一页12
查看: 5436  |  回复: 16
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

zhangzhiguang

至尊木虫 (文坛精英)
★
resonant(金币+1):感谢参与 2010-07-13 18:00:42
字符数，就是字符的个数，而字符有数字，字母，还有特殊字符，在文本格式下一个字符的单位就是1byte，而空格应该是占字节数的
赞一下(1人) 回复此楼
好好学习,天天向上!
11楼2010-07-13 17:03:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

digghost

木虫 (著名写手)
resonant:你是不是应该有特定的分割符阿,找到分割符一般不就可以分辨数据了么？ 2010-07-14 23:40:49
引用回帖:
Originally posted by zhangzhiguang at 2010-07-13 17:03:40:
字符数，就是字符的个数，而字符有数字，字母，还有特殊字符，在文本格式下一个字符的单位就是1byte，而空格应该是占字节数的

请问如果每一行的字符数不同怎么办.
赞一下(1人) 回复此楼
呵呵了
12楼2010-07-14 17:34:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhangzhiguang

至尊木虫 (文坛精英)
这还真就不太好办
赞一下 回复此楼
好好学习,天天向上!
13楼2010-07-15 17:49:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

csyky2007

木虫 (著名写手)
★
余泽成(金币+1):谢谢参与应助！欢迎常来程序语言版！ 2010-07-16 15:44:57
引用回帖:
Originally posted by digghost at 2010-07-14 17:34:54:

请问如果每一行的字符数不同怎么办.

你用的是矩阵，可以用补空格之类的方法将矩阵的每一行弄成一样的

如果你的矩阵时自己生成的话，可以设定输出的格式保证每一行的字符数是一样的
赞一下(1人) 回复此楼
求放心！
14楼2010-07-16 11:15:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

meinv345

金虫 (著名写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
引用回帖:
7楼: Originally posted by zhangzhiguang at 2010-06-29 18:51:03
open(unit=10, file=filename, access="direct", form="formatted", recl=几, tatus="old"
read(10, fmt="(格式)", rec=想要的行数, IOSTAT=error)  x
其中“recl=几”是你要读文件的每一行的字符数，如果是文本 ...

您好，麻烦问您一下有关文件的和直接访问的问题。
read(10, fmt="(格式)", rec=想要的行数, IOSTAT=error)  x
这里如果我想访问的这一行，有好几个数据，也就是说，我每一个有7个数据，我把每一行定义为一个模块，当我要访问第N行的时候，这个read应该怎么写？
  read (20, '(f20.5)', rec=N, IOSTAT=error) Force(:,N)
这个格式对吗？还是应该写成
  read (20, '(f20.5)', rec=N, IOSTAT=error) Force(1,N)，Force(2,N)，Force(3,N)，Force(4,N)，Force(5,N)，Force(6,N)，Force(7,N)
感谢您的帮助
赞一下 回复此楼
天道酬勤。生命不止，奋斗不息
15楼2014-07-07 16:01:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jiangxingge

金虫 (正式写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
其实 你可以先把这个 100列 300万行 的 文件 ，处理成 二进制的文件，那肯定是 等长的，就是每一行的 字节数是相等的。然后 用 二进制 读取 直接文件 的 方法，就很好办了。
赞一下 回复此楼
16楼2014-07-09 15:12:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

灿烂豆沙包

木虫 (小有名气)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
引用回帖:
7楼: Originally posted by zhangzhiguang at 2010-06-29 18:51:03
open(unit=10, file=filename, access="direct", form="formatted", recl=几, tatus="old"
read(10, fmt="(格式)", rec=想要的行数, IOSTAT=error)  x
其中“recl=几”是你要读文件的每一行的字符数，如果是文本 ...

IOSTAT=error是什么意思啊？
赞一下 回复此楼
keepcalmandcarryon..
17楼2016-03-06 21:13:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 digghost 的主题更新
172/2返回列表上一页12
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料考研调剂 +3 Gs大王 2026-04-02 3/150 2026-04-02 00:34 by 2026材料调剂
[考研] 291求调剂 +20 Y-cap 2026-03-29 25/1250 2026-04-01 23:49 by 欣喜777
[考研] 一志愿西安交大材料学硕（英一数二）347，求调剂到高分子/材料相关专业 +7 zju51 2026-03-31 9/450 2026-04-01 19:35 by CFQZAFU
[考研] 求调剂 +5 零八# 2026-03-27 5/250 2026-04-01 14:40 by yulian1987
[考研] 生物学学硕，一志愿湖南大学，初试成绩338 +8 YYYYYNNNNN 2026-03-26 10/500 2026-04-01 14:39 by hexingyi
[论文投稿] chinese chemical letters英文版投稿求助 120+4 Yishengeryi 2026-03-30 5/250 2026-04-01 14:11 by 陆小果画大饼
[考研] 085701环境工程，267求调剂 +17 minht 2026-03-26 17/850 2026-04-01 09:11 by xiayizhi
[教师之家] 张雪峰戛然而止的飞驰人生 +3 yexuqing 2026-03-26 4/200 2026-04-01 08:20 by 湖心亭看雪
[考研] 0856求调剂 +9 楒桉 2026-03-28 9/450 2026-03-31 19:06 by 暮泽12
[考研] 求调剂 +9 akdhjs 2026-03-31 10/500 2026-03-31 17:14 by zhyzzh
[考研] 329求调剂，一志愿西北工业大学，材料工程（085601） +6 小小机灵虫 2026-03-29 12/600 2026-03-31 16:58 by 记事本2026
[考研] 286求调剂 +6 Faune 2026-03-30 6/300 2026-03-31 14:37 by jp9609
[考研] 一志愿中海洋320化学工程与技术学硕求调剂 +8 披星河 2026-03-30 8/400 2026-03-31 08:53 by lbsjt
[考研] 085602 化学工程专硕 340分求调剂 +4 qianbai11 2026-03-29 4/200 2026-03-30 11:34 by 唐沐儿
[考研] 343求调剂 +6 爱羁绊 2026-03-29 6/300 2026-03-29 12:00 by 无际的草原
[考研] 356求调剂 +4 gysy?s?a 2026-03-28 4/200 2026-03-29 10:32 by 唐沐儿
[考研] 调剂考研 +3 王杰一 2026-03-29 3/150 2026-03-29 08:09 by fmesaito
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[考研] 285求调剂 +4 AZMK 2026-03-27 7/350 2026-03-27 20:59 by AZMK
[考研] 0856调剂 +5 求求让我有书读� 2026-03-26 6/300 2026-03-27 15:12 by caszguilin
信息提示
关闭
请填处理意见
关闭