Jose basta-buddy, ... Here's a quick concept script ... uses a quick udf called TrimArray which may-or-may-not be in some udflib somewhere, idk ...

Code:



Dim $y, $Array 



$Array = "A1", "B2", "C3", "", "C5", "", "C7"



$NewArray = TrimArray($Array)



For Each $Element In $NewArray

 ?"Element=" $Element

Next



Exit 0



Function TrimArray($Array)



 dim $i, $element, $ar[UBound($Array)]



 $i = 0



 For Each $Element In $Array



  If $Element



   $ar[$i] = $Element

   $i = $i + 1



  Endif



 Next



 If $i

  REDIM PRESERVE $ar[$i-1]

 Endif



 $TrimArray = $ar



EndFunction


-Shawn