Lecture de fichier

Question

Bonjour,

Comment puis-je copier une liste de mots dans un fichier texte (ex. : c:/essai.txt) dans une listbox d'une appli ?

Merci

NitRic · Answer

Sauvegarder et Restaurer le contenue d'une ListBox, exemple:

' Sauvegarde:
Private Sub cmdSauvegarde_Click()

Dim Boucle As Long
Dim lFile As Long
Dim Fichier As String

' Le fichier dans lequel on va sauvegarder les Items de la ListBox
Fichier = "C:\Mon fichier.txt"

' Demande un numéro de fichier non utilisé
lFile = FreeFile

' Ouvre le fichier en écriture(supprime le contenue précédent)
Open Fichier For Output As #lFile

' Passe les items de la ListBox un à un
For Boucle = 0 To LisBox1.ListCount - 1

' Sauvegarder l'item de la ListBox pointer par Boucle
Print #lFile, ListBox1.List(Boucle)

' Passe au suivant
Next Boucle

' Ferme le fichier
Close #lFile

' C'est terminer !
MsgBox "ListBox Sauvegarder !!!", "Terminer", vbOk + vbExclamation

End Sub

' Restaurer:
Private Sub cmdCharger_Click()

Dim lFile As Long
Dim Fichier As String
Dim Temp As String

' Le fichier dans lequel ce trouve les items à restaurer
Fichier = "C:\Mon fichier.txt"

' Demande un numéro de fichier non utilisé
lFile = FreeFile

' Ouvre le fichier en lecture seulement
Open Fichier For Input As #lFile

' Passe chaque ligne du fichier une à une
Do

' Récupère la ligne pointer dans le fichier
Line Input #lFile, Temp

' L'ajoute dans la ListBox
ListBox1.AddItem Temp

' Passe à la suivante
Loop Until EOF(lFile)

' Ferme le fichier
Close #lFile

' C'est terminer !
MsgBox "Restauration Terminer !!!", "Terminer", vbOk + vbExclamation

End Sub

' En cas de problème(s) ou autres: url="mailto:NitRic28@Hotmail.com"]NitRic/url

Lecture de fichier

1 réponse

Discussions similaires