The first line of the file will be the first row of worksheet 1. From this the last column can be extracted which contains the
file name.
If the user still insists on the files retained as excel files, then Spreadsheet::WriteExcel can write the results back as excel files.
In Windows, Win32::OLE is used to do this kind of work.
HTH,
Alfred,
Kevin Old wrote:
On Tue, 29 Mar 2005 13:30:57 -0800, Wagner, David --- Senior
Programmer Analyst --- WGO <[EMAIL PROTECTED]> wrote:
I have a directory which has output reports in them. The big problem is that they are just a bunch of letters and numbers like 2781424330fdac47c916.xls. So the user would like a more recognizable file name.
This is to run on Solaris w/ Perl 5.8.3. I have tried the following two modules on my PC using ActiveState 5.8.3 under XP: Spreadsheet::ParseExcel ( 15 minutes plus to read 4 files size 4 to 12 meg) and Spreadsheet::ParseExcel::Simple ( 4 minutes for the same files as ParseExcel )
I am running my first test on Solaris using Simple and the first file took 5 minutes to process. Still have 3 to do.
Any suggestions on what to do? The key for naming the file is ( believe it or not ) the last column of the first row on worksheet 1.
Any questions and/or problems, please let me know.
Hey Wags,
I'm kind of confused on what you're asking help for. Are you asking for help on getting the last column of the first row on worksheet 1 for each file you have?
If so, my suggestion is to use File::Find to parse down through your directory and use a regex to identify the files you want, then use Spreadsheet::ParseExcel to read the first worksheet and get the first row.
Use the code on http://search.cpan.org/~kwitknr/Spreadsheet-ParseExcel-0.2603/ParseExcel.pm in the Synopsis section and play around with the for loops to have it break after the first row.
Here's a great column on using File::Find. http://www.stonehenge.com/merlyn/LinuxMag/col45.html
Sorry for the lack of syntax, but if you need some later, let me know!
Hope this helps,
Kevin
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
