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

Question

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

phil · Answer

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
'-----------------------------

quiaimeflash · Answer

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...

vbguigui · Answer

non, alors ce serait : 

Open Var2 For Output As #1
Print #1, Text1.Text & vbcrlf & Text2.Text & vbcrlf & Text3.Text
Close #1

Vbguigui

DevLama · Answer

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

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

4 réponses

Discussions similaires