Writing to ini

[edisom]

I am now working on writing to ini file.

It looks like this:

[Config]
1=username1 pass1
2=username2 pass2

I am trying to read the biggest key

Local $aArray = IniReadSection("config.ini","Config")
MsgBox(1," ",_ArrayMax($aArray,1))

But it is not working.

I want to read key number to add 1 and write new data to ini with +1 key. 

[Melba23]

edisom,

_ArrayMax only works on 1D arrays - so you will have to extract the key values like this:

#include <Array.au3>

; Load the 2D array from the ini file
Local $aArray = IniReadSection("config.ini", "Config")
_ArrayDisplay($aArray, "2D Array", Default, 8)

; Create and fill 1D array with the key values
Local $a1D_Array[UBound($aArray)]
For $i = 0 To UBound($aArray) - 1
    $a1D_Array[$i] = $aArray[$i][0]
Next
_ArrayDisplay($a1D_Array, "1D Array", Default, 8)

; Find highest value
MsgBox(1, " ", _ArrayMax($a1D_Array, 1))

All clear?

M23

[edisom]

That is working like a charm . Next step is to   

Local $a1D_Array[UBound($aArray)] 
For $i = 0 To UBound($aArray) - 1   
  $a1D_Array[$i] = $aArray[$i][1] 
Next 
_ArrayDisplay($a1D_Array, "1D Array", Default, 8)
; I have got here Ini values
GUICtrlSetData($List1,$a1D_Array)

I'd like to set Ini values this time to ListBox

I predict I need to create a loop for that:P And list options are separated with |

PS. Whats the code for colorful code?

Edited January 12, 2014 by edisom

[Melba23]

edisom,

You have a couple of possibilities - I explain both in this post. Please ask if you have any questions about the code therein.

M23

[edisom]

Thx for help. Now Ive got here problem. I dont know if i understand loops well.

Such error occurs:

 ==> Array variable subscript badly formatted.:

Local $b1D_Array[uBound($bArray)]

Local $b1D_Array[^ ERROR

Func _addtxt()
 
$path = FileOpenDialog("Import form txt",@DesktopDir,"(*.txt)")
$read = FileRead($path)
$read1 = StringReplace($read,":"," ")
$split = StringSplit($read1,@CR)
_ArrayDisplay($split)
 
For $i=1 to  $split[0]
$bArray = IniReadSection("config.ini", "Config")
 
 
; Create and fill 1D array with the key values
        Local $b1D_Array[UBound($bArray)]
        For $o = 0 To UBound($bArray) - 1
$b1D_Array[$o] = $bArray[$o][0]
        Next
 
 
        ; Find highest value
$max = _ArrayMax($b1D_Array, 1)
global $maxplusforread = $max+1
$sDate = @MDAY & "/" & @Mon & "/" & StringRight(@Year, 2)
IniWrite("config.ini","Config",$maxplusforread,$sDate&" "&$split[$i]&" |")
 
 
 
Next
 
Call("_refresh")
EndFunc

[michaelslamet]

 

Thx for help. Now Ive got here problem. I dont know if i understand loops well.

Such error occurs:

 ==> Array variable subscript badly formatted.:

Local $b1D_Array[uBound($bArray)]

Local $b1D_Array[^ ERROR

Func _addtxt()
 
$path = FileOpenDialog("Import form txt",@DesktopDir,"(*.txt)")
$read = FileRead($path)
$read1 = StringReplace($read,":"," ")
$split = StringSplit($read1,@CR)
_ArrayDisplay($split)
 
For $i=1 to  $split[0]
$bArray = IniReadSection("config.ini", "Config")
 
 
; Create and fill 1D array with the key values
        Local $b1D_Array[UBound($bArray)]
        For $o = 0 To UBound($bArray) - 1
$b1D_Array[$o] = $bArray[$o][0]
        Next
 
 
        ; Find highest value
$max = _ArrayMax($b1D_Array, 1)
global $maxplusforread = $max+1
$sDate = @MDAY & "/" & @Mon & "/" & StringRight(@Year, 2)
IniWrite("config.ini","Config",$maxplusforread,$sDate&" "&$split[$i]&" |")
 
 
 
Next
 
Call("_refresh")
EndFunc

 

 

Your $b1D_Array is a 2D array, so try:

Local $b1D_Array[uBound($bArray)[0]]

[jdelaney]

Here you go:

#include <File.au3>
_FileCreate("Some.ini")
FileWrite("Some.ini", "[Config]" & @CRLF & "1=username1 pass1" & @CRLF & "2=username2 pass2")
$iMax = 0
$aConfig = IniReadSection("Some.ini", "Config")
For $i = 1 To UBound($aConfig)-1
    If Number($aConfig[$i][0]) > $iMax Then $iMax = Number($aConfig[$i][0])
Next
IniWrite("Some.ini","Config",$iMax+1,"username" & $iMax+1 & " pass" & $iMax+1)
ConsoleWrite(FileRead("Some.ini") & @CRLF)

output:

[Config]
1=username1 pass1
2=username2 pass2
3=username3 pass3