[VB6] Sauvegarde et ouverture de fichier

Question

Bonjour,


J'ai voudrai cr&#233;er un systeme qui sauvegarde dans un fichier text pour pouvoir ensuite le r&#233;ouvrir.
En fait je prend les informations dans des textbox pour les mettres dans un fichier texte.
Par la suite je voudrai que chaque information reprenne sa place en ouvrant le fichier texte.

voici le code pour sauvegarder :

Private Sub sauv_Click()
                        'D&#233;finition des propri&#233;t&#233;s de la bo&#238;te de dialogue
With CommonDialog1
       .DialogTitle = "Enregistrer le fichier sous..."
       .CancelError = True
       .Filter = "Texte(*.txt)|*.txt|Fichier PLS(*.Pls)|*.Pls|Tous(*.*)|*.*"
       .FilterIndex = 1
       .InitDir = "C:"
       .FileName = "Nouveau.txt"
       .ShowSave
 l = 1
 Open .FileName For Output As #2
        Print #2, l, Cons1.Text
    l = l + 1
        Print #2, l, cons2.Text
    l = l + 1
        Print #2, l, cons3.Text
     l = l + 1
        Print #2, l, cons4.Text
    l = l + 1
        Print #2, l, cons5.Text
    l = l + 1
        Print #2, l, consvit.Text
    Close #2
        End With
ENd sub

Comment je vai pouvoir venir chercher mes informations maintenant ??

crossblade · Answer

il faut faire open .filename for input as #2 input #2, cons1.text = x(chaque ligne) si t'as un Option Explicit tu dois déclarer toutes tes variables dans ton private sub...

crossblade · Answer

il faut faire
open .filename for input as #2
input #2, <le nom que tu veux>
cons1.text = le nom que tu veux

x(chaque ligne)

si t'as un Option Explicit tu dois d&#233;clarer toutes tes variables dans ton private sub...

crossblade · Answer

pardon pour les postes mais il ne prend pas en compte le saut de ligne le forum, enfin chez moi

Flachy Joe · Answer

Par ailleur donner le numero d'enregistrement est inutile, si tu l'omet, c'est enregistr&#233; &#224; la suite :
        Print #2, , Cons1.Text
        Print #2, , cons2.Text
        Print #2, , cons3.Text
        Print #2, , cons4.Text
        Print #2, , cons5.Text
        Print #2, , consvit.Text

[;)] Flachy Joe [;)]

renardfou24 · Answer

OK et pour venir chercher les valeurs ensuite afin de les remettres &#224; leurs places avec commondialog ??
Comment faut faire ???

[VB6] Sauvegarde et ouverture de fichier

5 réponses

Votre réponse

Discussions similaires