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

Question

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

Signaler

Olisoft - 18 août 2000 à 21:57
DevLama

Messages postés: 355
Date d'inscription: mercredi 13 avril 2011
Statut: Membre
Dernière intervention: 15 juin 2019

- 5 déc. 2011 à 16:59

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

A voir également:

Text2text
Text2 - Meilleures réponses
Text1 - Meilleures réponses
Enregistrement de texte dans une base sql + affichage de cette base (debutant) - Codes sources - PHP (SQL)
Visual Basic / VB.NET : Tutorial : enrégistrer du texte et le rechercher dans un .txt - CodeS - Guide
Enregistrer le texts d'une textbox dans l'application ✓ - Forum - VB.NET
Onclick sur image et enregistrement fichier texte (php) ✓ - Forum - PHP
Visual Basic / VB.NET : Lis 2 premium afficher du texte sur lcd a.f.c - CodeS SourceS - Guide

4 réponses

Posez votre question

phil · Answer 1 · 2001-05-19T15:37:26+0200

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 2 · 2004-07-16T16:40:19+0200

Réponse 2 / 4

quiaimeflash

Messages postés: 270
Date d'inscription: samedi 29 novembre 2003
Statut: Membre
Dernière intervention: 11 juillet 2007

16 juil. 2004 à 16:40

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 3 · 2005-04-06T21:00:55+0200

Réponse 3 / 4

vbguigui

Messages postés: 77
Date d'inscription: vendredi 21 novembre 2003
Statut: Membre
Dernière intervention: 7 mars 2007

6 avril 2005 à 21:00

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 4 · 2011-12-05T16:59:00+0100

Réponse 4 / 4

DevLama

Messages postés: 355
Date d'inscription: mercredi 13 avril 2011
Statut: Membre
Dernière intervention: 15 juin 2019

9
5 déc. 2011 à 16:59

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

Votre réponse