24小时热门版块排行榜    

查看: 2447  |  回复: 3

gn02530640

银虫 (小有名气)

[求助] 用 fortran 读取多个 .txt 文件并输出在同一个文件

用 fortran 读取个 .txt 文件并输出在同一个文件

求助,小弟目前有多个txt文件,格式如下:
文件名:exp7_20sys_step2500_mole5.txt
# UV-VIS Spectrum
# X-Axis:  Excitation Energy (nm)
# Y-Axis:  Epsilon
#                          X                              Y                    DY/DX
        0.0000000000        0.0000000000                         nan
        1.0000000000        0.0000000000        0.0000000000
        2.0000000000        0.0000000000        0.0000000000
        3.0000000000        0.0000000000        0.0000000000
        4.0000000000        0.0000000000        0.0000000000
        5.0000000000        0.0000000000        0.0000000000
        6.0000000000        0.0000000000        0.0000000000
        7.0000000000        0.0000000000        0.0000000000
        8.0000000000        0.0000000000        0.0000000000
        9.0000000000        0.0000000000        0.0000000000
       10.0000000000        0.0000000000        0.0000000000
       11.0000000000        0.0000000000        0.0000000000
       12.0000000000        0.0000000000        0.0000000000
       13.0000000000        0.0000000000        0.0000000000

..........
      990.0000000000        0.0000000202       -0.0000000000
      991.0000000000        0.0000000195       -0.0000000000
      992.0000000000        0.0000000189       -0.0000000000
      993.0000000000        0.0000000183       -0.0000000000
      994.0000000000        0.0000000177       -0.0000000000
      995.0000000000        0.0000000171       -0.0000000000
      996.0000000000        0.0000000165       -0.0000000000
      997.0000000000        0.0000000160       -0.0000000000
      998.0000000000        0.0000000155       -0.0000000000
      999.0000000000        0.0000000150       -0.0000000000

现在我想要读取所有txt文件中Y列的数值并输出在同一个文件,请问该怎么写?
我知道这种事实在应该自己下苦工去学习,但迫于时间压力目前我目前无法这样做,真的很抱歉…还请各位帮忙,非常感谢…
最后付上档案
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : exp7_20sys_step2500_mole5.txt
  • 2015-04-30 22:28:59, 60.68 K

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
gn02530640: 金币+20, ★★★★★最佳答案 2015-05-01 10:31:26
用bash做吧, 更简单
gawk '/^ +[0-9]/{print $2}' *.txt
2楼2015-04-30 23:50:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gn02530640

银虫 (小有名气)

引用回帖:
2楼: Originally posted by jerkwin at 2015-04-30 23:50:23
用bash做吧, 更简单
gawk '/^ +/{print $2}' *.txt

太感谢您了!!
另外想再请教一下一个问题,
举例来说,我现在目录下有三个txt文件(所有文件都是1000行),输入指令: gawk '/^ +[0-9]/{print $2}' *.txt > test.txt
得到的teat.txt长这样:

#行数     #Y值
1         0.0000000000
2         0.0000000000
3         0.0000000000
4         0.0000000000
5         0.0000000000
6         0.0000000000
...      
...      
...      
998       0.0000000160
999       0.0000000155
1000      0.0000000150
1001      0.0000000000
1002      0.0000000000
1003      0.0000000000
1004      0.0000000000
...
...
...
1998      0.0000000160
1999      0.0000000155
2000      0.0000000150
2001      0.0000000000
2002      0.0000000000
2003      0.0000000000
2004      0.0000000000

三个档案的Y值都是在同一列,请问 gawk或者shell语法有办法将各个txt文件的输出结果为独立的一列吗?
比方说像这样:

#行数     档案1的Y值    档案2的Y值   档案3的Y值
1         0.0000000000  0.0000000000 0.0000000000
2         0.0000000000  0.0000000000 0.0000000000
3         0.0000000000  0.0000000000 0.0000000000
4         0.0000000000  0.0000000000 0.0000000000
5         0.0000000000  0.0000000000 0.0000000000
6         0.0000000000  0.0000000000 0.0000000000
7         0.0000000000  0.0000000000 0.0000000000
8         0.0000000000  0.0000000000 0.0000000000
9         0.0000000000  0.0000000000 0.0000000000
10        0.0000000000  0.0000000000 0.0000000000
11        0.0000000000  0.0000000000 0.0000000000
12        0.0000000000  0.0000000000 0.0000000000
13        0.0000000000  0.0000000000 0.0000000000
14        0.0000000000  0.0000000000 0.0000000000
15        0.0000000000  0.0000000000 0.0000000000
16        0.0000000000  0.0000000000 0.0000000000
17        0.0000000000  0.0000000000 0.0000000000

还是我需要写一个sh执行脚本来做呢?

这样无理的要求实在是非常抱歉...
3楼2015-05-01 10:30:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
gn02530640: 金币+30, ★★★★★最佳答案, 太感謝了! 真的是受益良多 2015-05-01 14:21:39
看你问得诚恳, 就回你几句吧

for file in *.txt; do
        echo $file
        awk '/^ +[0-9]/{print $2}' $file >"_tmp"$file
done
paste "_tmp"*.txt
4楼2015-05-01 11:00:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 gn02530640 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 2019年青年基金涵评意见,大家看看几个A,几个B? +4 Tide man 2026-08-11 4/200 2026-08-12 00:39 by liuqidi
[基金申请] 应该是93bebmhtak前后十一个字符比较关键 +17 Lanmanbaby 2026-08-09 29/1450 2026-08-12 00:24 by zhanghaozhu
[基金申请] 奇怪,两个人的filecode固定段从头到尾一模一样 +7 布布和一二 2026-08-10 9/450 2026-08-11 22:12 by 医学老男孩
[基金申请] 是这周出结果还是下周出结果? +3 yuleib84 2026-08-11 3/150 2026-08-11 21:53 by jnhyjjm
[基金申请] 有时候,自然基金真的不能太认真 (我的申报经验) +3 majunge000 2026-08-11 4/200 2026-08-11 20:13 by lch2012
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 分享一下我之前已中青C的计划书的filecode +3 布布和一二 2026-08-11 4/200 2026-08-11 15:20 by aasahr
[论文投稿] 职称评审,求友友推荐见刊最快的期刊 +3 工厂打螺丝 2026-08-08 3/150 2026-08-11 13:42 by 会议编辑
[基金申请] 我的国基提前知道中了,可是同事的操作让我实在接受不了,怎么会有这样的人 +8 家与远方 2026-08-10 13/650 2026-08-11 09:49 by 家与远方
[基金申请] 基金中了 +15 laoda193707 2026-08-06 15/750 2026-08-11 00:11 by jiafei2190
[基金申请] 确定了,国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 关于代码变化问题,想知道的进来 +17 且听虎啸 2026-08-07 24/1200 2026-08-10 18:35 by zhangduo2008
[基金申请] 据悉今年马上要出结果了 +7 瞬息宇宙 2026-08-10 8/400 2026-08-10 12:42 by Vivilian
[基金申请] 这样的filecode谁见过 +11 布布和一二 2026-08-08 22/1100 2026-08-10 11:10 by wmfsnow
[基金申请] 关于豆爷回答的JTJC与%2F数量 +5 yang182083 2026-08-06 7/350 2026-08-08 18:29 by zhanghaozhu
[基金申请] 固定端突然变了,今天 +6 archvillain 2026-08-06 10/500 2026-08-07 16:03 by 医学老男孩
[基金申请] filecode变化情况 +6 布布和一二 2026-08-07 22/1100 2026-08-07 14:45 by 且听虎啸
[基金申请] filecode +14 等待解的谜 2026-08-06 19/950 2026-08-07 12:20 by wlwhappy
[基金申请] filecode +8 布布和一二 2026-08-06 11/550 2026-08-06 20:41 by tangpu318
[基金申请] 求各位大神看下 100+6 hpkpkpkp 2026-08-05 33/1650 2026-08-06 14:49 by zhiyanjiang
信息提示
请填处理意见