scratchpad
davies
<c>use strict;
use warnings;
use Win32::OLE;
use SVG;
my $xl = Win32::OLE->new('Excel.Application');
$xl->{ReferenceStyle} = 1; #xlA1
$xl->{Visible} = 1;
my $sFileName = 'z:\data\perl\ladyaleena\darkenwood.xls';
my $wb = $xl->Workbooks->Open($sFileName) or die "Can't open file <$sFileName>: " . $!;
my $sht = $wb->Sheets('House and Tower');
#my $sht = $wb->Sheets('Cave 1');
my $nMaxRow = $sht->UsedRange->Rows ->Count;
my $nMaxCol = $sht->UsedRange->Columns->Count;
my @nColWidths;
my @nRowHeights;
my @nColCumWidths;
my @nRowCumHeights;
$nColCumWidths [0] = 0;
$nRowCumHeights[0] = 0;
for my $nRow(1..$nMaxRow) {
$nRowHeights [$nRow] = $sht->Cells($nRow, 1)->Height * 2;
$nRowCumHeights[$nRow] = $nRowCumHeights[$nRow - 1] + $nRowHeights[$nRow];
}
for my $nCol(1..$nMaxCol) {
$nColWidths [$nCol] = $sht->Cells(1, $nCol)->Width * 4;
$nColCumWidths[$nCol] = $nColCumWidths[$nCol - 1] + $nColWidths[$nCol];
}
my $svg = SVG->new(width=>$nColCumWidths[$nMaxCol], height=>$nRowCumHeights[$nMaxRow]);
for my $nRow(1..$nMaxRow) {
for my $nCol(1..$nMaxCol) {
my $cell = $sht->Cells($nRow, $nCol);
my $dudColour = sprintf("%06x", $cell->Interior->PatternColor);
my $goodColour = '#' . substr($dudColour, -2) . substr($dudColour, 2, 2) . substr($dudColour, 0, 2);
my $tagRect = $svg->rectangle(
x=>$nColCumWidths[$nCol - 1], y=>$nRowCumHeights[$nRow - 1],
width=>$nColWidths[$nCol], height=>$nRowHeights[$nRow],
fill=> $goodColour,
id=>'R' . $nRow . 'C' . $nCol
);
my $tagText = $svg->text(
id=>'TxtR' . $nRow . 'C' . $nCol,
x=>$nColCumWidths[$nCol - 1], y=>$nRowCumHeights[$nRow]
)->cdata('R' . $nRow . 'C' . $nCol);
}
}
open my $fh, ">", 'z:\data\perl\ladyaleena\Cave1.svg' or die $!;
print $fh $svg->xmlify();
close $fh;
$xl->Quit;</c>