1D to 2D then filling List

[Jayson]

Hello guys,

I'm filling an array using _FileReadToArray then using stringplit and put everything into a 2D array.

Everything goes fine I got all my data there but when comes the time to load it into an list it only load 4 lines.

Here's the code

expandcollapse popup

#include <File.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <GuiListBox.au3>

Global $songs
_FileReadToArray(@ScriptDir "Playlist - Copie.ini", $songs) ; Lecture du fichier dans le tableau.
;_ArrayDisplay($songs)

Global $r_songs[$songs[0]][2] ; Préparation tableau2
;_ArrayDisplay($r_songs)

$Mp3 = GUICreate("Mp3 List", 300, 225, -1, -1)
$LV = GUICtrlCreateList("", 5, 100, 290, 130)

For $i = 1 To $songs[0] ; Boucle l'array songs
    Local $s_songs = StringSplit($songs[$i], "=") ; Séparation des éléments
    $r_songs[$i - 1][0] = $s_songs[1] ; Mémorisation dans le tableau2 de la valeur 1
    $r_songs[$i - 1][1] = $s_songs[2] ; Mémorisation dans le tableau2 de la valeur 2
Next
_ArrayDisplay($r_songs)

For $i = 0 To $r_songs[0][0]
    ;_ArrayDisplay($r_songs)
    ;ConsoleWrite($i)
    GUICtrlSetData($LV, $r_songs[$i][0])
Next

GUISetState(@SW_SHOW, $Mp3)

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

WEnd

and the "playlist - copie.ini"

3 Days Grace - Now Or Never=E:Tounes3 Days Grace - Now Or Never.mp3
3 Doors Down - Kryptonite=E:Tounes3 Doors Down - Kryptonite.mp3
30 Seconds To Mars - Battle Of One=E:Tounes30 Seconds To Mars - Battle Of One.mp3
30 Seconds To Mars - Beautiful Lie=E:Tounes30 Seconds To Mars - Beautiful Lie.mp3
30 Seconds To Mars - Edge of the Earth=E:Tounes30 Seconds To Mars - Edge of the Earth.mp3
30 Seconds To Mars - From Yesterday=E:Tounes30 Seconds To Mars - From Yesterday.mp3
30 Seconds To Mars - I'll Attack=E:Tounes30 Seconds To Mars - I'll Attack.mp3

Edited August 5, 2012 by Jayson

[bogQ]

you dont have number as $songs[0][0]

so store array row number in it

#include <File.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <GuiListBox.au3>
Global $songs
_FileReadToArray(@ScriptDir &"\Playlist - Copie.ini", $songs) ; Lecture du fichier dans le tableau.
;_ArrayDisplay($songs)
Global $r_songs[$songs[0]+1][2] ; Préparation tableau2
;_ArrayDisplay($r_songs)
$Mp3 = GUICreate("Mp3 List", 300, 225, -1, -1)
$LV = GUICtrlCreateList("", 5, 100, 290, 130)
$r_songs[0][0] = $songs[0]
For $i = 1 To $songs[0] ; Boucle l'array songs
Local $s_songs = StringSplit($songs[$i], "=") ; Séparation des éléments
$r_songs[$i][0] = $s_songs[1] ; Mémorisation dans le tableau2 de la valeur 1
$r_songs[$i][1] = $s_songs[2] ; Mémorisation dans le tableau2 de la valeur 2
Next
_ArrayDisplay($r_songs)
For $i = 1 To $r_songs[0][0]
;_ArrayDisplay($r_songs)
;ConsoleWrite($i)
GUICtrlSetData($LV, $r_songs[$i][0])
Next
GUISetState(@SW_SHOW, $Mp3)
While 1
Switch GUIGetMsg()
     Case $GUI_EVENT_CLOSE
         Exit
EndSwitch
WEnd

the other simpler solution is for you to use properly formed ini file with section name

and then use IniReadSection

IniReadSection
Returns a 2 dimensional array where element[n][0] is the key and element[n][1] is the value.
The number of elements returned will be in $result[0][0].

so that you will not have need to recreate array and other things

#include <File.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <GuiListBox.au3>
$songs = IniReadSection ( "Playlist - Copie.ini", "datasection" )
$Mp3 = GUICreate("Mp3 List", 300, 225, -1, -1)
$LV = GUICtrlCreateList("", 5, 100, 290, 130)
_ArrayDisplay($songs)
For $i = 1 To $songs[0][0]
    GUICtrlSetData($LV, $songs[$i][0])
Next
GUISetState(@SW_SHOW, $Mp3)
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

inifile

[datasection]
3 Days Grace - Now Or Never=E:\Tounes\3 Days Grace - Now Or Never.mp3
3 Doors Down - Kryptonite=E:\Tounes\3 Doors Down - Kryptonite.mp3
30 Seconds To Mars - Battle Of One=E:\Tounes\30 Seconds To Mars - Battle Of One.mp3
30 Seconds To Mars - Beautiful Lie=E:\Tounes\30 Seconds To Mars - Beautiful Lie.mp3
30 Seconds To Mars - Edge of the Earth=E:\Tounes\30 Seconds To Mars - Edge of the Earth.mp3
30 Seconds To Mars - From Yesterday=E:\Tounes\30 Seconds To Mars - From Yesterday.mp3
30 Seconds To Mars - I'll Attack=E:\Tounes\30 Seconds To Mars - I'll Attack.mp3

easy isn it?

Edited August 5, 2012 by bogQ

[Jayson]

Thank you it work very well !

I've tried using your second example with IniReadSection but it only show 400 results out of 600+

Edited August 6, 2012 by Jayson

[Jayson]

Got it fixed.. It only read 32k chars so i used to exceed that limit.