AutoIt Français

Code : Tout sélectionner

[RIRI];
1;                              (* Mon Texte RIRI 1 *)
ArgentDePoche-;                 (* Mon Texte RIRI 2*)
Euros;                          (* Mon Texte RIRI 3*)
80;                             (* Mon Texte RIRI 4*)

[FIFI];
\\mondossier\sousdossier\;      (* Mon Texte FIFI 1*)

[LOULOU];
FALSE;                          (* Mon Texte LOULOU 1*)
FALSE;                          (* Mon Texte LOULOU 2*)
2;                              (* Mon Texte LOULOU 3*)
 

Code : Tout sélectionner

RIRI-----------------------------------------------------------------------------
1                            |      (* Mon Texte RIRI 1*)
ArgentDePoche-       |      (* Mon Texte RIRI 2*)
Euros                      |      (* Mon Texte RIRI 3*)
80                          |      (* Mon Texte RIRI 4*)

FIFI-----------------------------------------------------------------------------
\\mondossier\sousdossier\    |    (* Mon Texte FIFI 1*)

LOULOU-----------------------------------------------------------------------------
FALSE    |    (* Mon Texte LOULOU 1*)
FALSE    |    (* Mon Texte LOULOU 2*)
2    |    (* Mon Texte LOULOU 3*)
    

 

Code : Tout sélectionner

_GUICtrlListView_DeleteAllItems($Listview1)
    $aIniSectionNames = IniReadSectionNames(@ScriptDir & "\txt\machine.dat")
    _GUICtrlListView_EnableGroupView($Listview1, True)

    For $i = 1 To $aIniSectionNames[0]
        ConsoleWrite($aIniSectionNames[$i] & @CRLF)
        _GUICtrlListView_InsertGroup($Listview1, -1, $i, $aIniSectionNames[$i])
        _GUICtrlListView_SetItemGroupID($Listview1, $i, $i)
    Next

 

Code : Tout sélectionner

_GUICtrlListView_DeleteAllItems($Listview1)
    $aIniSectionNames = IniReadSectionNames(@ScriptDir & "\txt\machine.dat")

    _GUICtrlListView_EnableGroupView($Listview1)

    For $i = 0 To $aIniSectionNames[0]
        ConsoleWrite($aIniSectionNames[$i] & @CRLF)
        _GUICtrlListView_InsertGroup($Listview1, -1, $i, "[" & $aIniSectionNames[$i] & "]")
        GUICtrlCreateListViewItem("[" & $aIniSectionNames[$i] & "]"  & "|" & $aIniSectionNames[$i], $Listview1)
        _GUICtrlListView_SetItemGroupID($Listview1, $i, $i)
    Next

 

Code : Tout sélectionner

#include <Array.au3>

$txt = FileRead(@ScriptDir & "\toto.dat")
$txt = StringReplace($txt, "];", "]")

$keys = StringRegExp($txt, '([\S|\h]+);', 3)
Dim $array[UBound($keys)][3]    ; nb lignes = nb total de keys 
$k = 0
$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)
        $array[$k][0] = $section[0]     ; nom section
    $keys = StringRegExp($contenu_sections[$i], '([\S|\h]+)\s*;', 3)
    $values = StringRegExp($contenu_sections[$i], ';\s*([\S|\h]+)', 3)
    For $j = 0 to UBound($keys) - 1   ; pour chaque key
        $array[$k+$j][1] = $keys[$j]    ; nom key
        $array[$k+$j][2] = $values[$j]    ; nom value
    Next
    $k += $j
Next
_ArrayDisplay($array)
 

Code : Tout sélectionner

[Section1];
2;                                  (* No [2] *)
Paris;                              (* Prefix [8] *)
Lyon;                               (* IPAdress [15] *)
80;                                 (* Virtual, each [2], separated by ","; MAX: 10 v. c. *)

[Section2];
\\Metropole\txt\;                       (* Path for txt file on Data Server [254] *)
\\Island\csv\pictures\;                 (* Move Path for Pictures [254] *)
\\Source\data\toto.ini;                 (* Path for configuration file toto.ini [254] *)

[Section3];
FALSE;                          (* Miles (FALSE) or KMS (TRUE): FALSE=No, TRUE=Yes *)
FALSE;                          (* SafetyMode: FALSE=No, TRUE=Yes *)
;
2;                              (* Offset *)
 

Code : Tout sélectionner

Func TestLocal()
Local $hFile = FileOpen($sFile)
    If $hFile = -1 Then Exit MsgBox(16, "Erreur", "Impossible d'ouvrir le fichier " & $sFile)

    Local $sContent = FileRead($hFile)
    FileClose($sContent)

    Local $aKeys[1][2], $aExtract, $aSection, $sSectionContent

    ;Récupération des sections
    Local $aSections = StringRegExp($sContent, "(?m)^\[([^\]]+)\][;\h]*", 3)
    ;_ArrayDisplay($aSections) ;Je récupère bien les valeurs...
    _GUICtrlListView_EnableGroupView($Listview1)
    For $i = 0 To UBound($aSections) - 1

         ; Récupération du contenu de chaque section
        $aSection = StringRegExp($sContent, "(?s)(?:\R|\A)\[\Q" & $aSections[$i] & "\E\]\N*\R(.*?)(?:\R\[[^\]]+\]|\Z)", 1)

        If @error Then ContinueLoop

        ; Suppression des lignes vides ou qui contiennent uniquement ";"
        $sSectionContent = StringRegExpReplace($aSection[0], "(\R;?){2,}", @CRLF)

        ; Récupération des clés et valeurs
        $aExtract = StringRegExp($sSectionContent, "(?m)^([^;]+);\h*(.*)$", 3)
        Redim $aKeys[UBound($aExtract) / 2][2]

        For $j = 0 To UBound($aExtract) - 1 Step 2
            _GUICtrlListView_InsertGroup($Listview1, -1, $i, $aSections[$i])
            $aKeys[$j / 2][0] = $aExtract[$j]
            $aKeys[$j / 2][1] = $aExtract[$j + 1]
            GUICtrlCreateListViewItem($aKeys[$j / 2][0]  & "|" & $aKeys[$j / 2][1], $Listview1)
            _GUICtrlListView_SetItemGroupID($Listview1, $j, $i)
        Next

    Next




EndFunc
 

Code : Tout sélectionner

Func TestLocal()
    Local $hFile = FileOpen($sFile)
    If $hFile = -1 Then Exit MsgBox(16, "Erreur", "Impossible d'ouvrir le fichier " & $sFile)

    Local $sContent = FileRead($hFile)
    FileClose($sContent)

    Local $aKeys[1][2], $aExtract, $aSection, $sSectionContent
    Local $aGroups[1], $iIndex = 0

    ;Récupération des sections
    Local $aSections = StringRegExp($sContent, "(?m)^\[([^\]]+)\][;\h]*", 3)
    ;_ArrayDisplay($aSections) ;Je récupère bien les valeurs...


    _GUICtrlListView_EnableGroupView($Listview1)

    For $i = 0 To UBound($aSections) - 1
        _GUICtrlListView_InsertGroup($Listview1, -1, $i, $aSections[$i])
        
         ; Récupération du contenu de chaque section
        $aSection = StringRegExp($sContent, "(?s)(?:\R|\A)\[\Q" & $aSections[$i] & "\E\]\N*\R(.*?)(?:\R\[[^\]]+\]|\Z)", 1)

        If @error Then ContinueLoop

        ; Suppression des lignes vides ou qui contiennent uniquement ";"
        $sSectionContent = StringRegExpReplace($aSection[0], "(\R;?){2,}", @CRLF)

        ; Récupération des clés et valeurs
        $aExtract = StringRegExp($sSectionContent, "(?m)^([^;]+);\h*(.*)$", 3)
        
        For $j = 0 To UBound($aExtract) - 1 Step 2
            GUICtrlCreateListViewItem($aExtract[$j]  & "|" & $aExtract[$j + 1], $Listview1)
            
            _GUICtrlListView_SetItemGroupID($Listview1, $iIndex, $i)
            $iIndex += 1
        Next
    Next

EndFunc