Charger, lire, enregistrer les informations d'une liste déroulante dans un fichier texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 252 fois - Téléchargée 43 fois

Contenu du snippet

Utiliser un fichier TXT avec une liste déroulante afin d'y sauvegarder des informations

Source / Exemple :


Private Sub Form_Load() 'Lis les informations contenus dans fichier.txt dans la liste déroulante au chargement
Open App.Path & "\fichier.txt" For Input As #1
While Not EOF(1)
Input #1, temp
If temp <> "" Then
ListBox.AddItem temp
End If
Wend
Close
End Sub

Private Sub Command1_Click() 'Exemple d'évènement
Open App.Path & "\fichier.txt" For Append As #1 'Ouvre fichier.txt et y rajoute la nouvelle donnée
Write #1, ListBox.Text
ListBox.AddItem (ListBox.Text) 'Met à jour la ListBox
Close
End Sub

Conclusion :


Améliorations prévues (pour plus tard :-p)

A voir également

Ajouter un commentaire

Commentaires

popstatic
Messages postés
46
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
23 juillet 2003
-
faites gaffe, ce genre de source est pas mal pour les nb mais a chaque fois il y a la même "erreur": le #1!
car ce numero permet a windows de numéroter les fichiers ouverts, or si un autre prog utilise en même temps ce même numéro, ça bug!
entre 1 et 256 => le fichier ne peut etre ouvert en même temps par une autre app
entre 257 et 512 => le fichier peut etre ouvert en même temps par une autre app
pour éviter ce genre de petit problème il vaut mieux mettre un truc comme ça
dim nfic
nfic = freefile(0) (mettre 1 si on veut permettre l'ouverture de fichier par une autre app en même temps)
Open App.Path & "fichier.txt" For Input As nfic
While Not EOF(nfic)
Input #1, temp
If temp <> "" Then
ListBox.AddItem temp
End If
Wend
Close nfic
End
comme ça plus de bug!
bonne prog!
RockmanX
Messages postés
109
Date d'inscription
dimanche 23 décembre 2001
Statut
Membre
Dernière intervention
26 octobre 2007
-
et si tu veux supprimer un truc de la list tu le gère comment?
Sibelle07
Messages postés
206
Date d'inscription
dimanche 14 septembre 2003
Statut
Membre
Dernière intervention
25 mars 2005
-
Lol
tu fait
List1.clear
cs_PaTaTe
Messages postés
1878
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
7 janvier 2019
-
Dans le meme exemple Comment geres-tu les doublons dans le fichiers texte?
kooper
Messages postés
4
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
18 janvier 2005
-
Salut pourrais tu commenter cela

Input #1, temp

surtout temp

Je sais qu'on utilise input pour la lecture mais c'est quoi
temp?

je sais également qu'apres la virgule c'est ce qu'il doit lire mais quoi ? Je ne comprend pas

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.