1 2 3 4 5 6 7 8 9 10 11 12
| Public Sub LocaliseCat()
ListBox1.Items.Clear()
LauncherIni = File.ReadAllLines(fichier) 'On le copie dans le tableau
IndexMenu = Array.IndexOf(LauncherIni, "Type: separator; Caption: Logiciels") ' on localise la ligne précédant les rubriques
MsgBox(IndexMenu.ToString)
IndexMenu = IndexMenu + 1 'On positionne sur le 1er logiciel
While Not LauncherIni(IndexMenu).Contains("separator")
Decoupe = LauncherIni(IndexMenu).Split(":")
ListBox1.Items.Add(LTrim(Decoupe(3)) + ":" + IndexMenu.ToString)
IndexMenu = IndexMenu + 1
End While
End Sub |