AutoIt Français

Code : Tout sélectionner

[Section_1]
=
[Section_2]
Clef_1=AZERTY
Clef_2=UIOP
Clef_3=OUPS
[Section_3]
CLEF_2=Wesh Poto
[Section_4]
=
[Section_5]
CLEF_1=Bof
[Section_6]
Clef_2=YOUHOU
[Section_7]
CLEF_3=YOLO
clef_4=
 

Code : Tout sélectionner

#include <array.au3>

$IniTypeOfProcess = @ScriptDir & "\ini\example.ini"
$File = @ScriptDir & "\temp\TriDoublons.txt"

_FillComboBoxSearchByTool()

Global $aArray2

Func _FillComboBoxSearchByTool()

    SplashTextOn("", "Chargement des données" & @CRLF & "Veuillez patienter svp.", 450, 55, -1, @DesktopHeight / 2, 49)
    Global $aArray = IniReadSectionNames($IniTypeOfProcess)
    If Not @error Then
        For $i = 1 To $aArray[0]
            $SectionName = $aArray[$i]
            _IniReadSection($SectionName)
            $SectionName = ""
        Next
    EndIf

    $DelDoublonsHelp = FileReadToArray($File)
    $DeletedDoublons = _ArrayUnique($DelDoublonsHelp)

    For $l=1 To UBound($DeletedDoublons)-1
        ConsoleWrite($DeletedDoublons[$l] & @CRLF)
    Next

    SplashOff()

EndFunc

Func _IniReadSection($SectionName)

    $aArray2 = IniReadSection($IniTypeOfProcess, $SectionName)

    Dim $aArrayTemp[$aArray2[0][0]]

    If Not @error Then
        For $i = 1 To $aArray2[0][0]
            If $aArray2[$i][0] = "" Then
            Else
                FileWrite($File, $aArray2[$i][0] & @CRLF)
            EndIf
        Next
    EndIf

EndFunc
 

Code : Tout sélectionner

#Include <Array.au3>

; $sContent = FileRead("fichier.ini")

$sContent = "[Section_1]" & @CRLF &  _
            "=" & @CRLF &  _
            "[Section_2]" & @CRLF &  _
            "Clef_1=AZERTY" & @CRLF &  _
            "Clef_2=UIOP" & @CRLF &  _
            "Clef_3=OUPS" & @CRLF &  _
            "[Section_3]" & @CRLF &  _
            "CLEF_2=Wesh Poto" & @CRLF &  _
            "[Section_4]" & @CRLF &  _
            "=" & @CRLF &  _
            "[Section_5]" & @CRLF &  _
            "CLEF_1=Bof" & @CRLF &  _
            "[Section_6]" & @CRLF &  _
            "Clef_2=YOUHOU" & @CRLF &  _
            "[Section_7]" & @CRLF &  _
            "CLEF_3=YOLO" & @CRLF &  _
            "clef_4="

; $aKeys = StringRegExp($sContent, "(?si)\R([^=\r\n]+)=", 3)       ; Toutes les clés, sans suppression des doublons
$aKeysUniq = StringRegExp($sContent, "(?si)\R([^=\r\n]+)=(?!.*\R\1=)", 3)       ; Toutes les clés, sans doublons
_ArrayDisplay($aKeysUniq)

 

Code : Tout sélectionner

#include <Array.au3>

$ini = @ScriptDir & "\Monfichier.ini"
_DeleteDoublons($ini)

Func _DeleteDoublons($ini_file)
  Local $txt = FileRead($ini_file), $section, $keys, $values, $array[1][3], $k = 0
  Local $contenu_sections = StringRegExp($txt, '(\[[^\[]+)', 3)          ; sépare les sections
  For $i = 0 to UBound($contenu_sections) - 1          ; pour chaque section
    $section = StringRegExp($contenu_sections[$i], '\[([^\]]+)', 3)
    $keys = StringRegExp($contenu_sections[$i], '([\S\h]*)=', 3)
    $values = StringRegExp($contenu_sections[$i], '=([\S\h]*)', 3)
    If IsArray($keys) Then
        Redim $array[$k+UBound($keys)][3]
        $array[$k][0] = $section[0]               ; nom de la section
        For $j = 0 to UBound($keys) - 1           ; pour chaque key
            If not StringRegExp($keys[$j], '^\s*;' ) Then    ; lignes non commentées
                ;~ $array[$k][0] = $section[0]     ; nom section
                $array[$k][1] = $keys[$j]           ; nom key
        $array[$k][2] = StringRegExpReplace($values[$j], '\s*;.*$', "")        ; nom value
                $k += 1
            EndIf
        Next
    Else                        ; si section vide
        Redim $array[$k+1][3]
        $array[$k][0] = $section[0]      ; nom section seulement
        $k += 1
    EndIf
  Next
  $DeletedDoublons = _ArrayUnique($array,1)

  For $l=2 To UBound($DeletedDoublons)-1
        ConsoleWrite($DeletedDoublons[$l] & @CRLF)
    Next
  ;_ArrayDisplay($DeletedDoublons)
EndFunc