awk 合并行请教~

wvuu

源文件

1. A           001             10
   
2. A           002             20
   
3. A           003             30
   
4. B           004             40
   
5. B           005             50
   
6. C           006             60
   
7. C           007             70

复制代码

需求实现以下格式

1. A      AA     B     BB   C     CC
   
2. 001    10     004   40   006   60
   
3. 002    20     005   50   007   70
   
4. 003    30
   

复制代码

yinyuemi

回复 1# wvuu

1. $ echo 'A           001             10
   
2. A           002             20
   
3. A           003             30
   
4. B           004             40
   
5. B           005             50
   
6. C           006             60
   
7. C           007             70' |\
   
8. awk '{if($1==v){nr++;a[nr,nf]=$2;a[nr,++nf]=$3;nf--;t=1}else{nr=1;nf+=t;a[nr,++nf]=$1;a[nr,++nf]=$1 $1;nf--;nr++;a[nr,nf]=$2;a[nr,++nf]=$3;nf--};v=$1}END{nr++;nf++;for(i=1;i<=nr;i++){for(j=1;j<=nf;j++)printf a[i,j] "\t";print""}}'
   
9. A       AA      B       BB      C       CC
   
10. 001     10      004     40      006     60
    
11. 002     20      005     50      007     70
    
12. 003     30

复制代码

wvuu

回复 2# yinyuemi
大牛。给力~~多谢

wvuu

1. 001     10      004     40      006     60
   
2. 002     20      005     50      007     70
   
3. 003     30

复制代码

如果最后要得到这样的效果。该怎么裁剪一下呢。有点看不懂上面那个大牛的用法~~

yinyuemi

回复 4# wvuu

1. awk '{if($1==v){nr++;a[nr,nf]=$2;a[nr,++nf]=$3;nf--;t=1}else{nr=1;nf+=t;a[nr,++nf]=$1;a[nr,++nf]=$1 $1;nf--;nr++;a[nr,nf]=$2;a[nr,++nf]=$3;nf--};v=$1}END{nr++;nf++;for(i=2;i<=nr;i++){for(j=1;j<=nf;j++)printf a[i,j] "\t";print""}}'

复制代码

lionfun

回复 2# yinyuemi

如果含有B的行比C的行多不止一行，结果会显示不全
    可以改成这样不？ awk '{if($1 == m){nr++;a[nr,nf]=$2;a[nr,++nf]=$3;nf--;t=1;nr_max=nr>nr_max?nr:nr_max}else{nr=1;nf+=t;a[nr,++nf]=$1;a[nr,++nf]=$1 $1;nr++;nf--;a[nr,nf]=$2;a[nr,++nf]=$3;nf--};m=$1}END{nf++;for(i=1;i<=nr_max;i++){for(j=1;j<=nf;j++){printf a[i,j] "\t"};print ""}}'

yinyuemi

回复  yinyuemi

如果含有B的行比C的行多不止一行，结果会显示不全
    可以改成这样不？ awk '{if( ...
lionfun 发表于 2011-06-05 01:08

    的确是有bug，多谢改进。

springwind426

1. 
   
2. awk '{a[$1]++;a[$1$1]++;b[$1 "_" a[$1]]=$2;b[$1$1 "_"a[$1]]=$3}END{asorti(a,c);k=0;for(i=1;i<=length(c);i++){printf "%s\t",c[i];k=(k<a[c[i]])?a[c[i]]:k;}print "";for(j=1;j<=k;j++){s="";for(i=1;i<=length(c);i++){printf("%s%s\t",s,b[c[i]"_"j])}print "";}}'
   

复制代码

zzy7186

源文件：

1. 
   
2. A           001             10
   
3. A           002             20
   
4. A           003             30
   
5. B           004             40
   
6. B           005             50
   
7. C           006             60
   
8. C           007             70
   
9. D           008             80
   
10. E           009             90
    
11. E           010             100
    

复制代码

awk.file

1. 
   
2. #!/bin/gawk -f
   
3. {
   
4.         c[$1]++;
   
5.         a[$1,c[$1]]=$2;
   
6.         b[$1,$1,c[$1]]=$3;
   
7.         ml=ml>c[$1]?ml:c[$1];
   
8. }
   
9. END{
   
10.         n=asorti(c);
    
11.         for(i=1;i<=n;i++)
    
12.         {
    
13.                 printf "%s\t",c[i];
    
14.                 printf "%s%s\t",c[i],c[i];
    
15.         }
    
16.         printf "\n";
    
17.         for(j=1;j<=ml;j++)
    
18.         {
    
19.                 for(i=1;i<=n;i++)
    
20.                 {
    
21.                         if(a[c[i],j]){
    
22.                                 printf "%s\t",a[c[i],j];
    
23.                         }else{
    
24.                                 printf "\t";
    
25.                         }
    
26.                         if(b[c[i],c[i],j]){
    
27.                                 printf "%s\t",b[c[i],c[i],j];
    
28.                         }else{
    
29.                                 printf "\t";
    
30.                         }
    
31.                 }
    
32. 
    
33.                 printf "\n";
    
34.         }
    
35. }
    

复制代码

1. 
   
2. ./awk.file urlfile
   
3. A       AA      B       BB      C       CC      D       DD      E       EE
   
4. 001     10      004     40      006     60      008     80      009     90
   
5. 002     20      005     50      007     70                      010     100
   
6. 003     30
   

复制代码