從TXT提取特定列數(shù)據(jù)存到Excel中

情節(jié)可以很簡單

哪位大神能提供下 下面兩種模塊的安裝包啊，或給個指引，沒用過這個模塊。
我用Windows系統(tǒng)處理數(shù)據(jù)，可是開頭就給我難住了，這些指令無法執(zhí)行。
我搜了好多網(wǎng)址啥的都不行��！
use Win32::OLE
use Spreadsheet::WriteExcel
另外我在activeperl安裝路徑中發(fā)現(xiàn)了OLE.pm及一些文件夾，那怎么不能用呢。

q1208c

activeperl 有自己的模塊管理。好象說 activepm什么的。

情節(jié)可以很簡單

處理學習實踐階段，求指導！謝謝�。�！
我把要處理的文本放這吧，不用輸入到Excel了。

輸入文本A為：下面是輸入文本的一部分（省略號下面還有一些無用的英文說明），
其他部分的格式也是這樣，但行數(shù)量有異。
=========================================================
    Device#: 19-24

die position: (-7,1)     site 2
die position: (-6,1)     site 3
die position: (-5,1)     site 4
die position: (-4,1)     site 5
die position: (-3,1)     site 6
die position: (-2,1)     site 7

Number  Site   Result   Test Name   Channel       Low              Measured              High           
0            4      PASS     Con               56      -1.0000 V      -395.4362 mV   -100.0000 mV      
0            5      PASS     ib_trim1         58      -1.0000 V      -555.5970 mV   -100.0000 mV            
1            4      FAIL      Con               40      -1.0000 V      -405.8470 mV   -100.0000 mV      
1            2      PASS     ib_trim0         42      -1.0000 V      -556.9597 mV   -100.0000 mV               
2            4      FAIL      ib_trim0         57      -1.0000 V      -398.5833 mV   -100.0000 mV         
2            5      PASS     Con               59      -1.0000 V      -553.6025 mV   -100.0000 mV         
.................................................................

輸出文本B為：“PASS”的 ib_trim 對應(yīng)的site坐標及 Measured 值。

Device#: 19-24
(-4,1)        ib_trim1     -555.5970 mV
(-7,1)        ib_trim0     -556.9597 mV
#-----------------------------------------以下我的程序只實現(xiàn)了相關(guān)列提取：但是坐標不會匹配。
Device#: 19-24
  5        ib_trim1     -555.5970 mV
  2        ib_trim0     -556.9597 mV

523066680

回復 3# 情節(jié)可以很簡單

粗略地寫一個

1. use Modern::Perl;
   
2. STDOUT->autoflush(1);
   
3. 
   
4. my $file = "src.txt";
   
5. open my $fh, "<", $file or die "$!";
   
6. my $line;
   
7. my %site;
   
8. 
   
9. while ( $line = <$fh> )
   
10. {
    
11.     if ( $line=~/^die position: (.*)\s+site (\d+)/i )
    
12.     {
    
13.         $site{ $2 } = $1;
    
14.     }
    
15. 
    
16.     if ( $line=~/\d+\s+(\d+)\s+PASS\s+(ib_trim\d+).*?(-?\d+\.\d+ mV)/i )
    
17.     {
    
18.         printf "%s\t%s\t%s\n", $site{$1}, $2, $3;
    
19.     }
    
20. }
    
21. close $fh;

復制代碼

523066680

或者先把數(shù)據(jù)存到哈希表中，可以按標題查詢

1. use Modern::Perl;
   
2. STDOUT->autoflush(1);
   
3. 
   
4. my $file = "src.txt";
   
5. open my $fh, "<", $file or die "$!";
   
6. my $line;
   
7. my %site;
   
8. my @title;
   
9. my @table;
   
10. my $ti;
    
11. 
    
12. while ( $line = <$fh> )
    
13. {
    
14.     if ( $line=~/^die position: (.*)\s+site (\d+)/i )
    
15.     {
    
16.         $site{ $2 } = $1;
    
17.     }
    
18.     elsif ( $line=~/^Number/ )
    
19.     {
    
20.         @title = split /\s{2,}/, $line;
    
21.     }
    
22.     elsif ( $line=~/^\d+\s+/ )
    
23.     {
    
24.         $ti = 0;
    
25.         push @table, { map { $title[$ti++] => $_ } split /\s{2,}/, $line };
    
26.     }
    
27. }
    
28. close $fh;
    
29. 
    
30. for my $d ( @table )
    
31. {
    
32.     if ( $d->{'Result'} =~/PASS/i and $d->{'Test Name'}=~/ib_trim/i )
    
33.     {
    
34.         printf "%s\t%s\t%s\n", $site{$d->{'Site'}}, $d->{'Test Name'}, $d->{'Measured'};
    
35.     }
    
36. }

復制代碼

情節(jié)可以很簡單

回復 5# 523066680

謝謝回復！我有點不知道該怎么描述：
1.首先我用的是Windows系統(tǒng)，modern::perl 我從CPAN下載了包在perl路徑下解壓了。
但運行程序時依然提示錯誤（就把他#注釋掉了），所以我開頭變?yōu)椋?br /> #!C:\perl64\bin
use strict;  
use warnings;
use 5.016;
use autodie;

這樣您提供的兩個腳本輸出結(jié)果是正確的�。ㄎ矣萌龢琴N出來的部分文本示例）...

2.當我用 我的源文件為輸入時，提示錯誤（這是我之前表述簡略造成的，抱歉）：
第一個腳本這句“if ( $line=~/\d+\s+(\d+)\s+PASS\s+(ib_trim\d+).*?(-?\d+\.\d+ mV)/i )”中我的源數(shù)據(jù)后面單位“mV”不是固定的

第二個腳本“if ( $d->{'Result'} =~/PASS/i and $d->{'Test Name'}=~/ib_trim/i )”
錯誤提示“Use of unintialized value in pattern match <m/ /> at a.pl line 41”

這個原因我在想可能是因為我的源文件 標題和下面對應(yīng)數(shù)據(jù) 不是對齊的，這個該怎么辦，我之前提取的時候是按列（電流單位也占一列）：“print C (split)[1],"\t",(split)[3],"\t",(split)[8]," ",(split)[9],"\n";”

下面是源文件局部：是兩個部分數(shù)據(jù)的交界處（每一部分都是以“Device#:  x~y ” 開始，且每一部分的坐標“die position:”也是不同的）。
...       .     ....        .......                      .........         ............          ............            ............     
8       1    FAIL     ib_trim3                  test  -1      -1.2800 uA     -2.1310 uA     -960.0000 nA      
8       2    FAIL     ib_trim3                  test  -1      -1.2800 uA     -544.6071 pA   -960.0000 nA        
8       3    FAIL     ib_trim3                  test  -1      -1.2800 uA     762.9061 pA    -960.0000 nA        
8       4    FAIL     ib_trim3                  test  -1      -1.2800 uA     -23.0533 nA    -960.0000 nA      

Site Failed tests/Executed tests
------------------------------------
    0       5       9
    1       5       9
    2       5       9
    3       5       9
    4       5       9

Site    Sort     Bin
------------------------------------
    0      40       4
    1      40       4
    2      40       4
    3      40       4
    4      40       4
=========================================================================
    Device#: 6-10

die position: (7,1)     site 0
die position: (8,1)     site 1
die position: (9,1)     site 2
die position: (10,1)     site 3
die position: (11,1)     site 4

Number  Site Result   Test Name       Pin   Channel Low            Measured       High              
0       0    PASS     Con                       test  75      -1.0000 V      -546.8680 mV   -100.0000 mV         
0       1    PASS     Con                       test  74      -1.0000 V      -559.3652 mV   -100.0000 mV         
0       2    PASS     Con                       test  73      -1.0000 V      -556.2122 mV   -100.0000 mV         
0       3    PASS     Con                       test  72      -1.0000 V      -560.9373 mV   -100.0000 mV     
0       4    PASS     Con                       test  15      -1.0000 V      -545.2946 mV   -100.0000 mV         
1       0    FAIL      ib_trim1                  test  -1      -1.2800 uA     -1.1330 nA       -960.0000 nA      
1       1    FAIL      ib_trim1                  test  -1      -1.2800 uA     -2.5713 nA       -960.0000 nA   
1       2    FAIL      ib_trim1                  test  -1      -1.2800 uA     -915.8693 nA   -960.0000 nA        
1       3    PASS     ib_trim1                  test  -1      -1.2800 uA     -1.1828 uA      -960.0000 nA         
1       4    FAIL      ib_trim1                  test  -1      -1.2800 uA     3.0930 nA        -960.0000 nA         
2       0    PASS     ib_trim0                  test  -1      -1.2800 uA     -1.0120 uA      -960.0000 nA      
...       ..    ......       .........                    .........          ............        ..............       ................     

523066680

回復 6# 情節(jié)可以很簡單

哦，后面的多了一個Pin列。能不能發(fā)一個更完整的源文件（壓縮）上來，或者上傳網(wǎng)盤。

第二個代碼找出問題了
Number,Site Result,Test Name,Pin,Channel Low,Measured,High

Site Result 是兩個列的抬頭，Test Name 是單個列的抬頭，中間都是一個空格。

前三列的數(shù)據(jù)內(nèi)容是等寬的，1樓給出的示例是這樣的 （Site 和 Result 之間有多個空格，可以作為區(qū)分）：

1. Number  Site   Result  
   
2. 0            4      PASS   
   
3. 0            5      PASS  
   
4. 1            4      FAIL   
   

復制代碼

后面補充的示例是這樣的（Site 和 Result 之間只有1個空格）？

1. Number  Site Result  
   
2. 0       0    PASS
   
3. 0       1    PASS
   
4. 0       2    PASS  
   

復制代碼

https://gist.coding.net/u/ViANG/b6a859d73042403494be6fd74836e6a3

523066680

use strict; use warnings; STDOUT->autoflush(1); my $file = "src_more.txt"; open my $fh, "<", $file or die "$!"; my $line; my %site; my @title; my @table; my $ti; while ( $line = <$fh> ) {     if ( $line=~/Device#.*/ )     {         dump_table(\@table) if @table;         print $&, "\n";         @title = ();         @table = ();         %site  = ();     }     elsif ( $line=~/^die position: (.*)\s+site (\d+)/i )     {         $site{ $2 } = $1;     }         elsif ( $line=~/^Number/ )       {         @title = map { $_ !~/Test Name/i ? split " ", $_ : $_ } split /\s{2,}/, $line;         # 只有 Test Name 是包含空格的 title     }     elsif ( $line=~/^\d+\s+/ )     {         $ti = 0;         push @table, { map { $title[$ti++] => $_ } split /\s{2,}/, $line };     } } close $fh; dump_table(\@table) if @table; sub dump_table {     my $table = shift;     for my $d ( @$table )     {         if (  $d->{'Result'}   =~/PASS/i                 and               $d->{'Test Name'}=~/ib_trim/i )         {             printf "%s\t%s\t%s\n",                 $site{ $d->{'Site'} },                 $d->{'Test Name'},                 $d->{'Measured'}                 ;         }     } }

Device#: 19-24 (-4,1)      ib_trim1    -555.5970 mV (-7,1)      ib_trim0    -556.9597 mV Device#: 6-10 (10,1)      ib_trim1    -1.1828 uA (7,1)       ib_trim0    -1.0120 uA

[Finished in 0.4s]

iamlimeng

ActivePerl用PPM安裝模塊，在運行框輸入PPM回車即可。

給一段excel文件生成代碼，供你參考：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Spreadsheet::WriteExcel;
   
6. 
   
7. my $file = "Excel_Example.xls";
   
8. my $workbook = Spreadsheet::WriteExcel->new($file);
   
9. $workbook->set_properties(
   
10.         title    => 'Excel_Example',
    
11.         author   => 'Limeng',
    
12.          company  => 'BlueIdea Software Lab.',
    
13. );
    
14. my $worksheet = $workbook->add_worksheet('Limeng');
    
15. 
    
16. # Create a format for the column headings
    
17. my $header = $workbook->add_format(
    
18.         font => 'Arial',
    
19.         bold => 1,
    
20.         size => 12,
    
21.         color => 'blue',
    
22.         align => 'center',
    
23.         valign => 'vcenter',
    
24. );
    
25. my $red = $workbook->add_format(
    
26.         size => 11,
    
27.         align => 'right',
    
28.         valign => 'vcenter',
    
29.         bg_color => 'red',
    
30.          num_format => 0x04,
    
31. );
    
32. my $pink = $workbook->add_format(
    
33.         size => 11,
    
34.         align => 'right',
    
35.         valign => 'vcenter',
    
36.         bg_color => 33,
    
37.          num_format => 0x04,
    
38. );
    
39. 
    
40. # Set the column width for columns 1, 2, 3 and 4
    
41. $worksheet->set_column(0, 3, 10);
    
42. 
    
43. # Write datas
    
44. $worksheet->write('A1','Test1',$header);
    
45. $worksheet->write('B1','Test2',$header);
    
46. $worksheet->write('C1','Test3',$header);
    
47. $worksheet->write('A2','2000',$red);
    
48. $worksheet->write('B2','-50000',$pink);
    
49. $worksheet->write('C2','=A2+B2',$red);
    
50. $workbook->close();
    
51. 
    
52. print "Excel file write OK!";
    
53. <>;
    

復制代碼

iamlimeng

發(fā)重復了！