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 322 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

NEHOSS
Messages postés
9
Date d'inscription
vendredi 10 octobre 2003
Statut
Membre
Dernière intervention
10 décembre 2005

je cherchais quelques chose de simple c'est parfait merci.
alloushe123
Messages postés
1
Date d'inscription
jeudi 29 juin 2006
Statut
Membre
Dernière intervention
29 juin 2006

tryrereyz
lazlolb
Messages postés
23
Date d'inscription
dimanche 19 mars 2006
Statut
Membre
Dernière intervention
20 janvier 2007

[Scusez pour les 2 envois!?!]
lazlolb
Messages postés
23
Date d'inscription
dimanche 19 mars 2006
Statut
Membre
Dernière intervention
20 janvier 2007

Ouais mais à chaque fois que j'ai inséré une donnée à ma liste et que j'ouvre l'application après ça marche pas. Il faut que je delete le contenu de la liste manuellement (genre ouvrir le fichier texte et Ctrl+A puis Suppr). Pourquoi ça fait ça et comment éviter!
lazlolb
Messages postés
23
Date d'inscription
dimanche 19 mars 2006
Statut
Membre
Dernière intervention
20 janvier 2007

Ouais mais à chaque fois que j'ai inséré une donnée à ma liste et que j'ouvre l'application après ça marche pas. Il faut que je delete le contenu de la liste manuellement (genre ouvrir le fichier texte et Ctrl+A puis Suppr). Pourquoi ça fait ça et comment éviter!

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.