| 查看: 1588 | 回复: 3 | |||
| 本帖产生 1 个 程序强帖 ,点击这里进行查看 | |||
[交流]
【求助】从文件读入数组遇到困难
|
|||
|
文件A中第一行有n个数,另一文件B中第一行有m个数。(其中n,m<100) 我要分别将上面的文件读入另一个文件C,我用下面的遇到困难: INTEGER num1(100),num2(100) OPEN (20,FILE="A.txt" ) OPEN (21,FILE="B.txt" ) OPEN (22,FILE="C.txt" ) READ(20,*)(numb1(i),i=1,n) READ(21,*)(numb2(i),i=1,m) WRITE(22,*)(numb(i),i=1,n) WRITE(22,*)(numb(i),i=1,m) END 现在的问题是读入的数据个数如果和数组的大小不等的话,就无法读入。 由于类似文件很多,不要人为的读入n或m的值,如何办? 想过用动态数组,也没能搞定。 INTEGER, allocatable::numb( ; ! 声明动态数组,可以是多维的,类似a(:,:,![]() allocate(numb(50)); ! 给动态数组分配内存 numb(50)=1.0; ! 操作和平常的数组一样 deallocate(numb); 请高手贴出具体的程序解决,诚盼!!!!! [ Last edited by onexf766 on 2010-12-25 at 20:43 ] |
» 猜你喜欢
今天系统多次维护,明天很可能放榜!
已经有5人回复
欢迎发来filecode的Mz6后的代码验证其规律
已经有74人回复
岩土工程学报什么时候才能终审完呐
已经有4人回复
时间戳又变了8-15
已经有25人回复
2027广东省杰青
已经有6人回复
快农历七夕节了,轻松一下,男人悄悄话,女施主请不要进来。
已经有3人回复
哪位老哥知道今年的国自然具体哪一天放榜?
已经有9人回复
咱们一起用铁证分析2026国家社科基金中标与否
已经有26人回复
我的国基提前知道中了,可是同事的操作让我实在接受不了,怎么会有这样的人
已经有16人回复
有时候,自然基金真的不能太认真 (我的申报经验)
已经有12人回复
» 本主题相关价值贴推荐,对您同样有帮助:
增大数组后执行窗口只是一闪
已经有14人回复
求助:在GUI界面中显示m文件中的数组图片
已经有3人回复
毕赤酵母基因重组时遇到困难了
已经有9人回复
混合基组中,如何读入前一基组的CHK文件?
已经有4人回复
三维数组换行输入到文件(intel fortran 编译器)
已经有6人回复
关于c语言的一个小问题 坐等回复啊 急啊 是关于建立数组的
已经有9人回复
从txt文件读数据到二维数组
已经有4人回复
【求助】关于ansys读入荷载文件
已经有4人回复
【求助】一个求数组绝对值的小问题
已经有7人回复
.txt格式的文件怎么读入Jade5啊?
已经有4人回复
【求助】module里面能够让数组从外部接受一些数据吗?【已完结】
已经有8人回复
【求助】ANSYS定义数组时,如何从TXT文件中导入?
已经有7人回复
» 抢金币啦!回帖就可以得到:
上海同城
+1/115
中国科学院空天院精密干涉测量团队 精密机械结构工程师招聘启事
+1/83
中国科学院空天院精密干涉测量团队招聘光学/算法/机械方向博士后/特别研究助理
+1/80
中国科学院空天院精密干涉测量团队招聘光学/算法/机械方向博士后/特别研究助理
+1/80
广西大学 化学化工学院 新入职教师招生 化学、化学工程与技术、材料化工专业
+1/47
2026年生物学、大数据与信息工程国际会议 (BSBIE 2026)
+1/29
物理学报录用,散币感谢合作者和审稿人
+2/24
祈福
+1/15
祝福!祈福!!基金中中中!
+5/15
希望这篇论文能中
+2/12
27级博士生 + 福州大学 + 经管学院 + 管理科学与工程(见贴则有指标)
+1/8
关于Ghaffar-Parkins催化剂催化氰基水解为酰胺的问题
+1/6
北京理工大学-集成电路与电子学院杰青团队-招博士后
+1/6
河海大学海洋环境污染与生态毒理学研究组招收2027级硕士生 及博士研究生
+1/6
27推免-广州医科大学封红亮教授招收精神医学应用心理学推免生
+1/5
北理工集成电路杰青团队 | 诚招科助理
+1/5
中国科学院生态环境研究中心环境工程相关方向招收保送硕士和联合培养博士和硕士研究生
+1/4
中国科学院生物物理研究所田勇课题组招聘联合培养生
+1/3
空间多组学解码实体瘤 CAR-T 耐药:GPC3 靶向装甲型 CAR-T 治疗
+1/2
分析化学的科研文章有没有人需要交流的啊
+1/1
2楼2010-12-25 22:24:32
3楼2010-12-29 09:31:52
onexf766(金币+6): 非常谢谢!呵呵 2011-04-09 18:01:49
余泽成(程序强帖+1): 2011-04-20 22:43:28
余泽成(程序强帖+1): 2011-04-20 22:43:28
|
这里关键的是下面两行 第一行很容易理解,就是从文件中读入一行,以字符串的形式读入,由于你的一行中全部是数值,所以,我们可以用 Fortran 的内部文件机制解决数据的读取问题。这就是第二行的代码。在第二行中,LINE 不再是一个字符串,而是一个内部文件,这个文件的内容就是前一行读入的那个字符串。END 表示遇到文件尾部时的处理方式,在这里,遇到尾部就跳到标号为 20 的行。由于你问题中说到数据不超过 100,所以我就设了后面读入100个数,比如你的数据是 70 个,当读第 71 个数据时,其实已经是尾部了,因此,就直接跳到标号为 20 的行了…… 大概就是这个样子的…… |
4楼2011-04-09 11:19:27










; ! 声明动态数组,可以是多维的,类似a(:,:,
回复此楼