ENREGISTRER TXT [Résolu]

Signaler
Messages postés
90
Date d'inscription
mardi 27 décembre 2005
Statut
Membre
Dernière intervention
21 juin 2009
-
Messages postés
90
Date d'inscription
mardi 27 décembre 2005
Statut
Membre
Dernière intervention
21 juin 2009
-
Bonsoir a toutes et tous je voudrer savoir comment enregistrer en fichier text le contenue d'une ListBox sou Visual Basic Express 2005?

Avant sous Visual Basic 6 le code était:

Open "C:"Text
ote.TXT" For Output As #1
Print #1, Text1.Text
Close #1

Mais dommaget il ne fonctionne plus sous VB 2005

quelq'un pourait t'il me renseigner? SVP

Merci d'avance a toutes et tous!

s@m

7 réponses

Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
Salut,
voici un bout de code qui fonctionne avec VS2005 :

Dim

sWriter
As IO.StreamWritersWriter = FileIO.FileSystem.OpenTextFileWriter(

"C:\test.txt",
True)

With sWriter.Write(Text1.Text)

.Flush()

End
With

<hr />
@+  
Messages postés
244
Date d'inscription
mercredi 13 avril 2005
Statut
Membre
Dernière intervention
21 octobre 2013

Ne pas oublier les imports au cas ou : Imports System.IO
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
ce n'est pas inidspensable ici puisque j'ai mis IO. devant StreamWriter.


Mais c'es vrai que ça serait plus "propre" de mettre 'Imports System.IO' en entête de fichier





<hr />

@+  
Messages postés
165
Date d'inscription
mardi 7 mars 2006
Statut
Membre
Dernière intervention
24 avril 2018

Salut sam469 ...

Il existe bien plus simple que tous ce 'bignou',

Cet exemple utilise la fonction Print pour écrire des données dans un fichier.

FileOpen(1, "c:\trash.txt", OpenMode.Output)   ' Open file for output.
Print(1, "This is a test.")   ' Print text to file.
FileClose(1)   ' Close file.

Cela ne te rappelle rien ? 
Dans VB.Net    ils ont inversé quelques mots dans les procédures, mais le principe reste le même !! 

Voilà ... à plus !!!

Je comprends vite mais il faut m'expliquer longtemps et tout en détails !!!
Messages postés
165
Date d'inscription
mardi 7 mars 2006
Statut
Membre
Dernière intervention
24 avril 2018

Salut !!

une simple boucle devrait faire l'affaire ...  essaye cela  !!
__________________________________________________________________________




Dim enr as String
Dim i as Integer

FileOpen(1, "c:\trash.txt", OpenMode.Output)  

' Open file for output.





For

i = 0 To ListBox1.Items.Count - 1 ' Début de Boucle, à partir de la ligne index 0 et ce, jusqu'à la dernière
enr = l1.Items.Item(i) ' Extraction de la ligne en cours

Print(1, enr)  

' Print enr to file.




Next ' Fin de Boucle







FileClose(1)  

' Close file.



à plus !!

Je comprends vite mais il faut m'expliquer longtemps et tout en détails !!!
Messages postés
90
Date d'inscription
mardi 27 décembre 2005
Statut
Membre
Dernière intervention
21 juin 2009
1
Merci  a tous pour votre aide,ta metode "erefdataconputing" marche a merveille,mais n'aurait tu pa une ider pour  enregistrer le contenue d'une listbox? a la place de

Print(1, "This is a test.")

ou sinon sauter une ligne!

Merci d'avance pour ton aide et votre aide!

s@m
Messages postés
90
Date d'inscription
mardi 27 décembre 2005
Statut
Membre
Dernière intervention
21 juin 2009
1
Merci pour ta reponse "erefdataconputing"

C'est exactement sa que je rechercher

Merci encore a tou,et a toi erefdataconputing

s@m