'Trie a l'aide d'un listbox 'Propriété Sorted=true '-------------------------- Dim NonPris As Integer, Passage As Integer, Tmp As String Dim Sens As Integer '0=A>Z 1=Z>A NonPris = 1 'ne prend pas les 2 premiere ligne Sens = 1 '0=A>Z 1=Z>A 'Lecture du fichier dans un tableau Dim Ligne() As String, X As Integer Open "c:\fichier.txt" For Input As #1 Do While Not EOF(1) Passage = Passage + 1 Line Input #1, Tmp If Passage > NonPris Then DoEvents ReDim Preserve Ligne(X) Ligne(X) = Tmp X = X + 1 End If Loop Close #1 'affichage dans le listbox avec verification des doublons Dim Existe As Boolean Existe = False For i = 0 To UBound(Ligne) For a = 0 To List1.ListCount - 1 If Ligne(i) List1.List(a) Then Existe True: Exit For Next a If Not Existe Then List1.AddItem Ligne(i) Existe = False Next i 'Sens d'affichage du tableau Dim Trie() As String X = 0 Select Case Sens Case 0 'Sens A>Z For i = 0 To List1.ListCount - 1 ReDim Preserve Trie(X) Trie(X) = List1.List(i) X = X + 1 Next i Case 1 'Sens Z>A For i = List1.ListCount - 1 To 0 Step -1 ReDim Preserve Trie(X) Trie(X) = List1.List(i) X = X + 1 Next i End Select 'Affichage dans text1 Text1 = vbNullString For i = 0 To UBound(Trie) Text1 = Text1 & Trie(i) & vbCrLf Next i
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question