批处理如何实现在多个txt文本的相邻两行之间插入多行特定数据内容

nihaoareyou

连续插入多行【着急，跪求大神帮助】
很多TXT文件，特征如下：第一列为深度，第二列为含量
深度           含量
2601.11        5.2
2603.2        29.3
2639.64        29.9
如何能批量按深度0.01米连续插入行，含量值均为-999.25，如下：
深度        含量       
2601.11         5.2       
.........      -999.25
........        -999.25       
2603.2         29.3       
.. .......     -999.25
........        -999.25       
2639.64         29.9
最终插入后的深度数据间隔0.01米，含量数据均为-999.25。

pcl_test

1. set data='2601.11        5.2','2603.2        29.3','2639.64        29.9'
   
2. powershell -c "$a=%data%;0..($a.count-2)|%%{$a[$_];$b=$a[$_] -split '\s+';$c=$a[($_)+1] -split '\s+';$d=1*$b[0];while($d -lt ($c[0]-0.01)){$d+=0.01;'{0:0.00}      -999.25' -f $d}};$a[-1]"
   
3. pause

复制代码

nihaoareyou

这个powershell怎么运行啊？  请原谅我这个小白问这么白痴的问题

523066680

perl，可能功力不够，略长

1. open READ,"<:raw","a.txt";
   
2. open WRT,">:raw","b.txt";
   
3. 
   
4. print WRT scalar(<READ>);
   
5. my @all = <READ>;
   
6. 
   
7. for my $i (0 .. $#all-1)
   
8. {
   
9.     $all[$i] =~/([\d\.]+)\s+/;
   
10.     $dpa = $1;
    
11.     $all[$i+1] =~/([\d\.]+)\s+/;
    
12.     $dpb = $1;
    
13. 
    
14.     printf(WRT $all[$i]);
    
15.     for (my $n = $dpa+0.01; $n < $dpb; $n+=0.01)
    
16.     {
    
17.         printf(WRT "%.2f       -999.25\r\n", $n);
    
18.     }
    
19. }
    
20. printf(WRT $all[$#all]);
    
21. 
    
22. close READ;
    
23. close WRT;

复制代码

CrLf

回复 5# 523066680


    取巧解法嗯哼

1. open READ,"<:raw","a.txt";
   
2. open WRT,">:raw","b.txt";
   
3. 
   
4. print WRT scalar(<READ>);
   
5. my @all = <READ>;
   
6. %map = split(/\s+/g);
   
7. 
   
8. for($all[0]*100 .. $all[-1]*100){
   
9.         $_ /= 100;
   
10.         printf WRT "$_\t%s\r\n", exists $map{$_} ? $map{$_} : -999.25 ;
    
11. }

复制代码