向红袖兄及各位文本处理高手请教！！！

黑骏马

总帐码       ：  8420                             合计：39，781.69Cr
98467108371001  
         总帐码       ：  9990                             合计：9，781.69Cr
98467109999013
98467109991013
......................013
......................013
           总帐码       ：  9630                           合计：32，367.69Cr
98467106301014
98467106309014
......................014

有上面一个文本,我想变成下面的格式:
001,8420,合计：39，781.69Cr
013,9990,合计：9，781.69Cr
014,9630,合计：32，367.69Cr
例如:第一列是:每一位总帐码后面有很多的帐号,我只要第一个号码的后3位.
请各位指教,万分感谢!!!!!

biansj

cat xx:

1. 
   
2. #!/usr/bin/awk -f
   
3. BEGIN{
   
4.     flag=0
   
5. }
   
6. {
   
7.     if(flag==1)
   
8.         printf("%s,%s\n",substr($0,length($0)-3,3),data)
   
9.     if(match($0,/Cr/))
   
10.     {
    
11.         match($0,/[0-9]+/)
    
12.         key1=substr($0,RSTART,RLENGTH)
    
13.         match($0,/合计.*/)
    
14.         key2=substr($0,RSTART,RLENGTH)
    
15.         data=sprintf("%s,%s",key1,key2)
    
16.         flag=1
    
17.     }
    
18.     else
    
19.         flag=0
    
20. }
    

复制代码

./xx datafile

bzzyg

awk '/^总帐码/ { aa=$3;bb=`echo $4$5$6`;getline;
                           cc=`echo $0 | cut -c 11-`
                           print $cc","$aa","$bb
                        }'  filename
试试