为什么fortran不能读取一行并写入文件？
为什么fortran不能读取一行并写入文件？
提问于 2020-06-11 13:07:41
我正在尝试读取一个文件，将每一行放入一个名为row的变量中，然后从该行获取特定位置的值，并将其放入另一个变量中。然后，它应该写入该文件。你怎么做到的？
program read_block
implicit none
real :: x,y
integer :: ios
character(len=100) :: row
open(unit=101, file='block2trimmed.gro',action='read',status='old')
open(unit=102, file='readoutput.gro', action='write',status='new')
do
read(101, '(i5,2a5,i5,3f8.3,3f8.4)',iostat=ios) row
if (ios /= 0) exit
read(row(21:28),*) x
read(row(29:36),*) y
write(102,*) x , y
end do
close(101)
close(102)
end program read_block回答 1
Stack Overflow用户
发布于 2020-06-11 14:30:16
OP似乎混淆了两种不同的读取文件的方法，这两种方法中的任何一种都可以工作，但不能同时使用两种方法。
您可以读取整行文本(放入row变量)，然后将其拆分到单独的数据字段中(使用read(row(21:28),*) x或类似方法)。或者，可以根据需要将单独的字段直接读取到变量中，使用格式告诉代码在哪里可以找到每一行上的各个项。对于.gro文件，使用后一种方法。文件中的行按照格式中指定的方式进行了仔细的布局。
这一行
read(101, '(i5,2a5,i5,3f8.3,3f8.4)',iostat=ios) row小心地告诉编译器要读取
- 是5个字符宽度字段中的整数；
- 两个字符串，每个字符串5个字符宽度字段中的5个字符整数；
- 3个实数，来自8个字符的字段，小数点后有3位；
- 3个实数，来自8个字符的字段，小数位后有4个数字；
然后告诉它将它们都塞进一个名为row的100个字符的字符串中。这有点疯狂，当它试图将字符串解析回单独的元素时甚至更疯狂。去掉这一行，代之以下面这样的代码：
read(101, '(i5,2a5,i5,3f8.3,3f8.4)',iostat=ios) int1, str1, str2, int2, r1, r2, r3, r4, r5, r6为了让它起作用，您必须声明所有这些变量，并且您可能希望为它们指定更有意义的名称。如果你只对其中的一些变量感兴趣，忽略其他的变量。
可以将这一行读入字符串row，然后将其拆分开来，但是需要另外10行代码才能实现这一行的功能，并且完全省去了row。Gromos的.gro文件是为了便于阅读而设计的，所以阅读起来也很容易。
至于将它们写出来，正确的方法取决于您下一步要对数据做什么，而不是一行
write(102,*) int1, str1, str2, int2, r1, r2, r3, r4, r5, r6是快速而简单的，尽管它可能不是您所需要的。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/62325175
复制
相似问题
Fortran:写入和读取格式化文件
从Fortran中的同一个文件中写入并读取
读取InputStream并写入文件
在fortran95中读取和写入文件
读取sql文件并写入csv文件
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
社区富文本编辑器全新改版！诚邀体验～
全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验
腾讯云开发者
