24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 2349  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085410 一志愿211 22408分数359求调剂 +3 123456789qw 2026-03-31 4/200 2026-04-02 00:06 by 义文wang
[考研] 266分,一志愿电气工程,本科材料,求材料专业调剂 +10 哇呼哼呼哼 2026-04-01 11/550 2026-04-01 21:48 by chyhaha
[考研] 070300化学279求调剂 +15 哈哈哈^_^ 2026-03-31 17/850 2026-04-01 21:37 by 给你你注意休息
[考研] 重庆大学材料与化工085600,初试370+,求求调剂建议 +3 shzhou_ 2026-04-01 3/150 2026-04-01 20:41 by 无懈可击111
[考研] 一志愿西安交大材料学硕(英一数二)347,求调剂到高分子/材料相关专业 +7 zju51 2026-03-31 9/450 2026-04-01 19:35 by CFQZAFU
[考研] 314求调剂 +4 溪云珂 2026-03-26 4/200 2026-04-01 17:00 by oooqiao
[考研] 找调剂 +5 楚乔乔 2026-04-01 5/250 2026-04-01 16:12 by w虫虫123
[考研] 0703化学/290求调剂/本科经历丰富/工科也可 +14 丹青奶盖 2026-03-26 16/800 2026-04-01 15:58 by oooqiao
[考研] 086000生物与医药 初试274求调剂 +5 小叮当来了 2026-03-30 6/300 2026-04-01 14:25 by mxj1203
[考研] 352分-085602-一志愿985 +6 海纳百川Ly 2026-03-29 6/300 2026-03-31 21:06 by yuq
[考研] 322求调剂:一志愿湖南大学 材料与化工(085600),已过六级。 +10 XX小邓 2026-03-29 10/500 2026-03-31 16:46 by 不吃魚的貓
[考研] 调剂求院校招收 +7 鹤鲸鸽 2026-03-28 7/350 2026-03-31 11:21 by oooqiao
[考研] 调剂 +4 GK72 2026-03-30 4/200 2026-03-30 20:32 by dick_runner
[考研] 抱歉 +3 田洪有 2026-03-30 3/150 2026-03-30 19:11 by 迷糊CCPs
[考研] 340求调剂 +6 Amber00 2026-03-26 6/300 2026-03-29 12:06 by 无际的草原
[考研] 数一英一271专硕(085401)求调剂,可跨 +7 前行必有光 2026-03-28 8/400 2026-03-28 23:22 by 小木虫tim
[考研] 材料与化工(0856)304求B区调剂 +8 邱gl 2026-03-27 8/400 2026-03-28 12:42 by 唐沐儿
[考研] 275求调剂 +10 jjjjjjjjjjl 2026-03-27 10/500 2026-03-27 23:47 by barnett0632
[考研] 070300化学求调剂 +4 起个名咋这么难 2026-03-27 4/200 2026-03-27 21:39 by 83503孙老师
[考研] 321求调剂 +6 wasdssaa 2026-03-26 6/300 2026-03-26 20:57 by sanrepian
信息提示
请填处理意见