Search This Blog

2011-01-24

I am the king of the universe ... Template Generator ... so f..cking what ...



START ===== TemplateGenerator.0.1.0.cmd
@echo off  
ECHO %0 > %0.log
ECHO %0.error.log >%0.error.log
 
set BaseDir=%cd%
echo BaseDir is %BaseDir%  1>>%0.log 2>>%0.error.log
ECHO.
 
 
set ExcelFileToParse="%BaseDir%\input\configs.xls"
echo ExcelFileToParse is %ExcelFileToParse%  1>>%0.log 2>>%0.error.log
echo.
 
 
set InputDir=%BaseDir%\input
echo InputDir is %InputDir%  1>>%0.log 2>>%0.error.log
echo.
 
 
::CONFIGURE THE CURRENT DIRECTORY AS THE OUTPUT DIR
set OutputDir=%BaseDir%\output
echo OutputDir is %Outputdir%  1>>%0.log 2>>%0.error.log
echo.
 
::set PerlScript=parseExcelToCsv.pl
set PerlScript="%BaseDir%\TemplateGenerator.0.1.0.pl"
echo PerlScript is %PerlScript%  1>>%0.log 2>>%0.error.log
ECHO.
 
::This is the ASCII number of the token delimiter to use in the csv file
set TokenDelimiterAsciiNumber=44
echo TokenDelimiterAsciiNumber is %TokenDelimiterAsciiNumber%  1>>%0.log 2>>%0.error.log
 
 
::This is the ASCII number of the token delimiter to use in the csv file
set RowEndAsciiNumber=13
echo RowEndAsciiNumber is %RowEndAsciiNumber% %RowEndAsciiNumber% 1>>%0.log 2>>%0.error.log
 
 
echo Action !!!  1>>%0.log 2>>%0.error.log
echo perl %PerlScript% %ExcelFileToParse% %OutputDir% %TokenDelimiterAsciiNumber% %RowEndAsciiNumber% %InputDir% 1>>%0.log 2>>%0.error.log
perl %PerlScript% %ExcelFileToParse% %OutputDir% %TokenDelimiterAsciiNumber% %RowEndAsciiNumber%   %InputDir% 1>>%0.log 2>>%0.error.log
 
::UNCOMMENT TO OPEN THE ERROR LOG AND THE RUN LOG FILES 
::%0.error.log
::%0.log
 
::debug pause
 
::SLEEP FOR 3 SECONDS
for /l %%i in (1,-1,0) do CLS&ECHO DONE !!! %%i&ping localhost -n 2 >NUL&CLS
END ================== TemplateGenerator.0.1.0.cmd
. 
START ===== TemplateGenerator.0.1.0.pl
use Spreadsheet::ParseExcel;
use strict;
 
package TemplateGenerator ; 
 
 
sub  main {
 
my $ExcelFileToParse = "$ARGV[0]" ; 
my $OutputDir="$ARGV[1]" ;
my $delimiter = chr($ARGV[2]);
my $rowEnd = chr($ARGV[3]);
my $InputDir = "$ARGV[4]" ;
 
my @arrayTemplateFiles = () ; 
my $arrayTemplateFiles = readDirGetArrayOfFiles ($InputDir); 
@arrayTemplateFiles = @$arrayTemplateFiles ; #dereference
 
 
# - foreach template file 
foreach my $templateFile (@arrayTemplateFiles ) {
print "working on  \$templateFile is $templateFile\n";
my $FileToPrint = buildFileToPrint ( $templateFile  , $OutputDir ) ; 
my $StrTemplateFile = readFileReturnString ( "$InputDir/$templateFile" ) ; 
ParseExcel ( $ExcelFileToParse  , $delimiter , $rowEnd, $StrTemplateFile , $FileToPrint) ; 
# -- parseExcel
# --- foreach row of the Excel file , read template file into strWork
# ---- foreach column in row - Find and Replace Col title from strWork
# ---- writeGeneratedFile with strWork
 
}    #eof foreach template file
 
} #eof sub main 
 
sub readDirGetArrayOfFiles     {
 
my $InputDir = shift ; 
# create a list of all *.pl files in
# the current directory
opendir(DIR, "$InputDir");
my @files = grep(/\.tmpl$/,readdir(DIR));
closedir(DIR);
 
# print all the filenames in our array
foreach my $templateFile (@files) {
print "\$templateFile is $templateFile\n";
}
 
return \@files; 
 
} #eof main
 
 
 
sub buildFileToPrint 
{
my $FileToPrint = shift ; 
my $OutputDir = shift ; 
 
$FileToPrint =~m/^.*(\\|\/)(.*)/; #  strip the remote path and keep the filename
$FileToPrint =~ s/^(.*)(\.)(.*)/$1/ ;     #strip the file extension
$FileToPrint =~ s/^.*(\\|\/)(.*)/$2/ ;                                 # strip the remote path and keep the filename
$FileToPrint = "$OutputDir/$FileToPrint"  ;        
return $FileToPrint ; 
} #eof sub BuildFileToPrint 
 
 
sub ParseExcel {
 
my $ExcelFileToParse = shift ; 
my $delimiter = shift ; 
my $rowEnd = shift ; 
my $strTemplate = shift ; 
my $FileTemplate = shift ; 
 
 
 
my $parser   = Spreadsheet::ParseExcel->new();
my $workbook = $parser->Parse("$ExcelFileToParse");
 
 
#foreach my $oWkS (@{$oBook->{Worksheet}}) {
foreach my $worksheet (@{$workbook->{Worksheet}}) {
#for my $worksheet ( $workbook->worksheets() ) {
 
my $RowMin = $worksheet->{MinRow} ; 
my $RowMax= $worksheet->{MaxRow} ; 
 
 
#    my ( $RowMin, $RowMax) = $worksheet->row_range();
#    my ( $col_min, $col_max ) = $worksheet->col_range();
 
for my $row ( ($RowMin + 1) .. $RowMax) {
my $strToReturn = $strTemplate ; 
my $FileToPrint = $FileTemplate ; 
my $col_min = $worksheet->{MinCol} ; 
my $col_max = $worksheet->{MaxCol} ; 
for my $col ( ($col_min + 1) .. $col_max ) {
 
my $cell = $worksheet->{Cells}[$row][$col]  ; 
next unless $cell;
 
print " Row, Col    = ($row, $col)\n";
print " Value = ", $cell->Value() ;                #The Value
my $cellValueToReplace = $worksheet->{Cells}[$RowMin][$col]  ; 
print "\$cellValueToReplace is $cellValueToReplace \n" ; 
my $StrToReplace  = '¤' . $cellValueToReplace->Value() . '¤' ;  
print "\$StrToReplace is $StrToReplace  \n" ; 
my $StrValueToReplaceWith = $cell->Value() ;
print " \$StrValueToReplaceWith  is $StrValueToReplaceWith  \n" ; 
$strToReturn =~ s/$StrToReplace/$StrValueToReplaceWith/g ; 
$FileToPrint =~ s/$StrToReplace/$StrValueToReplaceWith/g ; 
#print "\$strToReturn is $strToReturn \n" ; 
#$strToReturn .=  $cell->Value() . $delimiter       ;                #The Value
#print "Unformatted = ", $cell->Unformatted(), "\n";
}
chop ($strToReturn) ; #remove the latest delimiter
$strToReturn .= $rowEnd ;     #end the row    
print "\$FileToPrint  is $FileToPrint " ; 
printToFile ( $FileToPrint , $strToReturn ) ; 
} #eof row
} #eof worksheet
 
} #eof sub
 
 
sub printToFile {
 
my $FileOutput = shift ; 
my $StringToPrint = shift ; 
#READ ALL ROWS OF A FILE TO ALIST 
open (FILEOUTPUT, ">$FileOutput") || 
print "could not open the \$FileOutput $FileOutput!\n"; 
print  FILEOUTPUT $StringToPrint ; 
close FILEOUTPUT ;
 
#debug $strToReturn .=  $StringToPrint; 
 
}
# =========================================== eof sub printToFile
 
sub trim    
{
$_[0]=~s/^\s+//;
$_[0]=~s/\s+$//;
return $_[0];
}
 
 
sub readFileReturnString {
my $fileToRead = shift ; 
print " readFileReturnString \$fileToRead is $fileToRead \n" ; 
my $string = (); 
{
local $/=undef;
open FILE, "$fileToRead " or print "Couldn't open \$fileToRead $fileToRead : $!";
$string = <FILE>;
close FILE;
}
return $string ; 
} #eof sub readFileReturnString 
 
 
 
# =========================================== eof sub trim 
# Action !!!
main();
 
 
1 ; 
 
__END__ 
END ================== TemplateGenerator.0.1.0.pl
. 
START ===== TemplateGenerator.0.1.0.ReadMe.txt
This Instruction assumess  that use the following dir to extract the project 
BaseDir=E:\perl\sfw\csv
 
if you do not simply find E:\perl\sfw\csv and replace it with <<YourExtractDir>> in this document 
 
- Install strawberry perl from here: http://strawberryperl.com/ , add the folder containing the dmake.exe and perl.exe to your path 
- to install the OLE::Storage_Lite go to E:\Perl\sfw\csv\lib\OLE-Storage_Lite-0.19\OLE-Storage_Lite-0.19
run the following commands : 
perl Makefile.PL
dmake
dmake test
dmake install    
dmake clean     
 
- To install the SpreadSheet::ParseExcel module go to : 
cd E:\perl\sfw\csv\lib\Spreadsheet-ParseExcel-0.2603
run the following commands: 
perl Makefile.PL
dmake
dmake test
dmake install    
dmake clean     
 
- Now you have all the prerequisites to run the script :
- double click the E:\Perl\sfw\csv\parseExcelToCsv.2.0.cmd file if nothing happens check its contents ... 
 
 
 
 
 
END ================== TemplateGenerator.0.1.0.ReadMe.txt

Labels

perl (41) Cheat Sheet (25) how-to (24) windows (14) sql server 2008 (13) linux (12) oracle (12) sql (12) Unix (11) cmd windows batch (10) mssql (10) cmd (9) script (9) textpad (9) netezza (8) sql server 2005 (8) cygwin (7) meta data mssql (7) metadata (7) bash (6) code generation (6) Informatica (5) cheatsheet (5) energy (5) tsql (5) utilities (5) excel (4) future (4) generic (4) html (4) perl modules (4) programs (4) settings (4) sh (4) shortcuts (4) поуки (4) принципи (4) Focus Fusion (3) Solaris (3) cool programs (3) development (3) economy (3) example (3) freeware (3) fusion (3) git cheat sheet (3) logging (3) morphus (3) mssql 2005 (3) nuclear (3) nz (3) parse (3) python (3) sftp (3) sofware development (3) source (3) sqlplus (3) table (3) vim (3) .Net (2) C# (2) China (2) GUI (2) Google (2) GoogleCL (2) Solaris Unix (2) ascii (2) awk (2) batch (2) cas (2) chrome extensions (2) code2html (2) columns (2) configuration (2) conversion (2) duplicates (2) excel shortcuts (2) export (2) file (2) free programs (2) informatica sql repository (2) linux cheat sheet (2) mssql 2008 (2) mysql (2) next big future (2) nsis (2) nz netezza cheat sheet (2) nzsql (2) ora (2) prediction (2) publish (2) release management (2) report (2) security (2) single-click (2) sqlserver 2005 (2) sqlserver 2008 (2) src (2) ssh (2) template (2) tools (2) vba (2) video (2) xlt (2) xml (2) youtube videos (2) *nix (1) .vimrc (1) .virmrc vim settings configs (1) BSD license (1) Bulgaria (1) Dallas (1) Database role (1) Dense plasma focus (1) Deployment (1) ERP (1) ExcelToHtml (1) GD (1) GDP (1) HP-UX (1) Hosting (1) INC (1) IT general (1) ITIL management bullshit-management (1) IZarc (1) Java Web Start (1) JavaScript anchor html jquery (1) Khan Academy (1) LINUX UNIX BASH AND CYGWIN TIPS AND TRICKS (1) Linux Unix rpm cpio build install configure (1) Linux git source build .configure make (1) ListBox (1) MIT HYDROGEN VIRUS (1) OO (1) Obama (1) PowerShell (1) Run-time (1) SDL (1) SIWA (1) SOX (1) Scala (1) Services (1) Stacks (1) SubSonic (1) TED (1) abstractions (1) ansible hosts linux bash (1) ansible linux deployment how-to (1) ansible yum pip python (1) apache (1) apache 2.2 (1) application life cycle (1) architecture (1) archive (1) arguments (1) avatar (1) aws cheat sheet cli (1) aws cli (1) aws cli amazon cheat sheet (1) aws elb (1) backup (1) bash Linux open-ssh ssh ssh_server ssh_client public-private key authentication (1) bash perl search and replace (1) bash stub (1) bin (1) biofuels (1) biology (1) books (1) browser (1) bubblesort (1) bugs (1) build (1) byte (1) cas_sql_dev (1) chennai (1) chrome (1) class (1) claut (1) cmdow (1) code generation sqlserver (1) command (1) command line (1) conf (1) confluence (1) console (1) convert (1) cool programs windows free freeware (1) copy-paste (1) csv (1) ctags (1) current local time (1) cygwin X11 port-forwarding mintty xclock Linux Unix X (1) cygwin bash how-to tips_n_tricks (1) cygwin conf how-to (1) data (1) data types (1) db2 cheat sheet (1) db2 starter ibm bash Linux (1) debt (1) diagram (1) dictionaries (1) digital (1) disk (1) disk space (1) documentation (1) dos (1) dubai (1) e-cars (1) electric cars (1) electricity (1) emulate (1) errors (1) exponents (1) export workflow (1) extract (1) fast export (1) fexp (1) file extension (1) file permissions (1) findtag (1) firewall (1) for loop (1) freaky (1) functions (1) fusion research (1) german (1) git gitlab issues handling system (1) google cli (1) google code (1) google command line interface (1) gpg (1) ha (1) head (1) helsinki (1) history (1) hop or flop (1) host-independant (1) how-to Windows cmd time date datetime (1) ibm db2 cognos installation example db deployment provisioning (1) ideas (1) image (1) informatica oracle sql (1) informatica repo sql workflows sessions file source dir (1) informatica source files etl (1) install (1) isg-pub issue-tracker architecture (1) it management best practices (1) java (1) jump to (1) keyboard shortcuts (1) ksh (1) level (1) linkedin (1) linux bash ansible hosts (1) linux bash commands (1) linux bash how-to shell expansion (1) linux bash shell grep xargs (1) linux bash tips and t ricks (1) linux bash unix cygwin cheatsheet (1) linux bash user accounts password (1) linux bash xargs space (1) linux cheat-sheet (1) linux cheatsheet cheat-sheet revised how-to (1) linux how-to non-root vim (1) linux ssh hosts parallel subshell bash oneliner (1) london (1) make (1) me (1) metacolumn (1) metadata functions (1) metaphonre (1) method (1) model (1) movie (1) multithreaded (1) mysql cheat sheet (1) mysql how-to table datatypes (1) n900 (1) nano (1) neteza (1) netezza bash linux nps (1) netezza nps (1) netezza nps nzsql (1) netezza nz Linux bash (1) netezza nz bash linux (1) netezza nz nzsql sql (1) netezza nzsql database db sizes (1) non-password (1) nord pol (1) nps backup nzsql schema (1) number formatting (1) nz db size (1) nz table count rows (1) nzsql date timestamp compare bigint to_date to_char now (1) on-lier (1) one-liners (1) one-to-many (1) oneliners (1) open (1) open source (1) openrowset (1) openssl (1) oracle PL/SQL (1) oracle Perl perl (1) oracle installation usability (1) oracle number formatting format-model ora-sql oracle (1) oracle templates create table (1) oracle trigger generic autoincrement (1) oracle vbox virtual box cheat sheet (1) oracle virtual box cheat sheet (1) outlook (1) parser (1) password (1) paths (1) perl @INC compile-time run-time (1) perl disk usage administration Linux Unix (1) perl modules configuration management (1) permissions (1) php (1) picasa (1) platform (1) postgreSQL how-to (1) powerShell cmd cygwin mintty.exe terminal (1) ppm (1) predictions (1) prices (1) principles (1) productivity (1) project (1) prompt (1) proxy account (1) public private key (1) publishing (1) putty (1) qt (1) read file (1) registry (1) relationship (1) repository (1) rm (1) scp (1) scripts (1) scsi (1) search and replace (1) sed (1) sendEmail (1) sh stub (1) shortcuts Windows sql developer Oracle (1) sidebar (1) silicon (1) smtp (1) software procurement (1) sofware (1) sort (1) sql script (1) sql_dev (1) sqlcmd (1) sqlite (1) sqlite3 (1) sshd (1) sshd cygwin (1) stackoverflow (1) stored procedure (1) stub (1) stupidity (1) subroutines (1) svn (1) sysinternals (1) tail (1) tar (1) temp table (1) templates (1) teradata (1) terminal (1) test (1) testing (1) theory (1) thorium (1) time (1) tip (1) title (1) tmux .tmux.conf configuration (1) tmux efficiency bash (1) tool (1) ui code prototyping tips and tricks (1) umask Linux Unix bash file permissions chmod (1) url (1) urls (1) user (1) utility (1) utils (1) vb (1) vbox virtual box cheat sheet (1) vim perl regex bash search for string (1) vim recursively hacks (1) vim starter (1) vim-cheat-sheet vim cheat-sheet (1) vimeo (1) visual stuio (1) warsaw (1) wiki (1) wikipedia (1) window (1) windows 7 (1) windows 8 (1) windows programs (1) windows reinstall (1) windows utility batch perl space Windows::Clipboard (1) wisdoms (1) workflow (1) worth-reading (1) wrapper (1) xp_cmdshell (1) xslt (1) youtube (1)

Blog Archive

Translate with Google Translate

My Blog List

VideoBar

This content is not yet available over encrypted connections.