AutoIt Français

Code : Tout sélectionner

Func _search()
        $search = _GUICtrlListView_FindText($ListView0, GUICtrlRead($Input1))
		WinSetTitle($Form1, "", "Recherche de "&GUICtrlRead($Input1)&" dans la base de donnée")

	    _GUICtrlListView_DeleteAllItems($ListView0)
        $array = IniReadSectionNames($iniFile)

            ; Is there anything in the input?
            $sText = GUICtrlRead($Input1)           ; search
            If StringLen($sText) <> 0 Then
                ; Create a list of matches
                Local $aMatch_List[1] = [0]

                $iStart = 1
                For $i = 1 To UBound($array) - 1

				    $tag = IniRead($iniFile, $array[$i], "Tag", "")
                    $desc = IniRead($iniFile, $array[$i], "Desc", "")
					$pub = IniRead($iniFile, $array[$i], "Publisher", "")
					$date = IniRead($iniFile, $array[$i], "Date", "")
					$version = IniRead($iniFile, $array[$i], "Version", "")
                    ; Look for the match
                    If StringInStr($array[$i], $sText) Then

                        ; Add to list
                        $aMatch_List[0] += 1
						;_ArrayDisplay($aMatch_List)
                        ReDim $aMatch_List[$aMatch_List[0] + 1]

                        $aMatch_List[$aMatch_List[0]] = ""&$array[$i] & "|" & $desc & "|"&$tag ;$ desc[$ i] don't want to work because desc is not an array
                        ; GUICtrlCreateListViewItem($aMatch_List[$aMatch_List[0]], $ListView0); test
                    EndIf
                Next
                ; Add matches to ListView
                _GUICtrlListView_BeginUpdate($ListView0)
                For $i = 1 To $aMatch_List[0]
                    ;GUICtrlCreateListViewItem($aMatch_List[$i], $ListView0)
                Next
                _GUICtrlListView_EndUpdate($ListView0)
            Else
                ; Reload everything
                ;ContinueCase
			 EndIf
    
	

EndFunc

Code : Tout sélectionner

#include <Array.au3>
$File = @ScriptDir & "\fichier.ini"
$arraysection = IniReadSectionNames($File);Retourne un tableau contenant tous les noms de section du fichier INI.
_ArrayDisplay($arraysection); à supprimer
Local $arrayclef, $text

For $i = 1 To $arraysection[0];on boucle sur les sections
	If $arraysection[$i] = "canard" Then
		$arrayclef = IniReadSection($File, $arraysection[$i]);Retourne un tableau à 2 dimensions où l'élément [n][0] est la clé et l'élément [n][1] est la valeur.
		_ArrayDisplay($arrayclef); à supprimer
		For $y = 1 To UBound($arrayclef) - 1 ;on boucle sur les clefs
			If $arrayclef[$y][0] = "pattes" Then $text &= "a " & $arrayclef[$y][1] &" "&  $arrayclef[$y][0] &@CRLF
			If $arrayclef[$y][0] = "yeux" Then $text &= $arrayclef[$y][0] &" sont "& $arrayclef[$y][1]
		Next
		ExitLoop
	EndIf
Next
MsgBox(0,"canard",$text)
;============== on cherche qui a les yeux bleus ===============================================================
$text = ""
$arraysection = IniReadSectionNames($File);Retourne un tableau contenant tous les noms de section du fichier INI.
Local $arrayclef, $text
For $i = 1 To $arraysection[0];on boucle sur les sections
		$arrayclef = IniReadSection($File, $arraysection[$i]);Retourne un tableau à 2 dimensions où l'élément [n][0] est la clé et l'élément [n][1] est la valeur.
		For $y = 1 To UBound($arrayclef) - 1 ;on boucle sur les clefs
			If $arrayclef[$y][1] = "bleu" Then $text &=$arraysection[$i] &" "&  $arrayclef[$y][0] &" sont "& $arrayclef[$y][1]
		Next

Next
MsgBox(0,"",$text)