文本处理求助

jason680

回复 1# peawseshc


$ awk 'function p(s){return(sprintf("%3d",s))}/^ *$/{if(s)++t;s=0;next}{s=1;sub("^.+[^0-9]","",$1);if(!k[$1]++)b[++c]=$1;a[$1,+t]=$2}END{for(m=1;m<=c;++m){d=b[m];s=p(a[d,0]);for(n=1;n<=t;++n)s=s" "p(a[d,n]);print d"\t"s}}' FILE
001     19   2   2
002      0   0   0
003      0   0   0
004     10   2   2
005      0   0   0

peawseshc

谢谢各位大神！
楼上各位代码都很棒，就不一一回复了。