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

登录注册

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

24小时热门版块排行榜

>论坛更新日志 (4677)
>基金申请 (622)
>文献求助 (406)
>虫友互识 (227)
>论文投稿 (186)
>硕博家园 (136)
>导师招生 (135)
>考博 (102)
>休闲灌水 (101)
>博后之家 (91)
>考研 (64)
>教师之家 (44)
>公派出国 (41)
>找工作 (27)
>绿色求助(高悬赏) (24)
>外文书籍求助 (23)

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

寒江垂钓

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 5.5
帖子: 7
在线: 1.9小时
虫号: 1759843
注册: 2012-04-17
专业: 凝聚态物性I:结构、力学和

[求助] fortran中如何处理字符和数据混合的文件

有一数据文件如下：
  edge
  [
source 8
target 6
  ]
edge
  [
source 8
target 7
  ]

……………………
我想把这里面的数字读出来放到一个二维数组里面。
请各位大侠指教

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

Fortran有EOF文件结尾么？已经有7人回复
fortran两个问题，文件中的空格，屏幕同一行覆盖输出已经有23人回复
【分享】[08-12]绿色免费精品软件下载[清清心整理]【已搜索无重复】已经有3人回复
【求助】fortran中怎么存储不确定长度的数据【已完结】已经有6人回复
【求助】Fortran程序，如何让exe文件可以单独运行？已经有6人回复
【求助】matlab读取fortran输出的txt文件【已解决】已经有3人回复

1楼 2012-05-09 16:21:18

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

寒江垂钓

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 5.5
帖子: 7
在线: 1.9小时
虫号: 1759843
注册: 2012-04-17
专业: 凝聚态物性I:结构、力学和

呵呵，谢谢各位大侠，解决了

赞一下

回复此楼

7楼2012-05-10 17:00:29

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

查看全部 7 个回答

Carpathia

银虫 (小有名气)

应助: 35 (小学生)
金币: 5.6
散金: 12
红花: 2
帖子: 140
在线: 24.9小时
虫号: 1070633
注册: 2010-08-06
性别: GG
专业: 动力学与控制

【答案】应助回帖

感谢参与，应助指数 +1

假设有N组数据：
character(len=6):: ch
integer:: data(2,N)
do i=1,N
read(11,*)
read(11,*)
read(11,'(A,I)')ch,data(1,i)
read(11,'(A,I)')ch,data(2,i)
read(11,*)
enddo
如果不确定有多少组数据，先用eof函数得到N的值，然后用动态数组存储

赞一下

回复此楼

追求理想的道路上东张西望

2楼2012-05-09 18:37:37

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

寒江垂钓

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 5.5
帖子: 7
在线: 1.9小时
虫号: 1759843
注册: 2012-04-17
专业: 凝聚态物性I:结构、力学和

总共有6594组数据，我执行是出错了。
foortl:severe(64):input conversion srror,unit 15,file …………，搞不懂那里的问题……

赞一下

回复此楼

3楼2012-05-09 20:27:16

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

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

感谢参与，应助指数 +1

引用回帖:

2楼: Originally posted by Carpathia at 2012-05-09 18:37:37:
假设有N组数据：
character(len=6):: ch
integer:: data(2,N)
do i=1,N
read(11,*)
read(11,*)
read(11,'(A,I)')ch,data(1,i)
read(11,'(A,I)')ch,data(2,i)
read(11,*)
enddo
如果 ...

这个代码是有问题的，因为 '(A,I)' 的编译不会通过，因为 I 的长度不确定

如果数据就如上这么有规律，自然很好办，直接把 source 和 target 直接从读入的行中干掉就可以了……

赞一下(1人)

回复此楼

4楼2012-05-09 23:10:30

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

查看全部 7 个回答

最具人气热帖推荐 [查看全部]		作者	回/看	最后发表

[基金申请] 国自然评审意见 +7	wangmingqi 2026-08-28	8/400	2026-08-28 18:42 by zhuzg0628
[基金申请] 有没有仍没收到信息的 +3	德尚中行 2026-08-27	3/150	2026-08-28 15:24 by rongshuxia
[教师之家] 导师吐槽：我怎么摊上了这么个极品研究生！ +8	苏东坡二世 2026-08-23	8/400	2026-08-28 14:41 by lkforward
[基金申请] 基金不中，共勉 +11	eulota 2026-08-26	11/550	2026-08-28 14:22 by 火星超人xi
[基金申请] 麻烦专家们看看评委们的意见（F口面上） +4	gdd2018 2026-08-28	9/450	2026-08-28 14:22 by jklily
[基金申请] 2026年叶企孙基金 +3	bud_bud 2026-08-27	6/300	2026-08-28 11:53 by bud_bud
[基金申请] 基金系统什么内容也没有 30+4	winsaint 2026-08-27	9/450	2026-08-28 11:06 by maolC
[基金申请] 哪位高人中了，把查询到的截图贴出来让我看看，让我长长见识 +5	yuleib84 2026-08-26	6/300	2026-08-28 00:02 by yudaoqian88
[基金申请] 申请删除本帖 +6	lyz123lyz 2026-08-27	7/350	2026-08-27 17:31 by 宁静致远sy
[基金申请] 看板上这么多中的，有点像50人群里49个人都是骗子的那种感觉…… +5	a089 2026-08-26	6/300	2026-08-27 14:05 by jonewore
[基金申请] 怎么看青基中了没有啊 +5	叶九微 2026-08-26	5/250	2026-08-27 10:35 by l_zh2008
[基金申请] 为什么国际(地区)合作与交流项目没有放榜？ 10+3	majunge000 2026-08-26	11/550	2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 我不理解！ +15	Edward_pc 2026-08-26	23/1150	2026-08-26 20:34 by zzuzxg
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +7	process2012 2026-08-23	10/500	2026-08-26 19:23 by hmhminy
[基金申请] 国合里面能看到了 +7	一怀馨秋 2026-08-26	7/350	2026-08-26 11:23 by zhaosm1982
[基金申请] 国际合作可查了，中了面上 (EPI+1)(金币+50) +18	Ldrop2023 2026-08-26	18/900	2026-08-26 11:15 by cmrandy
[基金申请] 系统进不去 +4	yanglien 2026-08-26	5/250	2026-08-26 11:10 by wenfengw83
[基金申请] 明天应该可查了！？ +6	chengyan1220 2026-08-23	6/300	2026-08-25 19:45 by zfd97
[基金申请] 某些机构，以效率低为荣，以效率低作为存在感 +9	yuleib84 2026-08-25	10/500	2026-08-25 17:14 by alexon
[教师之家] 跳槽后在研项目怎么办？ +5	简单化xn 2026-08-22	10/500	2026-08-23 12:38 by 简单化xn