Comment enregistrer plusieurs "Text"(text1.text, text2.text ,...) dans un seul f

Signaler
-
Messages postés
355
Date d'inscription
mercredi 13 avril 2011
Statut
Membre
Dernière intervention
15 juin 2019
-
Je cherche comment je peux enregistrer les données contenues dans plusieurs "Text" (text1.text, text2.text,...) dans 1 seul fichier et comment je pourrais le réouvrir. Aidez-moi svp !!!

Olisoft

4 réponses

salut bonne question ?

'tu voie i y a 12 text box sa c'est pour les ouvrir
'directement lorsque ton prog est lancer
'tu peut mettre sa dans command1_click.(bouton)
'-------------------------------------------------------
Private Sub Form_Load()
Dim f As Integer
Dim alarme As String

'sa c'est le chemin carnet\alarme.dat sa por etre (.txt)

alarme = App.Path & "\carnet\alarme.dat"
f = FreeFile
Open alarme For Input As f ' Ouvre le fichier

'Open alarme For Input As f ' Ouvre le fichier.
Input #f, a
Text1 = a
Input #f, B
Text2 = B
Input #f, C
Text3 = C
Input #f, D
Text4 = D
Input #f, E
Text5 = E
Input #f, U
Text6 = U
Input #f, G
Text7 = G
Input #f, h
Text8 = h
Input #f, I
Text9 = I
Input #f, J
Text10 = J
Input #f, K
Text11 = K
Input #f, L
Text12 = L
Close #f
End Sub
'------------------------------
sa c'etais pour le chargement
maintenant voyons pour l'ecriture pas plus compliqué
'------------------------------
Private Sub command1_Click()
Dim f As Integer
Dim alarme As String
alarme = App.Path & "\carnet\alarme.dat"
f = FreeFile
Open alarme For Output As f ' Ouvre le fichier.
Write #f, Text1.Text
Write #f, Text2.Text
Write #f, Text3.Text
Write #f, Text4.Text
Write #f, Text5.Text
Write #f, Text6.Text
Write #f, Text7.Text
Write #f, Text8.Text
Write #f, Text9.Text
Write #f, Text10.Text
Write #f, Text11.Text
Write #f, Text12.Text
Close #f
End Sub
'-----------------------------
Messages postés
270
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
11 juillet 2007

heu... ouai ou sinon beaucoup plus court :

Open Var2 For Output As #1
Print #1, Text1.Text & Text2.Text & Text3.Text
Close #1


Ca marche aussi bien...
Messages postés
77
Date d'inscription
vendredi 21 novembre 2003
Statut
Membre
Dernière intervention
7 mars 2007

non, alors ce serait :

Open Var2 For Output As #1
Print #1, Text1.Text & vbcrlf & Text2.Text & vbcrlf & Text3.Text
Close #1

Vbguigui
Messages postés
355
Date d'inscription
mercredi 13 avril 2011
Statut
Membre
Dernière intervention
15 juin 2019
9
Salut,phil
Ton code est bon mais avec le mode d'accès de output ce n'est pas vrai:
Pcq OutPut Creé un fichier s'il n'existe et le detruit s'il existe donc si ce fichier que tu veux écrire existe avec ta methode ce fichier sera detruit,Plutôt utilise le Mode d'accès "For Append" là tu pourras réecrire