Question

我有两个文件：file1（4列）和file2（4列）。我想将所有这些数据写入一个文件（file1的4列file2 =总共8列的4列）。

我已经开始编写代码但无法完成。请帮帮我。

program dataarranhe
  implicit none
  character*80 :: File1, File2
  integer :: i
  open(1,file='File1')
  open(2,file='File2')
  open(3,file='outfile',status='unknown')

  i = 0
  do
     i = i + 1
     read(1,'(80a)')File1


end program dataarrange

File1中：

    -9.568336E+00  -1.615161E+00   1.042644E+00  -1.615161E+00
    -4.765572E-01   9.005122E-01  -2.282920E+00   9.005122E-01
    -1.012710E+01   4.672368E-01   8.791873E-02   4.672368E-01
    -7.699012E+00  -9.906154E-01   7.450304E-01  -9.906154E-01
    -3.544260E+00   4.254020E+00  -1.963602E+00   4.254020E+00

文件2

    -1.131916E+01  -6.979813E-01  1.042644E+00 -6.979813E-01
    -3.827857E+00  -3.206736E+00 -2.282920E+00 -3.206736E+00
    -4.680832E+00  -5.271814E-01  8.791873E-02 -5.271814E-01
    -1.061230E+00  -3.546956E+00  7.450304E-01 -3.546956E+00
     3.740858E+00  -4.587760E+00 -1.963602E+00 -4.587760E+00

我想要以下结果

    -9.568336E+00  -1.615161E+00   1.042644E+00  -1.615161E+00 -1.131916E+01  -6.979813E-01  1.042644E+00 -6.979813E-01
    -4.765572E-01   9.005122E-01  -2.282920E+00   9.005122E-01 -3.827857E+00  -3.206736E+00 -2.282920E+00 -3.206736E+00
    -1.012710E+01   4.672368E-01   8.791873E-02   4.672368E-01 -4.680832E+00  -5.271814E-01  8.791873E-02 -5.271814E-01
    -7.699012E+00  -9.906154E-01   7.450304E-01  -9.906154E-01 -1.061230E+00  -3.546956E+00  7.450304E-01 -3.546956E+00
    -3.544260E+00   4.254020E+00  -1.963602E+00   4.254020E+00  3.740858E+00  -4.587760E+00 -1.963602E+00 -4.587760E+00

Answer 1

如果您是一个Unix类型系统并且可以访问var template = $('#template').html(); Mustache.parse(template); // optional, speeds up future uses var rendered = Mustache.render(template, data); $('#target').html(rendered);，那么您只需执行

即可

paste

对于这类问题，脚本编写是你的朋友;你可以使用$ paste File1 File2，bash或类似的东西来节省大量的时间，而不是Fortran。但是，我很欣赏这个决定可能不在你手中。如果是这样，请评论，我可以扩展答案以包含Fortran解决方案。

将数据从两个文件写入一个文件

1 个答案: