| 查看: 1258 | 回复: 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 ] |
» 猜你喜欢
伙伴们,祝我生日快乐吧
已经有26人回复
机械专硕325,寻找调剂院校
已经有4人回复
333求调剂
已经有7人回复
考研化学学硕调剂,一志愿985
已经有4人回复
0854控制工程 359求调剂 可跨专业
已经有9人回复
梁成伟老师课题组欢迎你的加入
已经有9人回复
化学调剂0703
已经有8人回复
环境工程调剂
已经有6人回复
326求调剂
已经有7人回复
一志愿985,本科211,0817化学工程与技术319求调剂
已经有5人回复
» 本主题相关价值贴推荐,对您同样有帮助:
增大数组后执行窗口只是一闪
已经有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/83
福建师范大学招收2026年化学、材料硕士3-4名
+1/82
物理学 调剂
+1/80
厦门大学电池工况表征博士后招聘(固态电池 / 层状氧化物正极 / 原位-工况表征方向)
+1/78
加拿大阿尔伯塔大学招收电磁、无线通信、机器学习方向全奖硕士/博士/博士后/访问学者
+1/56
山东师范大学有机化学专业胡忠燕老师课题组招收2026届硕士研究生以及调剂生
+1/45
青岛大学泰山学者课题组招2026年申请考核制博士
+1/34
中科院生态环境研究中心国重实验室招聘客座研究生1-2名
+1/31
2026年工科硕士调剂-上海大学全国重点实验室团队-材料数据挖掘方向-研究生3-5人
+1/31
0854电子信息调剂,集成电路,芯片方向,闽南师范大学光电芯片研发实验室
+1/31
招硕士调剂生
+2/30
【沈阳农业大学机械专硕调剂】
+2/30
厦门大学航空航天学院智能制造课题组招2026年申请审核制博士生1名
+1/22
哈尔滨理工大学材料与化学工程学院 纳米功能材料与光电催化团队 招收硕士研究生
+1/7
南方科技大学基础免疫与微生物学系招聘科研助理1-2名,从事微生物与免疫学方向研究
+1/7
26年博士招生
+1/6
深圳大学蔡兴科课题组博士后及研究助理招聘
+1/5
哈尔滨工业大学(深圳)招收2026年入学电化学能源材料博士
+1/5
西交利物浦大学(苏州)/刘雯老师课题组/招博士研究生
+1/3
层流压差式流量测控产品在环保与分析仪器领域的应用与优势
+1/3
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
2楼2010-12-25 22:24:32













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