| 查看: 1224 | 回复: 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 ] |
回复此楼» 猜你喜欢
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 增大数组后执行窗口只是一闪
已经有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人回复
» 抢金币啦！回帖就可以得到:
-
坐标广州，征女友
+2/152
-
ChineseResearchLaTeX: 开源、免费的vibe coding辅助国自然写作
+1/84
-
陆军军医大学第二附属医院（新桥医院）冉茜课题组招聘科研人员
+1/79
-
龙凤Tai——写给恋人的第100封情书
+1/72
-
一个陌生女人的来信
+1/65
-
北京-89175-事业单位-诚征女友
+1/62
-
国家级青年人才课题组招收2026级硕士研究生
+1/32
-
中国农业大学安杰课题组招聘科研助理（表现优异者可提供读博机会）
+1/27
-
代朋友发 88公务员诚征男友
+1/23
-
2026年天津科技大学“新能源催化与膜材料团队”研究生招生
+1/20
-
香港城市大学范俊教授招博士生 2名 机器学习和仿真设计新的电池材料 仅限C9高校学生
+1/11
-
【青岛大学】2026年生物与医药申请考核制博士生招生（含少数民族骨干人才）
+1/10
-
电子科技大学李世彬课题组招聘传感器方向博士及博士后
+1/6
-
哈工大（深圳）国家级青年人才 钟颖教授课题组 新增26级博士名额！欢迎报名！
+1/5
-
怎么发布了求助贴了， 一发就转到删除栏了
+1/5
-
中国地质大学（武汉）杨华明课题组刘磊研究员招收冶金固废资源高值化利用方向博士
+1/4
-
广东省环境科学研究院招聘高分辨质谱方向博士一名
+1/4
-
【科研助理招聘-北京理工大学-集成电路与电子学院-国家杰青团队】
+1/3
-
代教授（南昌航空大学）招收CO2光&光热催化还原方向的博士生
+1/3
-
德国图宾根大学诚招全奖岗位制博士（地下流固化学反应耦合数值模拟方向）
+1/2
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
