Bas je préfére pas donner la source, c'est énorme et je pense pas que tu prendera le temps de la lire et de la comprendre.
J'ai une liste qui ce nomme list2, elle contient 6 headers.
Lors d'ouverture de certains fichiers, je complète cette liste du genre:
'Parcours fichiers
For i = 0 To Combo1.ListCount - 1
Open App.Path & "\bin\track" & Combo1.List(i) & ".txt" For Input As #2
Do While Not EOF(2)
Line Input #2, text
'Si tempo
If (InStr(text, "T") <> 0) Then
list2.ListItems.Add = "T"
l = list2.ListItems.Count
'Début
list2.ListItems.Item(l).SubItems(1) = Val(ExtractData(InStr(text, "P") + 1, text))
'bpm
list2.ListItems.Item(l).SubItems(4) = Val(ExtractData(InStr(text, "B") + 1, text))
Else
'Si note
list2.ListItems.Add = "N"
l = list2.ListItems.Count
'Début
list2.ListItems.Item(l).SubItems(1) = Val(ExtractData(InStr(text, "P") + 1, text))
'Durée
list2.ListItems.Item(l).SubItems(2) = Val(ExtractData(InStr(text, "U") + 1, text))
'Note
list2.ListItems.Item(l).SubItems(3) = ExtractData(InStr(text, "A") + 1, text)
'Octave
list2.ListItems.Item(l).SubItems(4) = Val(ExtractData(InStr(text, "o") + 1, text))
'Fin
list2.ListItems.Item(l).SubItems(5) = Val(list2.ListItems.Item(l).SubItems(1)) + Val(list2.ListItems.Item(l).SubItems(2))
End If
Loop
Close #2
DoEvents
ProgressBar.Value = i
Next i
Close
La fonction ExtractData recherche juste des données, cette fonction marche correctement.
Bref, lorsque je démarre le programme, cette liste ce remplie correctement mais dès lors que je l'efface avec list2.listitems.clear, il met impossible de compléter les headers.