IniRead --> All Keys as a variable + its value

[Friedel2k 0]

Dear all,

i just can not solve it. I hope u can give me a right tip.

I just want to import a ini file, for example:

[printer]
$pool_1=1
$pool_2=2
$pool_3=3

 

with the function IniRead and I want to use direct $pool_1 as var, and the var should have the value 1

and of course has the ini file later n entrys for N vars. I have tryed evey help / refference / forum, but Iam just not able to get it. Thanks for feedback!

 

 

[Zedna 356]

Look at IniReadSection() in helpfile.

[Friedel2k 0]

Thank u ! I got it.

Please one more question. Now I got the data in an array, but how to get these data into vars? Or to update existing vars? Thank you!

[Zedna 356]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Dim $pom

$var = IniReadSection('opt.ini','printer')
If @error Then
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
    For $i = 1 To $var[0][0]
;~      MsgBox(4096, "", "Key: " & $var[$i][0] & @CRLF & "Value: " & $var[$i][1])
        $pom &= "Key"&$i&": " & $var[$i][0] & " Value"&$i&": " & $var[$i][1] & @CRLF
        Assign($var[$i][0], $var[$i][1]) ; create variable
    Next
EndIf

MsgBox(4096, "IniReadSection array", $pom)
MsgBox(4096, "Variables", "$pool_1: " & Eval('$pool_1') & @CRLF & "$pool_2: " & Eval('$pool_2') & @CRLF & "$pool_3: " & Eval('$pool_3'))

 

Edited August 20, 2021 by Zedna

[Friedel2k 0]

Thank you, but it seems not that this will generate var´s. And also not the values for the var´s. If I "ask" autoit vor the vars and or var / result there are no values.

Or is there a other option to import vars from a text file with there values? Thank you.

 

[Nine 1,503]

You cannot have a variable starting with 2 $.  You would need to remove the first $ from the array before creating the variables (or simply remove them from ini file).

[Zedna 356]

Thanks Nine for good pointing!

For this INI file:

Quote

[printer]
pool_1=1
pool_2=2
pool_3=3

Works This my script:

Note that you have to disable Au3Check if you have $ + name of dynamic variable mentioned directly in script (my last line)

#AutoIt3Wrapper_Run_AU3Check=n

Dim $pom

$var = IniReadSection('opt.ini','printer')
If @error Then
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
    For $i = 1 To $var[0][0]
        $pom &= "Key"&$i&": " & $var[$i][0] & " Value"&$i&": " & $var[$i][1] & @CRLF
        Assign($var[$i][0], $var[$i][1])  ; create variable
    Next
EndIf

MsgBox(4096, "IniReadSection array", $pom)
MsgBox(4096, "Variables Eval", "$pool_1: " & Eval('pool_1') & @CRLF & "$pool_2: " & Eval('pool_2') & @CRLF & "$pool_3: " & Eval('pool_3'))
MsgBox(4096, "Variables Direct", "$pool_1: " & $pool_1 & @CRLF & "$pool_2: " & $pool_2 & @CRLF & "$pool_3: " & $pool_3) ; <-- Au3Check must be disabled

 

Edited August 20, 2021 by Zedna

[Friedel2k 0]

Thx a lot! Thats it! Works fine for me. Thank you all!