AutoIt Français

Code : Tout sélectionner

$i=1
;je remplis la première ligne de mon tableau $resultat avec la premiere ligne de mon tableau $com
$resultat[1] = $com[1]
;je commence le parcourt du tableau $com
For $Z = 1 to $com[0]
;pour voir si je rentre bien dans la boucle j'affiche mon $Z
    MsgBox(0,"Z",$Z)
;je commence le parcourt du tableau $resultat
    For $A = 1 to $resultat[0]
;pour voir si je rentre bien dans la boucle j'affiche mon $A

;et raté ...
            MsgBox(0,"A",$A)
    MsgBox(0,'titre','lecture com :'&$com[$Z]&" lecture resultat :"&$resultat[$A])

            If $resultat[$A] = $com[$Z] Then
                $Z = $Z +1
                else
                $resultat[0] = $i+1 
                $resultat[$A] = $com[$Z]
            EndIf
    Next

Next
_ArrayDisplay ($resultat," résultat ?")

Code : Tout sélectionner

#Include <array.au3>

$Chaine = "COM1|COM1|COM17|COM4|COM1"
$COM = StringSplit($Chaine, "|")

$Resultat = _ArrayUnique($COM, '', 1)
_ArrayDisplay($Resultat,"")


Func _ArrayUnique(ByRef $aArray, $vDelim = '', $iBase = 1, $iUnique = 1)
    If $vDelim = '' Then $vDelim = Chr(01)
    Local $sHold
    For $iCC = $iBase To UBound($aArray) - 1
        If Not StringInStr($vDelim & $sHold, $vDelim & $aArray[$iCC] & $vDelim, $iUnique) Then _
                $sHold &= $aArray[$iCC] & $vDelim
    Next
    Return StringSplit(StringTrimRight($sHold, StringLen($vDelim)), $vDelim)
EndFunc   ;==>_ArrayUnique

Code : Tout sélectionner

#Include<File.au3>
#Include<array.au3>
Dim $doublons

;-----------------A COMPLETER---------------------------------
$string = "COM1|COM1|COM17|COM4|COM1"
;--------------------------------------------------------------------


$text = StringReplace($string, "|", @CR)
$line = StringSplit($text, @CR)
For $i = 1 To $line[0]
Filewrite ("test.txt", $line[$i]  & @CRLF)
Next


_FileReadToArray("test.txt",$doublons)
$loop = UBound($doublons - 1)                              
$j = 0
$i = 0

While $i < $loop
    While $j < $loop
        If $i <> $j Then                                  
            If $doublons[$i] == $doublons[$j] Then
                _ArrayDelete($doublons, $j)                 
                $loop = UBound($doublons - 1)              
            EndIf      
        EndIf
        $j += 1
    WEnd
    $j = 0
    $i += 1
WEnd
;
 _ArrayDisplay($doublons)
 
 FileDelete("test.txt")