"subscript used with non-array variable" ?

[gcue]

hello.

i am trying to process an INI file that has multiple sections. within each section a list of devices with their ips. as such:

[location1]

printer1=29.1.12.1

computer1=292.21.21.1

[location2]

printer1=292.1.12.1

server=21.1.1.1.

you get the idea...

heres what i have (at this point im just trying to sort out the variable part):

$location = IniReadSectionNames(@ScriptDir & "\devices.ini")
If @error Then 
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
    
    For $i = 1 To $location[0]

      $device = IniReadSection(@scriptdir & "\devices.ini", "$location[i]")

      For $p = 1 To $device[0][0]
        MsgBox(4096, "", "Location: " & $location[$i][0] &  @CRLF & "Key: " & $device[$p][0] & @CRLF & "Value: " & $device[$p][1])
      Next

  Next
EndIf

[SmOke_N]

$device = IniReadSection(@scriptdir & "\devices.ini", $location)

[GEOSoft]

Try this. I think I fixed the errors but I'm just winging it so it's untested.

$location = IniReadSectionNames(@ScriptDir & "\devices.ini")
If @error Then 
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
    
    For $i = 1 To $location[0]

      $device = IniReadSection(@scriptdir & "\devices.ini", "$location[$i]")

      For $p = 1 To $device[0][0]
        MsgBox(4096, "", "Location: " & $location[$i] &  @CRLF & "Key: " & $device[$p][0] & @CRLF & "Value: " & $device[$p][1])
      Next

  Next
EndIf

[gcue]

thanks for the quick response.

now im getting a different error:

error in parsing function call

not sure where thats coming from...any idea?

$device = IniReadSection(@scriptdir & "\devices.ini", $location)

[gcue]

thanks for trying.. i still get the error...

Try this. I think I fixed the errors but I'm just winging it so it's untested.

$location = IniReadSectionNames(@ScriptDir & "\devices.ini")
If @error Then 
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
    
    For $i = 1 To $location[0]

      $device = IniReadSection(@scriptdir & "\devices.ini", "$location[$i]")

      For $p = 1 To $device[0][0]
        MsgBox(4096, "", "Location: " & $location[$i] &  @CRLF & "Key: " & $device[$p][0] & @CRLF & "Value: " & $device[$p][1])
      Next

  Next
EndIf

[SmOke_N]

Local $location, $i, $device, $p
$location = IniReadSectionNames(@ScriptDir & "\devices.ini")
If IsArray($location) Then
    For $i = 1 To $location[0]
        $device = IniReadSection(@scriptdir & "\devices.ini", $location[$i])
        If IsArray($device) Then
            For $p = 1 To $device[0][0]
                MsgBox(4096, "", "Location: " & $location[$i] &  @CRLF & "Key: " & $device[$p][0] & @CRLF & "Value: " & $device[$p][1])
            Next
        Else
            MsgBox(16, "Error", "There was an error reading section: " & $location[$i] & @CRLF & "Section Number was: " & $i)
        EndIf
    Next
Else
    MsgBox(16, "", "Error occurred, probably no INI file.")
EndIf

Always best to error check so you can see the error for yourself.

[gcue]

brilliant!!!

thank you so much!!!

Local $location, $i, $device, $p
$location = IniReadSectionNames(@ScriptDir & "\devices.ini")
If IsArray($location) Then
    For $i = 1 To $location[0]
        $device = IniReadSection(@scriptdir & "\devices.ini", $location[$i])
        If IsArray($device) Then
            For $p = 1 To $device[0][0]
                MsgBox(4096, "", "Location: " & $location[$i] &  @CRLF & "Key: " & $device[$p][0] & @CRLF & "Value: " & $device[$p][1])
            Next
        Else
            MsgBox(16, "Error", "There was an error reading section: " & $location[$i] & @CRLF & "Section Number was: " & $i)
        EndIf
    Next
Else
    MsgBox(16, "", "Error occurred, probably no INI file.")
EndIf

Always best to error check so you can see the error for yourself.