如何用FORTRAN将一个文本数据读入另一个文本

向着光亮那方 · 发表于 2018-1-31 13:10:33

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由向着光亮那方于 2018-1-31 21:25 编辑

如图所示，想把两个站点数据放到一个文本，向图中想将第二个文本放进第一个第二行，数据格式一模一样两个文本都是一行，但是尝试很多方法实现不了，忘大神指导！附上编写的小代码，菜鸟请勿喷！

program mian
implicit none
real::a(38)
  open(12,file="D:\2008")
  read(12,*)a
open(10,file="D:\2009")
  write(10,"(38f8.2)")a

  stop
  end

topmad · 发表于 2018-1-31 14:45:58

你的思路没有看明白

按理说这是个挺简单的算法吧

读取一个然后控制写入

sc_j · 发表于 2018-1-31 16:29:14

本帖最后由 sc_j 于 2018-1-31 16:33 编辑

你第二个文件有几行？
提供个思路，声明一个数组，长度和总行数一样，读入两个文件，然后把第二个文件的下标改一下，第一个文件的顺次后移

nunu18 · 发表于 2018-1-31 16:34:47

topmad 发表于 2018-1-31 14:45
你的思路没有看明白

按理说这是个挺简单的算法吧

能不能也帮我看看，刚发的帖子，自己实在没看出来毛病

topmad · 发表于 2018-1-31 16:41:43

1 你打开文件按照啥方式读取 format 还是 unformat
2 每个文本文件不应该只有一行啊
3 你的文字表述里面我感觉有白字

夜黄黄 · 发表于 2018-1-31 16:52:12

依旧不会，怎么办，会不会不给吃饭

向着光亮那方 · 发表于 2018-1-31 19:31:08

sc_j 发表于 2018-1-31 16:29
你第二个文件有几行？
提供个思路，声明一个数组，长度和总行数一样，读入两个文件，然后把第二个文件的下 ...

一行都是，格式都是一样，改第二个文件的下标是什么意思啊

向着光亮那方 · 发表于 2018-1-31 19:32:39

topmad 发表于 2018-1-31 16:41
1 你打开文件按照啥方式读取 format 还是 unformat
2 每个文本文件不应该只有一行啊
3 你的文字表述 ...

自由格式READ的，我每个文件放了一行，模型输入需要，然后我想把第二个站点的相同数据也放在一起，你如两个站点温度。大神指点指点

向着光亮那方 · 发表于 2018-1-31 19:34:46

topmad 发表于 2018-1-31 14:45
你的思路没有看明白

按理说这是个挺简单的算法吧

我的思路就是将第二个写入第一个文本，两个都是一行固定相同格式的，麻烦大神指导指导！我也觉得不难，但是就是实现不了

sc_j · 发表于 2018-2-2 17:47:21

本帖最后由 sc_j 于 2018-2-2 17:51 编辑

向着光亮那方发表于 2018-1-31 19:31
一行都是，格式都是一样，改第二个文件的下标是什么意思啊

假如你第一个文件m行，第二个文件n行。那读进来就是A[0:m-1],A[m:m+n-1]，
然后循环i=1,n，令b=A【i】，A【i】=A[m+i-1],
A[n+i]=b

		自动登录	找回密码
密码			立即注册

[求助] 如何用FORTRAN将一个文本数据读入另一个文本

登录后查看更多精彩内容~