| 查看: 1732 | 回复: 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一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有6人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有9人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有5人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有10人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有12人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有16人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有20人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有12人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有11人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 增大数组后执行窗口只是一闪
已经有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楼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
