All the Perl that's Practical to Extract and Report
use Perl Log In
Beatnik (493)
(email not shown publicly)
http://www.ldl48.org/
A 28 year old belgian who likes Mountain Dew, Girl Scout Cookies, Tim Hortons French Vanilla Flavoured Cappucinno, Belgian beer, Belgian chocolate, Belgian women, Magners Cider, chocolate chipped cookies and Perl. Likes snowboarding, snorkling, sailing and silence. Bach can really cheer him up! He still misses his dog.
Project Daddy of Spine [sf.net], a mod_perl based CMS.
In his superhero time (8.30 AM to 5.30 PM), he works on world peace.
Fscking sweet software: HP WebInspect
Contributing to the american economy
- iLife '08 ($78)
- Pink 8 gig iPod ($199.99)
- Wireless Apple keyboard ($79.99)
- Some CDs ($30)
- Some DVDs ($20.99)
- Perfume for the girlfriend ($56,59)
- Some clothes ($100)
Total amount of euros poured into the American economy: €365. Considering most of these things are either more expense in Belgium or even impossible to find anyway, all in all a very good deal!
I also picked up some cigarettes for my sister-in-law, at bargain prices (REALLY).
It's quite strange to walk around an area that just breathes "Welcome to America" and only minutes after that get confronted with the evergrowing public waste problem in Naples..
jQuery tricks: hiding body elements
<style type="text/css">
body {
/* Some other stuff here */
background-image: url(http://localhost/images/bg.jpg);
background-repeat: repeat-x;
}
</style>
<body>
<!-- Some other stuff here -->
</body>
The background was the element I wanted to hide. I ended up with something like this:
<style type="text/css">
body {
/* Some other stuff here */
background-image: url(http://localhost/images/bg.jpg);
background-repeat: repeat-x;
}
</style>
<script type="text/javascript" language="javascript" src="jquery.js"></script>
<body>
<!-- Some other stuff here -->
<a id="mini" href="#" OnClick="
if ( $('#mini').text() == '[-]' ) { $('#mini').text('[+]') } else { $('#mini').text('[-]'); }
if ($('body').css('background-image') == 'url(http://localhost/images/bg.jpg)')
{ $('body').css('background-image','url()'); } else
{ $('body').css('background-image','url(http://localhost/images/bg.jpg)'); }
return false;">[-]</a>
<!-- and here -->
</body>
This adds a small [-] link that, when clicked, clears the background and changes to a [+]. Clicking again switches back.
Italy, here I come
Lease signed
Being able to read is not a requirement for this job
Tips for job searching
The curse of Facebook
VBA: Generating Word files from Excel data
Public Sub GenDoc()
Dim WordDocument As Word.Document
Dim TableTemplate As Word.Document
Dim DocumentTemplate As Word.Document
Dim WordApplication As Word.Application
Dim DocumentRange As Word.Range
Dim ExcelWorksheet As Excel.Worksheet
Dim i As Integer
Set WordApplication = CreateObject("Word.Application")
' Template for fancy introduction
' Open as read-only
Set DocumentTemplate = WordApplication.Documents.Open("template1.doc", False, True)
' Template for fancy layout per Excel row
' Open as read-only
Set TableTemplate = WordApplication.Documents.Open("template2.doc", False, True)
WordApplication.Visible = False
Set WordDocument = WordApplication.Documents.Add
Set DocumentRange = WordDocument.Content
' This bit apparently guarantees that pasted blocks are appended, not overwriting the selected block
DocumentRange.Collapse Direction:=wdCollapseEnd
DocumentTemplate.Content.Copy
' Paste the fancy header into the newly created document
DocumentRange.Paste
Set ExcelWorksheet = ThisWorkbook.Worksheets.Item(1)
' Assume 100 columns
For i = 1 To 100
DocumentRange.Collapse Direction:=wdCollapseEnd
' Paste the formatted table stuff
TableTemplate.Content.Copy
DocumentRange.Paste
' In the fancy template, I had some markers..
' Replace counter - NUMBERMARKER
WordDocument.ActiveWindow.Selection.Find.ClearFormatting
WordDocument.ActiveWindow.Selection.Find.Replacement.ClearFormatting
With WordDocument.ActiveWindow.Selection.Find
.Text = "NUMBERMARKER"
' Replace NUMBERMARKER with i
.Replacement.Text = i
.Wrap = wdFindStop
.Format = False
.MatchWholeWord = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
WordDocument.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceAll
Next i
' Wrap it up
DocumentTemplate.Close
TableTemplate.Close
WordApplication.Visible = True
WordApplication.Activate
End Sub
I also had some fancy progress bar in there somewhere.. I'm getting quite good at this drive-by VBA coding.
Cool T's
--Geoffrey Chaucer
