Hi
I have an excel file report where i need to traverse through each row and check if a certain
column matches a regular expression (MSD) and another match as well....
My code does it...but i'm looking for a better way to do it
Can you guys look at the code and suggest some performance boosters to the code?
my $CB_COUNT = 0;
my $NM_COUNT = 0;
my $LastRow = $Sheet->UsedRange->Find({What=>"*",
SearchDirection=>xlPrevious,
SearchOrder=>xlByRows})->{Row};
my $LastCol = $Sheet->UsedRange->Find({What=>"*",
SearchDirection=>xlPrevious,
SearchOrder=>xlByColumns})->{Column};
print $LastRow." and last column ".$LastCol;
for $i (1 .. $LastRow)
{
my $rango5 = "E".$i;
my $rango6 = "J".$i;
if ($Sheet->Range("$rango5")->{Value} !~ /MSD/)
{
$CB_COUNT++;
}
if ($Sheet->Range("$rango5")->{Value} !~ /MSD/ && $Sheet->Range("$
+rango6")->{Value} !~ /No_/i)
{
$NM_COUNT++;
}
}
UPDATE:
Change in the code...
my $CB_COUNT = 0;
my $NM_COUNT = 0;
$LastRow = $Sheet->UsedRange->Find({What=>"*",
SearchDirection=>xlPrevious,
SearchOrder=>xlByRows})->{Row};
my $LastCol = $Sheet->UsedRange->Find({What=>"*",
SearchDirection=>xlPrevious,
SearchOrder=>xlByColumns})->{Column};
print $LastRow." and last column ".$LastCol;
for $i (1 .. $LastRow)
{
my $rango5 = "E".$i;
my $rango6 = "J".$i;
# my $rango7 = "
if ($Sheet->Range("$rango5")->{Value} !~ /MSD/)
{
$CB_COUNT++;
if($Sheet->Range("$rango6")->{Value} !~ /No_/i)
{
$NM_COUNT++;
}
}
}