Sauvgardes dans les fichiers textes

Résolu
Signaler
Messages postés
10
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
22 mai 2009
-
Messages postés
2813
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
-
bonjour,

j'aimerai afficher ce qui c'est dnas un fichier texte, j'ai utiliser

Open IIf(Right(App.Path, 1) = "", App.Path, App.Path & "") & "\sauvgardes\ste.txt" For Input As #qnrn

Line Input #qnrn, sBuffer
Print sBuffer

mais elle m'affiche juste la premier ligne, comment faire pour afficher tout ,

MERCI.

2 réponses

Messages postés
2813
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
38
Salut,

Il y a plusieurs façon d'ouvrir un fichier en vb (séquencielle, random, binaire)

Perso j'utilise plus souvant la méthode binaire :

Dim Filename As String
Filename = "teste.txt"



Dim FF As Integer
FF = FreeFile



Dim Buffer As String
Buffer = String(FileLen(Filename), 0)



Open Filename For Binary Access Read As #FF
Get #FF, , Buffer
Close #FF



Text1.Text = Buffer

@+ !
Messages postés
2813
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
38
 Ah j'oublais,

Pour écrire cela te servira peut être :

Dim Filename As String
Filename = "teste.txt"



Dim FF As Integer
FF = FreeFile



Dim Buffer As String
Buffer = "Données à écrire"



Open Filename For Binary Access Write As #FF
Put #FF, , Buffer
Close #FF

Mayzz.