Need Help About IniReadSection With Section is Array

[sdynk02]

1st of all, tks for reading my topic. 

Actually, i don't know how to explain my problem without reading my code. 

  $TimField = IniReadSectionNames(@DesktopDir & "\Data.ini")
                        _ArrayDisplay($TimField)
                        $TimField1 = IniReadSection(@DesktopDir & "\Data.ini", $TimField)

                           For $i = 1 To $TimField1[0][0]
                                MsgBox(0, "", "Key: " & $TimField1[$i][1] & @CRLF & "Value: " & $TimField1[$i][1])
                           Next

My Format Data.ini is attached.

So i just want to ask for help about how can i get the result like my Msgbox. 

Sorry for bad english !!!!

 

Data.ini

[BrewManNH]

Here's one way to do it, I switched the MsgBox to consolewrite so you won't have to hit Ok 75 times.

#include <array.au3>
$IniFileName = @DesktopDir & "\Data.ini"
$TimField = IniReadSectionNames($IniFileName)
_ArrayDisplay($TimField)
For $OuterLoop = 1 To $TimField[0]
    $TimField1 = IniReadSection($IniFileName, $TimField[$OuterLoop])
    ConsoleWrite("Section: " & $TimField[$OuterLoop] & @CRLF)
    For $InnerLoop = 1 To $TimField1[0][0]
        ConsoleWrite("Key: " & $TimField1[$InnerLoop][1] & @TAB & "Value: " & $TimField1[$InnerLoop][1] & @CRLF)
    Next
Next

 

[Valuater]

Fixed yourss...

 

#include <MsgBoxConstants.au3>
#include <Array.au3>


$TimField = IniReadSectionNames(@DesktopDir & "\Data.ini")
_ArrayDisplay($TimField)

For $x = 1 To $TimField[0]
    $TimField1 = IniReadSection(@DesktopDir & "\Data.ini", $TimField[$x])

    For $i = 1 To $TimField1[0][0]
        MsgBox(0, "Section Name " & $x & " n" & $TimField[$x], "Key: " & $TimField1[$i][1] & @CRLF & "Value: " & $TimField1[$i][1])
    Next

Next

A little slow here.. 8)

[sdynk02]

I got it. Thanks so much BrewManNH & Valuater

Edited November 16, 2015 by sdynk02