文本格式转换 excel 格式

mswsg

文件的分隔符 \t 格式如下

1. address1        root        10        leaf        9        spike        10        seed        20        callus        23        cell_culture        2        mixed        24        Null        11
   
2. address2        seed        20        spike        10                                                                                               
   
3. address3        callus        5        root        10        seed        6        spike        6                                                               
   
4. address4        spike        6                                                                                                               

复制代码

结果

1.         root        leaf        spike        seed        callus        cell_culture        mixed        Null
   
2. address1        10        9        10        20        23        2        24        11
   
3. address2        0        0        10        20        0        0        0        0
   
4. address3        10        0        6        6        5        0        0        0
   
5. address4        0        0        6        0        0        0        0        0

复制代码

或者类似的结果也可以。
说明：结果中第一行就是域名，总共就8列 "root        leaf        spike        seed        callus        cell_culture        mixed        Null"
    address2 中没有root 就是出现0次
这个不知道大家理解吗？

ly5066113

回复 1# mswsg


try:

1. awk 'BEGIN{for(i=1;i<=split("root leaf spike seed callus cell_culture mixed Null",a,/ /);i++)printf "\t"a[i];print ""}{delete b;printf $1;for(i=2;i<NF;i+=2)b[$i]=$(i+1);for(i=1;i<=8;i++)printf "\t"b[a[i]]+0;print ""}' file

复制代码

yinyuemi

回复 1# mswsg

1. gawk4.0+
   
2. awk '{for(i=2;i<=NF;i+=2){a[$1][$i]=$(i+1);b[$i]}}END{for( i in b)printf "\t" i;print "";for(i in a){printf i; for(j in b)printf "\t"(a[i][j]?a[i][j]:0);print ""}}'
   

复制代码

mswsg

谢谢了回复 2# ly5066113


   

mswsg

十分感谢，4.0没装回复 3# yinyuemi


   

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while (<DATA>){
   
6.     my ($sAddrs, @aList) = split;
   
7.     my %hPairs = @aList;
   
8.     foreach (qw /root leaf spike seed callus cell_culture mixed Null/){
   
9.         $hPairs{$_}?($sAddrs.="\t$hPairs{$_}"):($sAddrs.="\t0");
   
10.     }
    
11.     print "$sAddrs\n";
    
12. }
    
13. 
    
14. __DATA__
    
15. address1    root    10  leaf    9   spike   10  seed    20  callus  23  cell_culture    2   mixed   24  Null    11
    
16. address2    seed    20  spike   10
    
17. address3    callus  5   root    10  seed    6   spike   6
    
18. address4    spike   6
    

复制代码

mswsg

这么老的帖子了回复 6# sunzhiguolu


   

sunzhiguolu

回复 7# mswsg
随便翻翻, 才发现是是你啊. 赶快发分.