ENREGISTRER TXT

Résolu
cs_sam469 Messages postés 90 Date d'inscription mardi 27 décembre 2005 Statut Membre Dernière intervention 21 juin 2009 - 2 août 2006 à 20:05
cs_sam469 Messages postés 90 Date d'inscription mardi 27 décembre 2005 Statut Membre Dernière intervention 21 juin 2009 - 7 août 2006 à 20:41
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

cs_drahcir Messages postés 745 Date d'inscription mardi 30 novembre 2004 Statut Membre Dernière intervention 15 septembre 2009 4
3 août 2006 à 09:00
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 />
@+  
3
tinux Messages postés 244 Date d'inscription mercredi 13 avril 2005 Statut Membre Dernière intervention 21 octobre 2013
3 août 2006 à 11:42
Ne pas oublier les imports au cas ou : Imports System.IO
3
cs_drahcir Messages postés 745 Date d'inscription mardi 30 novembre 2004 Statut Membre Dernière intervention 15 septembre 2009 4
3 août 2006 à 11:48
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 />

@+  
3
erefdatacomputing Messages postés 165 Date d'inscription mardi 7 mars 2006 Statut Membre Dernière intervention 24 avril 2018
6 août 2006 à 00:35
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 !!!
3

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
erefdatacomputing Messages postés 165 Date d'inscription mardi 7 mars 2006 Statut Membre Dernière intervention 24 avril 2018
7 août 2006 à 08:52
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 !!!
3
cs_sam469 Messages postés 90 Date d'inscription mardi 27 décembre 2005 Statut Membre Dernière intervention 21 juin 2009 1
6 août 2006 à 19:24
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
0
cs_sam469 Messages postés 90 Date d'inscription mardi 27 décembre 2005 Statut Membre Dernière intervention 21 juin 2009 1
7 août 2006 à 20:41
Merci pour ta reponse "erefdataconputing"

C'est exactement sa que je rechercher

Merci encore a tou,et a toi erefdataconputing

s@m
0