AutoIt Français

Code : Tout sélectionner

#include <Container.au3>
Func _ArrayFind($array,$valeur)
   $nb=0
   Do
      $nb+=1
   Until UBound($array,$nb)=0 And @error=2
   $taille=$nb-1
   If $taille=0 Or IsArray($array)=0 Then return 0
$oContainer = _Container_Open("storage", 1)
_Container_PutProperty($oContainer,"Array",$array)
$file=@ScriptDir&"\ArrayFind.au3"
$file1=FileOpen($file,2)
FileWrite($file1,"#include <Container.au3>"&@CRLF)
FileWrite($file1,'$oContainer = _Container_Open("storage", 0)'&@CRLF)
FileWrite($file1,'$array= _Container_GetProperty($oContainer, "Array")'&@CRLF)
FileWrite($file1,'Local $valeur="'&$valeur&'"'&@CRLF&"Local $nb["&$taille&"]"&@CRLF&"Local $taille="&$taille&@CRLF)
FileWrite($file1,"Local $array2[0]["&$taille&"]"&@CRLF)
For $nb=0 To $taille-1
   FileWrite($file1,"For $nb["&$nb&"]=0 to "&UBound($array,$nb+1)-1&@CRLF)
Next
FileWrite($file1,"If $array")
For $nb=0 To $taille-1
   FileWrite($file1,"[$nb["&$nb&"]]")
Next
FileWrite($file1," ==$valeur Then"&@CRLF)
FileWrite($file1,"ReDim $array2[Ubound($array2,1)+1][$taille]"&@CRLF)
FileWrite($file1,"For $nb2=0 To $taille-1"&@CRLF)
FileWrite($file1,"$array2[UBound($array2,1)-1][$nb2]=$nb[$nb2]")
FileWrite($file1,@CRLF&"Next"&@CRLF&"EndIf"&@CRLF)
For $nb=0 To $taille-1
   FileWrite($file1,"Next"&@CRLF)
Next
FileWrite($file1,"_Container_Close($oContainer)"&@CRLF)
FileWrite($file1,'$oContainer = _Container_Open("storage", 1)'&@CRLF)
FileWrite($file1,'_Container_PutProperty($oContainer,"Array",$array2)'&@CRLF)
FileClose($file1)
ShellExecuteWait(@ScriptDir&"\ArrayFind.au3")
FileDelete($file)
$oContainer = _Container_Open("storage",0)
$array= _Container_GetProperty($oContainer, "Array")
_Container_Close($oContainer)
return $array
EndFunc