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

For Each $r In $Array
	$y=$y+1
	If $r="" 
	       DelHashKey("$r","$y") 		
	EndIf
Next 

Quote:

---

This function deletes the key/value pair from the hash named $HashName.

---

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

Dim $y, $Array 

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

$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 Len($Element)

   $ar[$i] = $Element
   $i = $i + 1

  Endif

 Next

 If $i
  REDIM PRESERVE $ar[$i-1]
 Endif

 $TrimArray = $ar

EndFunction

 
;FUNCTION:      TrimArray()
;
;ACTION:        Removes given element of a given array.
;
;AUTHOR:        DON QUIJOTE DE LA MANCHA (Shawn Tassie)
;
;CONTRIBUTORS:  Some south basta
;
;DATE CREATED:  2004/07/30
;
;KIXTART:       any
;
;SYNTAX:        TrimArray($Array,$ItemToRemove)
;
;PARAMETERS:    $Array
;              Array from where you want to remove items
;
;              $ItemToRemove
;              Single Item to remove from array
;
;RETURNS:       New array without $ItemToRemove
;
;DEPENDENCIES:  none
;
;EXAMPLE:       Dim $y, $Array 
;			   $Array = "A1", "B2", "C3", "C4", "D5", "A1", "C1"
;			   $NewArray = TrimArray($Array,"A1")

Function TrimArray($Array,$ItemToRemove)
	Dim $i, $ar[Ubound($Array)]
	$i = 0
	For Each $Element In $Array
		If $Element<>$ItemToRemove
			$ar[$i] = $Element
			$i = $i + 1
		EndIf
	Next
	If $i
		ReDim PRESERVE $ar[$i-1]
	EndIf
	$TrimArray = $ar
EndFunction
 

$Array = "A1", "B2", "C3", "", "C5", "", "C7"
? ubound($array)

$d = "|"
$array = split(join(split(join($array,$d),$d+$d),$d),$d)
? ubound($array)

Function TrimArray($Array)



 dim $d



 $d = CHR(10)



 $TrimArray = split(join(split(join($array,$d),$d+$d),$d),$d)



EndFunction

 

Dim $y, $Array, $ArrayToRemove 

$Array = "A1", "B2", "C3", "C4", "D5", "A1", "C1"

$Remove="A1","C1"





$NewBastaArray = TrimArray($Array,$Remove)



For Each $basta In $NewBastaArray

	? $basta

Next





Function TrimArray($Array,$Remove)

	Dim $i, $ar[Ubound($Array)]

	$i = 0

	Select

	Case VarType($Remove)=8

		For Each $Element In $Array

			If $Element<>$Remove

				$ar[$i] = $Element

				$i = $i + 1

			EndIf

		Next		

	Case VarType($Remove)=8204	

		For Each $Element In $Array

			$ExistRemove=AScan($Remove, $Element)

			If $ExistRemove = -1

				$ar[$i] = $Element

				$i = $i + 1

			EndIf

		Next	

	Case VarType($Remove)<>8204 OR VarType($Remove)<>8	

		? "Not supperted value"		

	EndSelect	

	

	If $i

		ReDim PRESERVE $ar[$i-1]

	EndIf

	$TrimArray = $ar

EndFunction 

...
Case VarType($Remove) & 8
...
Case VarType($Remove) & 8192
...