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 818 fois - Téléchargée 45 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

30 avril 2011 à 18:32
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

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

14 avril 2006 à 02:42
[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

14 avril 2006 à 02:12
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

14 avril 2006 à 02:12
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!
Afficher les 11 commentaires

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.