24小时热门版块排行榜    

查看: 2452  |  回复: 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的回帖

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的回帖
查看全部 4 个回答

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的回帖

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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 有时候,自然基金真的不能太认真 (我的申报经验) +9 majunge000 2026-08-11 11/550 2026-08-15 23:20 by botar
[基金申请] filecode=后面第一个是大写字母 +6 wangze12014 2026-08-14 7/350 2026-08-15 20:12 by gltch
[基金申请] filecode +8 cratir 2026-08-14 12/600 2026-08-15 18:08 by zyfgau
[基金申请] 小木虫上这么多卖论文的,真有人买论文么?感觉没必要啊 +12 Tide man 2026-08-10 13/650 2026-08-15 16:34 by 氺木
[基金申请] 关于Filecode分析方法 +10 majunge000 2026-08-10 13/650 2026-08-15 12:26 by hanpeng972
[基金申请] 各位道友,我要去昆明玩几天,回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[基金申请] 是这周出结果还是下周出结果? +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[基金申请] 应该是93bebmhtak前后十一个字符比较关键 +23 Lanmanbaby 2026-08-09 37/1850 2026-08-14 13:40 by Equinoxhua
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[基金申请] FileCode能看出啥? +10 要乐观耀哥 2026-08-10 32/1600 2026-08-14 09:37 by 要乐观耀哥
[基金申请] 我的国基提前知道中了,可是同事的操作让我实在接受不了,怎么会有这样的人 +10 家与远方 2026-08-10 15/750 2026-08-14 02:08 by 绵羊哥哥
[文学芳草园] 阿姨 +4 汪汪锅 2026-08-09 4/200 2026-08-13 19:43 by arzu_hma
[基金申请] 重要来源:本周末出结果 +10 瞬息宇宙 2026-08-12 10/500 2026-08-13 15:46 by likettle
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] Filecode 又变了,巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 2019年青年基金涵评意见,大家看看几个A,几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分? +11 yufeiwaner 2026-08-09 13/650 2026-08-12 08:17 by yufeiwaner
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 什么时候出结果,有咨询渠道??? +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
信息提示
请填处理意见