IniReadSection: Problem with big INI file

[Trong]

==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.
 

Global $INIFile = @ScriptDir & '\IniCheck.ini'
Global $NumKEY = 5000
Global $randomDataLen = 10

FileDelete($INIFile)
FileWriteLine($INIFile, '[Ciao]')
For $i = 1 To $NumKEY
    FileWriteLine($INIFile, "Aloha[" & $i & ']=' & danRom($randomDataLen))
;~      If (FileGetSize($INIFile) / 1024) >= 64 Then
;~          ExitLoop
;~      EndIf
Next
Local $i, $aArray = IniReadSection($INIFile, 'Ciao')
ConsoleWrite('Section Read Test:' & $aArray[$NumKEY][0] & "=" & $aArray[$NumKEY][1] & @CRLF)

;~ For $i = 1 To $aArray[0][0]
;~    ConsoleWrite('Section Read Test:'& $aArray[$i][0] &"=" & $aArray[$i][1] &@CRLF)
;~ Next

Func danRom($digits = 15)
    Local $pwd = ""
    Dim $aSpace[3]
    For $i = 1 To $digits
        $aSpace[0] = Chr(Random(65, 90, 1)) ;A-Z
        $aSpace[1] = Chr(Random(97, 122, 1)) ;a-z
        $aSpace[2] = Chr(Random(48, 57, 1)) ;0-9
        $pwd &= $aSpace[Random(0, 2, 1)]
    Next
    Return $pwd
EndFunc   ;==>danRom

What IniReadSection limit ?


 

[Melba23]

Trong,

Windows limits the size of any section to 32k - when I run your code I only get 1472 elements filled when I run IniReadSection. You will need to write your own function or change the whole script to read the data another way. >

And your code to fill the ini file is horribly inefficient as you are opening and closing the file each time you write a line. It would be much better to do something like this:

; Start the data with the section name
$sData = '[Ciao]' & @CRLF
For $i = 1 To $NumKEY
    ; Add the lines one at a time
    $sData &= "Aloha[" & $i & ']=' & danRom($randomDataLen) & @CRLF
Next
 Remove final @CRLF
$sData = StringTrimRight($sData, 2)

FileDelete($INIFile)
; And write the whole thing in one go
FileWrite($INIFile, $sData)

M23

[DXRW4E]

Ciao.