Comment enregistrer le contenu d'une ListBox dans un fichier txt ?
Sab
-
6 avril 2001 à 11:42
cs_rocky42 Messages postés 97 Date d'inscription jeudi 28 juin 2007 Statut Membre Dernière intervention 7 mars 2011 - 16 mars 2009 à 23:24
cs_rocky42 Messages postés 97 Date d'inscription jeudi 28 juin 2007 Statut Membre Dernière intervention 7 mars 2011 - 16 mars 2009 à 23:24
A voir également:
- Comment enregistrer le contenu d'une ListBox dans un fichier txt ?
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Appeler un fichier javascript dans une page html - Conseils pratiques -Javascript
- Afficher le contenu d'un fichier en c ✓ - Forum C / C++ / C++.NET
4 réponses
salut,
si c est un fichier à accès séquentiel, ex pour ajouter le texte de ta listbox(listbox1) à la fin du fichier :
open "tonfichier" for append as #1
print #1,listbox1.text
close
tu peux aussi utiliser write #1,listbox1.text
la diff entre les deux c est les guillemets
a+
si c est un fichier à accès séquentiel, ex pour ajouter le texte de ta listbox(listbox1) à la fin du fichier :
open "tonfichier" for append as #1
print #1,listbox1.text
close
tu peux aussi utiliser write #1,listbox1.text
la diff entre les deux c est les guillemets
a+
gmailhind
Messages postés
10
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
6 janvier 2009
30 avril 2008 à 19:11
30 avril 2008 à 19:11
hanouda
merci pr tt ca mais moi je faut ce code en vb6
svp
merci pr tt ca mais moi je faut ce code en vb6
svp
cs_rocky42
Messages postés
97
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
7 mars 2011
16 mars 2009 à 23:24
16 mars 2009 à 23:24
Ba ces du vb6 :)
Moauis sauf qu'avec ta solution, ca enregistrera seulement le fichier sélectionné dans le listbox...
Pour tout enregistrer utilise cette commande:
Private Sub Savelist(laliste As ListBox)
Open "lefichier" For Output As #1
For i = 0 To list1.ListCount - 1
laliste.ListIndex = i
variable = laliste.Text
Print #1, variable
Next
Close 1
Close #1
End sub
Et voila
Pour tout enregistrer utilise cette commande:
Private Sub Savelist(laliste As ListBox)
Open "lefichier" For Output As #1
For i = 0 To list1.ListCount - 1
laliste.ListIndex = i
variable = laliste.Text
Print #1, variable
Next
Close 1
Close #1
End sub
Et voila
