| 查看: 1044 | 回复: 2 | ||
cmwhoknows新虫 (初入文坛)
|
[求助]
请问怎么用fortran定位文件中的特定行并输出 已有1人参与
|
|
本人接触fortran不久，现有一数据想通过fortran处理，有个问题不知如何实现 文件是格式化文件，每行都有好几列数据，现在想定位每行第一个数据等于某特定值的那一行，并把该行后面几列的数据按顺序输出。请问各位如何实现？ 一个简单的例子，比如数据为 1 22 5 98 2 66 9 77 3 45 8 89 2 98 7 14 1 89 8 74 2 86 2 36 怎么输出第一个数字为2的那几行后面几列的内容呢？ 多谢了各位！！！ |
回复此楼» 猜你喜欢
国社科通讯评审
已经有4人回复
-
面上的水很深
已经有13人回复
-
生命口C13面上会评时间
已经有11人回复
-
内心匮乏
已经有16人回复
-
生命口面上会评结束了吗大家有知道结果吗？现在还没有结果正常不？
已经有9人回复
-
投英文期刊如何查重
已经有6人回复
-
不要再数国自然申请书的 filecode 的分隔符个数了
已经有21人回复
-
伯胺上甲基求助
已经有7人回复
-
跨出版社商投稿
已经有5人回复
-
5个%2F，非固定段22个字母
已经有7人回复
wz_work
木虫 (小有名气)
- 应助: 4 (幼儿园)
- 金币: 2793.9
- 红花: 1
- 帖子: 204
- 在线: 21.9小时
- 虫号: 3930194
- 注册: 2015-06-18
- 性别: GG
- 专业: 结构工程
★
jjdg: 金币+1, 感谢参与 2017-09-15 00:15:53
jjdg: 金币+1, 感谢参与 2017-09-15 00:15:53
|
do循环：读取第一个字符，判断，若为2，则backspace,重新按格式读取该行;否则，继续读下一行。该方法前提，首个数字为个位数。 发自小木虫IOS客户端 |
2楼2017-09-14 08:36:24
【答案】应助回帖
★ ★
感谢参与，应助指数 +1
jjdg: 金币+2, 感谢参与 2017-09-15 00:16:01
感谢参与，应助指数 +1
jjdg: 金币+2, 感谢参与 2017-09-15 00:16:01
|
思路：读入数据，判断，然后输出 具体实现： program main implicit none integer :: a, b, c, d, ios open(10,file="input.txt",status='old') ! 输入文件 open(20,file="out.txt",status='replace') ! 输出文件 do while(.true.) read(10,*,iostat=ios) a, b, c, d if(ios/=0) exit ! 判断是否读到文件末尾，若是，则退出循环 if(a==2) write(20,*) b, c, d ! 判断是否等于2，若是，则输出后面几位数到输出文件 end do close(10) close(20) end program main |
3楼2017-09-14 08:45:20
10