filelistbox (comparaison?)Résolu

Question

slt!
comment fait on pour enregistrer le contenu d'un filelistbox dans un fichier texte et par la suite pour comparer le contenu du fichier text avec ma filelistbox?
merci c'est asser imporatant pour moi de savoir ca
voila  :)  
VirusMan :-p

pcpunch · Accepted Answer

Oopps dsl j'avais oublie de reinitialisé la variable existe :


Private Sub Command1_Click()
'enregistrement du contenu la filelistbox dans un fichier
Open App.Path & "/fichier.txt" For Output As #1
For i = 0 To File1.ListCount - 1
Write #1, File1.List(i)
Next i
Close #1
End Sub

Private Sub Command2_Click()
'ouverture et stockage des fichiers dans un tableau
Dim TabFic() As String, X As Integer
Open App.Path & "/fichier.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve TabFic(X)
Input #1, TabFic(X)
X = X + 1
Loop
Close #1

'comparaison
Dim Existe As Boolean
Existe = False
For i = 0 To File1.ListCount - 1
    For a = 0 To UBound(TabFic)        If File1.List(i) TabFic(a) Then Existe True: Exit For
    Next a
If Existe Then MsgBox File1.List(i) & " Existe dans le fichier" Else _
MsgBox File1.List(i) & " n'existe pas dans le fichier"
Existe = False
Next i

End Sub

pcpunch · Answer

Ci dessus un exemple vite fait !!!!


Private Sub Command1_Click()
'enregistrement du contenu la filelistbox dans un fichier
Open App.Path & "/fichier.txt" For Output As #1
For i = 0 To File1.ListCount - 1
Write #1, File1.List(i)
Next i
Close #1
End Sub

Private Sub Command2_Click()
'ouverture et stockage des fichiers dans un tableau
Dim TabFic() As String, X As Integer
Open App.Path & "/fichier.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve TabFic(X)
Input #1, TabFic(X)
X = X + 1
Loop
Close #1

'comparaison
Dim Existe As Boolean
Existe = False
For i = 0 To File1.ListCount - 1
    For a = 0 To UBound(TabFic)        If File1.List(i) TabFic(a) Then Existe True: Exit For
    Next a
If Existe Then MsgBox File1.List(i) & " Existe dans le fichier" Else _
MsgBox File1.List(i) & " n'existe pas dans le fichier"
Next i

End Sub


++

CCJ · Answer

merci beaucoup!
ca m'est vraimment utile en plus ca fait du bien a savoir!
VirusMan :-p

Filelistbox (comparaison?)

3 réponses

Discussions similaires