如何读取多个文件和如何操作EXCEL

qaszxc

各位大虾，
    小弟有几个问题请教。

    1。我有多个文本文件需要顺次打开，只知道路径，不可预知文件名，该如何做？

    2。需要从文本文件中读入一些数据，需要匹配一些关键字，如何匹配与读取？
       比如文本是：
             .....
             hello  2345
          需要匹配的是hello，需要读取的是2345

      3。我还需要把这些数据写入EXCEL表格，可我找不到相应的资料。

    各位大虾多多指教。

Aaron.Gao

别人只能帮助你解决问题
而不是帮助你完成工作

下面有个例子 希望对你有帮助

1. 
   
2. #!/usr/bin/env perl
   
3. #
   
4. # Copyright (c) 2004 Alexander Anderson. All rights reserved.
   
5. # This program is free software; you can redistribute it and/or
   
6. # modify it under the same terms as Perl itself.
   
7. #
   
8. # $Id: xls2csv.pl,v 1.7 2005/01/07 15:46:49 anderal Exp anderal $
   
9. 
   
10. use Getopt::Std;
    
11. use Spreadsheet::ParseExcel::Simple;
    
12. use Fatal qw(open);
    
13. 
    
14. use strict;
    
15. 
    
16. our($opt_s, $opt_v);
    
17. getopts('vs:');
    
18. 
    
19. my %indexes = map { $_ => 1 } split(/,/, $opt_s);
    
20. 
    
21. # Doing it one Excel file at a time because Spreadsheet::ParseExcel seems to
    
22. # have a memory leak when dealing with lots (>12) large (>1Mb) Excel files.
    
23. # (or maybe memory leak used to be in the script?)
    
24. 
    
25. my $filename = shift or die "Usage: xls2csv.pl [-s n,...] [-v] file.xls\n";
    
26. 
    
27. $filename =~ /(.*)\.xls$/i or die "Invalid filename: $filename";
    
28. my $prefix = $1;
    
29. 
    
30. print "Reading '$filename'...\n" if $opt_v;
    
31. my $xls = Spreadsheet::ParseExcel::Simple->read($filename)
    
32.     or die "Can't read $filename: $!";
    
33. 
    
34. my $index = 1;
    
35. foreach my $sheet ($xls->sheets) {
    
36.     next if $opt_s && !$indexes{$index};
    
37. 
    
38.     print "Writing '$prefix-Sheet$index.csv'...\n" if $opt_v;
    
39.     open(CSV, ">$prefix-Sheet$index.csv");
    
40.     while ($sheet->has_data) {
    
41.         my @row = $sheet->next_row;
    
42.         foreach (@row) {
    
43.             if (/[,"]/) {
    
44.                 s/"/""/g;
    
45.                 s/^/"/;
    
46.                 s/$/"/;
    
47.             }
    
48.         }
    
49.         print CSV join(',', @row), "\n";
    
50.     }
    
51.     close CSV;
    
52. } continue {
    
53.     $index++;
    
54. }
    
55. 
    
56. __END__
    
57. 
    
58. =head1 NAME
    
59. 
    
60. xls2csv.pl - save MS Excel worksheets as CSV files
    
61. 
    
62. =head1 SYNOPSIS
    
63. 
    
64. B<xls2csv.pl> [B<-s> n,...] [B<-v>] F<spreadsheet.xls>
    
65. 
    
66. =head1 DESCRIPTION
    
67. 
    
68. This script saves worksheets from an MS Excel file as CSV files. It does not
    
69. depend on Excel because it uses L<Spreadsheet::ParseExcel::Simple> module. The
    
70. values in each output CSV file are the underlying data values from each cell in
    
71. the Excel file. Thus, cell formatting from the Excel file is not preserved.
    
72. 
    
73. The CSV files are saved into the same directory as F<spreadsheet.xls> under the
    
74. names F<spreadsheet-SheetI<n>.csv>, where I<n> is the index of each worksheet.
    
75. 
    
76. =head1 OPTIONS
    
77. 
    
78. =over 7
    
79. 
    
80. =item B<-s>
    
81. 
    
82. Saves only the worksheets at the specified indexes. More than one index can be
    
83. specified with a comma-separated list. The first worksheet has index 1.
    
84. 
    
85. =item B<-v>
    
86. 
    
87. Be verbose. Some messages indicating the progress will be printed to stdout.
    
88. 
    
89. =back
    
90. 
    
91. =head1 AUTHOR
    
92. 
    
93. Alexander Anderson E<lt>a.anderson@utoronto.caE<gt>
    
94. 
    
95. =head1 README
    
96. 
    
97. Save MS Excel worksheets as CSV files.
    
98. 
    
99. =head1 PREREQUISITES
    
100. 
     
101. Spreadsheet::ParseExcel::Simple
     
102. 
     
103. =head1 SCRIPT CATEGORIES
     
104. 
     
105. Win32
     
106. Win32/Utilities
     
107. 
     
108. =cut
     
109. 
     
110. 
     

复制代码

[ 本帖最后由 Aaron.Gao 于 2006-2-13 10:48 编辑 ]

Aaron.Gao

[ 本帖最后由 Aaron.Gao 于 2006-2-13 10:49 编辑 ]

qaszxc

多谢大虾指教。
真得很不好意思提出这些问题。我是个新手，刚刚开始学习使用perl就被分派了这样一个任务，感觉无处下手。

再次感谢。

能不能给些学习的资料链接？我找到的都是讲编程格式的，真的是惭愧得很。