从.txt文件中读取和写入.txt文件

这是我的代码：从.txt文件中读取和写入.txt文件

Program Input_Output 

Implicit none 

Integer::i 
Real::R_sn,X_sn,G_sn,B_sn 

Open(Unit=2,File='Input.txt',Status='Unknown') 

    Read(2,'(4(1x,En8.2))')R_sn,X_sn,G_sn,B_sn 

Close(Unit=2,Status='Keep') 

Open(Unit=4,File='Ouput.txt',Status='Unknown') 

    Write(4,'(4(1x,En8.2))')R_sn,X_sn,G_sn,B_sn 

Close(Unit=4,Status='Keep') 

End Program Input_Output

文件Input.txt的内容是：

2.09E-01 1.17E-01 0.00E-00 1.16E-04

文件Output.txt的内容是：

******** ******** 0.00E+00 ********

我的这段代码的意图是从文件中读取一些数字，然后我想从用于读取的文件形式的其他文件中写入数字。写在Output.txt文件有什么问题？

来源

2017-09-01 Judge_Dredd

描述符中的字段太短（字符太少）。只需使用（*，*）或更多字符。很多重复，无法从我的手机搜索。 –

我想将En8.2格式的数字写入'Outpu.txt'。使用（*，*）我得到了f描述符形式的数字 –

您正在寻找以'科学记数法'写入输出的ES数据描述符。这意味着小数点前的一位前导数字。

write(*,"(4(1x,es8.2))" R_sn, X_sn, G_sn, B_sn 
!! output: 2.09E-01 1.17E-01 0.00E+00 1.16E-04

在另一方面，对于EN，或“工程记”，你正在写（最多）小数点前3个领先的数字。因此，您需要扩展输出字段（由@VladimirF建议）：

write(*,"(4(1x,en10.2))" R_sn, X_sn, G_sn, B_sn 
!! output: 209.00E-03 117.00E-03 0.00E+00 116.00E-06

来源

2017-09-01 16:39:52

从.txt文件中读取和写入.txt文件

回答

相关问题