Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: Sorting Tab file

by Mr. Muskrat (Canon)
on Apr 25, 2002 at 14:58 UTC ( #161978=note: print w/replies, xml ) Need Help??


in reply to Sorting Tab file

Another option (albeit larger and slower) is to fully embrace the Dark Side:
#!/usr/bin/perl use strict 'vars'; use warnings; use Win32::OLE qw(with); $Win32::OLE::Warn = 3; my $Excel; eval {$Excel = Win32::OLE->GetActiveObject('Excel.Application')}; die "Excel not installed" if $@; unless (defined $Excel) { $Excel = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;}) or + die "Cannot start Excel"; } $Excel->{Visible} = 1; my $Book = $Excel->Workbooks->Add; my $Sheet = $Book->Worksheets(1); my $Filename = "c:/windows/desktop/some.txt"; my $Tab = $Sheet->QueryTables->Add("TEXT;". $Filename, $Sheet->Range(" +A1")); $Tab->{Name} = "Job Status"; with($Tab, FieldNames => 1, RowNumbers => 0, FillAdjacentFormulas => 0, PreserveFormatting => 1, RefreshOnFileOpen => 0, RefreshStyle => 1, # xlInsertDeleteCells SavePassword => 0, SaveData => 1, AdjustColumnWidth => 0, RefreshPeriod => 0, TextFilePromptOnRefresh => 0, TextFilePlatform => 2, # xlWindows TextFileStartRow => 1, TextFileParseType => 1, # xlDelimited TextFileTextQualifier => 1, # xlTextQualifierDoubleQuote TextFileConsecutiveDelimiter => 0, TextFileTabDelimiter => 1, # Tabs! TextFileSemicolonDelimiter => 0, TextFileCommaDelimiter => 0, TextFileSpaceDelimiter => 0, TextFileColumnDataTypes => [1, 9, 9, 9, 1], # Not sure about this li +ne ); $Tab-> Refresh->{BackgroundQuery} = 0; # Do what you normally do in excel here...

Matthew Musgrove
Who says that programmers can't work in the Marketing Department?
Or is that who says that Marketing people can't program?

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://161978]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2022-01-26 17:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (69 votes). Check out past polls.

    Notices?