我想提取第2，3，4，10，11，12列 Fortran程序怎么编

雪狼1

00000 015.0 0589.9 029 -02.50 0122.00 000.057 00.000 00.000 270 003 04508
00001 /////  //////     /// 001.64 0119.41 000.108 00.000 00.000 270 003 04513
00002 /////  //////     /// 004.88 0114.09 000.028 00.000 00.000 269 003 04518
00003 014.5 0588.0 026 009.45 0108.41 000.032 00.000 00.000 269 003 04522
00004 /////  //////    /// 012.66 0104.86 000.020 00.000 00.000 268 003 04527
00005 ///// //////     /// 014.23 0103.18 000.024 00.000 00.000 268 004 04532
00006 013.8 0587.3 027 015.86 0102.16 000.032 00.000 00.000 267 004 04537
00007 ///// //////     /// 017.34 0101.63 000.052 00.000 00.000 267 004 04542
00008 ///// //////     /// 018.54 0100.86 000.060 00.001 00.000 266 004 04547
00009 ///// //////    /// 019.13 0099.89 000.068 00.001 00.000 266 004 04551
00010 ///// //////     /// 020.41 0099.21 000.088 00.001 00.000 265 004 04556
00011 ///// //////     /// 021.81 0099.29 000.072 00.001 00.000 265 004 04561
00012 013.2 0585.0 027 022.93 0099.65 000.088 00.001 00.000 264 004 04566
00013 ///// //////     /// 024.19 0100.08 000.084 00.001 00.000 264 004 04571
00014 ///// //////     /// 026.64 0100.71 000.088 00.001 00.000 263 004 04576
00015 012.9 0583.8 028 029.01 0100.54 000.088 00.001 00.000 263 005 04580
00016 012.8 0583.3 028 030.61 0099.27 000.080 00.001 00.000 262 005 04585
00017 ///// //////     /// 031.49 0096.58 000.108 00.001 00.000 262 005 04590
00018 ///// //////    /// 031.91 0092.67 000.112 00.001 00.000 261 005 04595
00019 ///// //////    /// 031.92 0089.41 000.100 00.001 00.000 261 005 04600
00020 012.7 0581.8 029 031.70 0087.21 000.112 00.001 00.000 260 005 04604
00021 ///// //////     /// 031.42 0086.29 000.112 00.001 00.000 260 005 04609
00022 ///// //////    /// 030.53 0086.27 000.156 00.001 00.000 259 005 04614
00023 ///// //////    /// 030.13 0086.03 000.152 00.002 00.000 259 005 04619
00024 ///// //////   /// 029.99 0085.43 000.160 00.002 00.000 258 005 04624
00025 012.1 0580.4 029 030.17 0084.23 000.180 00.002 00.000 258 006 04629
00026 012.0 0580.0 029 030.60 0082.54 000.180 00.002 00.000 257 006 04633
00027 011.9 0579.4 029 031.15 0080.74 000.184 00.002 00.000 257 006 04638
00028 ///// //////     /// 031.81 0080.08 000.180 00.002 00.000 256 006 04643
00029 011.8 0578.9 030 032.28 0080.64 000.160 00.002 00.000 256 006 04648
00030 ///// //////   /// 032.09 0081.71 000.200 00.002 00.000 255 006 04653
00031 ///// //////    /// 031.55 0083.17 000.248 00.002 00.000 249 005 04658
00032 ///// //////    /// 031.46 0084.66 000.256 00.002 00.000 259 006 04662
00033 011.7 0577.6 030 032.06 0085.76 000.272 00.002 00.000 259 006 04667
00034 011.6 0577.1 030 032.71 0086.11 000.236 00.002 00.000 259 006 04672
00035 ///// //////    /// 033.27 0085.45 000.272 00.002 00.000 260 006 04677
00036 ///// //////    /// 033.71 0084.04 000.260 00.002 00.000 259 006 04682
00037 011.5 0576.3 030 034.20 0082.22 000.296 00.002 00.000 259 006 04686
00038 ///// //////    /// 034.32 0080.74 000.280 00.003 00.000 258 006 04691
00039 ///// ////// /// 034.45 0079.80 000.300 00.003 00.000 258 006 04696
00040 011.4 0575.1 030 034.47 0079.77 000.328 00.003 00.000 258 006 04701
00041 ///// //////    /// 034.39 0080.46 000.344 00.003 00.000 257 006 04706
00042 011.3 0574.4 031 034.35 0081.86 000.308 00.003 00.000 257 006 04711
00043 ///// ////// /// 034.64 0082.93 000.336 00.003 00.000 257 006 04715
00044 011.2 0573.8 031 034.97 0083.67 000.360 00.003 00.000 257 006 04720

小傅之追梦

方法1，将///// 统一替换成一个缺测值后，用fortran正常读取
方法2，不替换，每一行直接作为一个字符串读取进去，然后将对应列输出即可

hzwjy

1. gawk -F " " '{print $2, $3, $4, $10, $11, $12}' IN.txt

复制代码

假设你的数据存放在IN.txt文件中，输出结果：

1. 015.0 0589.9 029 270 003 04508
   
2. ///// ////// /// 270 003 04513
   
3. ///// ////// /// 269 003 04518
   
4. 014.5 0588.0 026 269 003 04522
   
5. ///// ////// /// 268 003 04527
   
6. ///// ////// /// 268 004 04532
   
7. 013.8 0587.3 027 267 004 04537
   
8. ///// ////// /// 267 004 04542
   
9. ///// ////// /// 266 004 04547
   
10. ///// ////// /// 266 004 04551
    
11. ///// ////// /// 265 004 04556
    
12. ///// ////// /// 265 004 04561
    
13. 013.2 0585.0 027 264 004 04566
    
14. ///// ////// /// 264 004 04571
    
15. ///// ////// /// 263 004 04576
    
16. 012.9 0583.8 028 263 005 04580
    
17. 012.8 0583.3 028 262 005 04585
    

复制代码

这种文本操作有比FORTRAN快得多的命令行工具。

雪狼1

hzwjy 发表于 2018-3-28 10:24
假设你的数据存放在IN.txt文件中，输出结果：

是什么工具？
分享

雪狼1

小傅之追梦 发表于 2018-3-28 10:20
方法1，将///// 统一替换成一个缺测值后，用fortran正常读取
方法2，不替换，每一行直接作为一个字符串读 ...

谢谢你
谢谢

2936853466

雪狼1 发表于 2018-3-28 11:35
是什么工具？
分享

他说的应该是linux下的命令

hzwjy

雪狼1 发表于 2018-3-28 11:35
是什么工具？
分享

gawk，这命令在Linux下是标配；Win下可以另外下载到，使用方法可能有些差别。

那一片云

有时候gawk这个命令还需要安装

相识的风雨

这个是啥都没看懂