24小时热门版块排行榜    

Znn3bq.jpeg
查看: 2394  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 今年审到国自然15份,谈谈感受 +14 国自然国社科中 2026-05-17 14/700 2026-05-18 11:34 by wkrkairan
[硕博家园] 考博自荐 +5 科研狗111 2026-05-13 6/300 2026-05-18 11:22 by 糊糊涂涂好
[基金申请] 青C资助名额大幅增加! +12 西葫芦炒鸡蛋 2026-05-13 16/800 2026-05-18 10:02 by Equinoxhua
[文学芳草园] 半夜喝咖啡 +3 myrtle 2026-05-15 5/250 2026-05-18 01:03 by 小沈2018
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 cjf4bx70cj 2026-05-14 7/350 2026-05-17 18:49 by Equinoxhua
[基金申请] 这年头没有找到涵评专家,还有中面上的可能吗 +13 dd921ww 2026-05-12 16/800 2026-05-17 12:38 by 于轩
[考博] 26/27博士推荐 +3 1木头人13949 2026-05-13 3/150 2026-05-17 09:41 by YuY66
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 v9tggjlwd0 2026-05-15 4/200 2026-05-17 08:06 by 11n4dfd8yn
[考博] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 7hlccowb3h 2026-05-15 4/200 2026-05-17 07:46 by 11n4dfd8yn
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 8/400 2026-05-17 07:26 by 11n4dfd8yn
[公派出国] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:16 by 11n4dfd8yn
[考博] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:11 by 11n4dfd8yn
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 4/200 2026-05-17 00:50 by ue3ir18jc3
[考博] 现在不知道怎么办,感觉很痛苦 +5 qweww 2026-05-11 6/300 2026-05-16 19:57 by Equinoxhua
[基金申请] 请问大佬b0816评完了吗 +4 市民华南虎 2026-05-12 8/400 2026-05-16 19:54 by Equinoxhua
[高分子] 本人最近太闲了,谁有问题可以提,每天会统一回复 +9 一切都是空工 2026-05-12 20/1000 2026-05-16 19:52 by Equinoxhua
[有机交流] 求助2,4-二氯-5-嘧啶甲醛的合成方法 20+3 光吃不拉 2026-05-14 6/300 2026-05-16 19:46 by Equinoxhua
[有机交流] 求有机合成大神指点三硫酸乙烯酯(CAS:2793408-99-6)的合成路线 30+3 Leekmid 2026-05-13 10/500 2026-05-16 16:37 by czyzsu
[有机交流] 如何实现卤原子转化 +3 BT20230424 2026-05-15 5/250 2026-05-16 16:20 by czyzsu
[论文投稿] 求助大佬sci投稿哪个好中 +3 江沅188 2026-05-12 4/200 2026-05-13 14:35 by 江沅188
信息提示
请填处理意见