Pages

Thursday, February 9, 2012

Force user to enable macro in Excel

http://www.excelguru.ca/content.php?162

Tuesday, January 31, 2012

Create an EXE or Setup File in .NET Windows Application

http://balanagaraj.wordpress.com/2007/05/29/create-exe-or-setup-file-in-net-windows-application/

Thursday, November 10, 2011

Array Perl



To get the index and item

for my $i (0 .. $#x) {
print "$i: $x[$i]\n";
}
To get the last item in array
. $array[$#array] .
To get the total number of array

.  scalar @array .
To get the max index in array
$#array
To Output the item of array
foreach (@array)
{
$element = $_;
print " $element\n"

}




References :
1. http://www.tutorialspoint.com/perl/perl_arrays.htm
2. http://perlmeme.org/howtos/data_structures/arrays.html

Friday, November 4, 2011

音乐分享 Bruno Mars -《Doo Wops & Hooligans (Deluxe Version)》


Bruno Mars -《Doo Wops & Hooligans (Deluxe Version)》豪华版

Tracklist:

01. Grenade

02. Just the Way You Are

03. Our First Time

04. Runaway Baby

05. The Lazy Song

06. Marry You

07. Talking to the Moon

08. Liquor Store Blues (feat. Damian Marley)

09. Count On Me

10. The Other Side (feat. Cee Lo Green & B.o.B)

Bonus Tracks (Deluxe Version):

11. Just the Way You Are (feat. Lupe Fiasco) [Remix]

12. Somewhere In Brooklyn Digital Booklet - Doo-Wops & Hooligans (Deluxe)

115 download http://u.115.com/file/f976fc6a20

Thursday, November 3, 2011

离开我你会幸福吗



喝了一点酒觉得头好痛
爱了那么久结果人去楼空
幻想的天空已不知去了影踪
编织的美梦却已化成冰冷与空洞
眼泪已无济于事 那爱已变成往事
骗自己不爱了忘记伤心事
离开我你会幸福吗
为什么听不到你回答
那段感情难道已不在牵挂
怪我当初爱你爱的那么傻
离开我你会幸福吗 我在等待你的回答
说好牵手到永久谁也不放下
难道你都忘了吗
离开我你会幸福吗

Monday, October 17, 2011

Extract Excel contents from perl

This code is used to calculate no. of w/s in excel file and read the worksheets' name.

my $sheetcnt = $Book->Worksheets->Count();
foreach (1..$sheetcnt){
print "\t" .$Book->Worksheets($_)->{Name} ."\n";
}


While last row and column can be read by using this:-

Finding the last Column and Row

my $LastRow = $Sheet->UsedRange->Find({What=>"*",
SearchDirection=>xlPrevious,
SearchOrder=>xlByRows})->{Row};

my $LastCol = $Sheet->UsedRange->Find({What=>"*",
SearchDirection=>xlPrevious,
SearchOrder=>xlByColumns})->{Column};

All of above code are use Win32::OLE without using complicated spreadsheet perl module.

Reference
1. http://www.perlmonks.org/?node_id=153486
2. http://www.ngbdigital.com/perl_ole_excel.html
3. http://perlguru.com/

Tuesday, October 4, 2011

王力宏 Wang Leehom 依然愛你 Still In Love With You

 

site weekly hits