Sauvegarder TEXTBOX

Hello,

Pour les boites de dialogue, jette un oeil à la faq:
http://faq.vb.free.fr/index.php?question

Pour lire/écrire les valeurs, tu as open/get/put/close
Open est documenté dans l'aide fournie avec VB.
Tu peux aussi utiliser un fichier xml (cocher Microsoft XML dans les
références). La documentation se trouve ici:
http://msdn.microsoft.com/xml/
Il existe encore bien d'autre possibilités (registre, fichiers ini, ...) en
fonction de tes besoins.

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com

"Tof" <moreauchris@wanadoo.fr> a écrit dans le message de news:
116501c49d68$a7512890$a501280a@phx.gbl

Bonjour,

J'ai un tout petit programme :
_________________________________
Option Explicit
Dim Valeur1 As Double
Dim Valeur2 As Double
Dim Valeur3 As Double
______________________________
Private Sub BoutonCalcul_Click()

Valeur1 = Val(Text1.text)
Valeur2 = Val(Text2.text)
Valeur3 = Val(Text3.text)

End Sub
_________________________________

Quand j'ai rentré mes trois valeurs je voudrai à l'aide
d'un bouton commande sauvegarder ces 3 "Textbox"à l'aide
d'une boite de dialogue sous forme de fichier et pouvoir
biensur placer ce fichier dans un répertoire.

Puis à l'aide d'un autre bouton commande pouvoir
récupérer ces 3 valeurs en cliquant sur le nom du fichier
créé précedemment.

Je n'ai aucune idée de la façon de faire.

Si quelqu'un pouvait m'écrire un petit topo, cela serait
sympa.

Merci à vous ! !

Merci d'avoir répondu ! !

Voila ce que j'ai fait pour l'instant....Le problème est
que lorsque j'ouvre mon fichier .txt je ne vois que des
caractère du type "&, @". Si tu peux m'aider à faire
évoluer ce petit programme :

Option Explicit

Dim F As Integer

Dim Valeur1 As Double
Dim Valeur2 As Double
Dim Valeur3 As Double

Dim r1 As Double
Dim r2 As Double
Dim r3 As Double

Private Sub BtSave_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F

r1 = Val(Resultat1.text)
r2 = Val(Resultat2.text)
r3 = Val(Resultat3.text)

Resultat1 = r1
Resultat2 = r2
Resultat3 = r3

Put F, , r1
Put F, , r2
Put F, , r3
Close F
End Sub

Private Sub BtOpen_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F
Get F, , r1
Get F, , r2
Get F, , r3
Close F
End Sub

Merci.

-----Message d'origine-----
Hello,

Pour les boites de dialogue, jette un oeil à la faq:
http://faq.vb.free.fr/index.php?question=90

Pour lire/écrire les valeurs, tu as open/get/put/close
Open est documenté dans l'aide fournie avec VB.
Tu peux aussi utiliser un fichier xml (cocher Microsoft

XML dans les

références). La documentation se trouve ici:
http://msdn.microsoft.com/xml/
Il existe encore bien d'autre possibilités (registre,

fichiers ini, ...) en

fonction de tes besoins.

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com

"Tof" <moreauchris@wanadoo.fr> a écrit dans le message

de news:

116501c49d68$a7512890$a501280a@phx.gbl

Bonjour,

J'ai un tout petit programme :
_________________________________
Option Explicit
Dim Valeur1 As Double
Dim Valeur2 As Double
Dim Valeur3 As Double
______________________________
Private Sub BoutonCalcul_Click()

Valeur1 = Val(Text1.text)
Valeur2 = Val(Text2.text)
Valeur3 = Val(Text3.text)

End Sub
_________________________________

Quand j'ai rentré mes trois valeurs je voudrai à l'aide
d'un bouton commande sauvegarder ces 3 "Textbox"à

l'aide

d'une boite de dialogue sous forme de fichier et

pouvoir

biensur placer ce fichier dans un répertoire.

Puis à l'aide d'un autre bouton commande pouvoir
récupérer ces 3 valeurs en cliquant sur le nom du

fichier

créé précedemment.

Je n'ai aucune idée de la façon de faire.

Si quelqu'un pouvait m'écrire un petit topo, cela

serait

sympa.

Merci à vous ! !

.

Hello,

Un double est un nombre stoqué sur 8 octets, pas du texte...
si dans un fichier tu as le caractère a, tu peux soit le lire "a" (texte) ou
97 (valeur d'un byte)
Pour écrire des valeurs texte, tu peux utiliser la fonction de convertion
CStr:

Put F, , Cstr(r1)

La lecture sera alors plus compliquée puisque la longueur d'une chaine est
variable. Il faudra soit indiquer cette longueur, soit indiquer la fin de la
chaine par un autre moyen (crlf, espace, caractère 0)

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com

"Tof" <moreauchris@wanadoo.fr> a écrit dans le message de news:
2aba01c49d74$10387880$a401280a@phx.gbl

Voila ce que j'ai fait pour l'instant....Le problème est
que lorsque j'ouvre mon fichier .txt je ne vois que des
caractère du type "&, @". Si tu peux m'aider à faire
évoluer ce petit programme :

Option Explicit

Dim F As Integer

Dim Valeur1 As Double
Dim Valeur2 As Double
Dim Valeur3 As Double

Dim r1 As Double
Dim r2 As Double
Dim r3 As Double

Private Sub BtSave_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F

r1 = Val(Resultat1.text)
r2 = Val(Resultat2.text)
r3 = Val(Resultat3.text)

Resultat1 = r1
Resultat2 = r2
Resultat3 = r3

Put F, , r1
Put F, , r2
Put F, , r3
Close F
End Sub

Private Sub BtOpen_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F
Get F, , r1
Get F, , r2
Get F, , r3
Close F
End Sub

OK merci ca marche effectivement pour stocker les valeurs
dans le fichier .text, par contre je n'ai pas bien
compris (désolé pour mon faible niveau !! )en ce qui
concerne la facon de les récupérer pour les réafficher
dans mes texbox ! ! Pourrais tu m'écrire une commande à
partir de "Get" dans mon exemple....Parce que là je suis
sec ! !

Option Explicit

Dim F As Integer

Dim r1 As Double
Dim r2 As Double
Dim r3 As Double

Private Sub BtSave_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F

r1 = Val(Resultat1.Text)
r2 = Val(Resultat2.Text)
r3 = Val(Resultat3.Text)

Resultat1 = r1
Resultat2 = r2
Resultat3 = r3

Put F, , CStr(r1)
Put F, , CStr(r2)
Put F, , CStr(r3)
Close F
End Sub

Private Sub BtOpen_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F

Get F, , r1...."Ici il y a un soucis""""
Get F, , r2
Get F, , r3
Close F
End Sub

-----Message d'origine-----
Hello,

Un double est un nombre stoqué sur 8 octets, pas du

texte...

si dans un fichier tu as le caractère a, tu peux soit le

lire "a" (texte) ou

97 (valeur d'un byte)
Pour écrire des valeurs texte, tu peux utiliser la

fonction de convertion

CStr:

Put F, , Cstr(r1)

La lecture sera alors plus compliquée puisque la

longueur d'une chaine est

variable. Il faudra soit indiquer cette longueur, soit

indiquer la fin de la

chaine par un autre moyen (crlf, espace, caractère 0)

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com

"Tof" <moreauchris@wanadoo.fr> a écrit dans le message

de news:

2aba01c49d74$10387880$a401280a@phx.gbl

Voila ce que j'ai fait pour l'instant....Le problème

est

que lorsque j'ouvre mon fichier .txt je ne vois que des
caractère du type "&, @". Si tu peux m'aider à faire
évoluer ce petit programme :

Option Explicit

Dim F As Integer

Dim Valeur1 As Double
Dim Valeur2 As Double
Dim Valeur3 As Double

Dim r1 As Double
Dim r2 As Double
Dim r3 As Double

Private Sub BtSave_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F

r1 = Val(Resultat1.text)
r2 = Val(Resultat2.text)
r3 = Val(Resultat3.text)

Resultat1 = r1
Resultat2 = r2
Resultat3 = r3

Put F, , r1
Put F, , r2
Put F, , r3
Close F
End Sub

Private Sub BtOpen_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F
Get F, , r1
Get F, , r2
Get F, , r3
Close F
End Sub

.

Salut,

Tiens, ça, ça a l'air de marcher, mais en commençant par les fichier
textes, ça aurait été plus simple...

Sub Command1_Click()
' mettre 3 TextBox + 1 bouton
' Text1(0) Text1(1) Text1(2) + Command1
Dim x(3) As Long
Dim i As Long
Dim p As Long
'
ChDrive App.Path
ChDir App.Path
'
p = FreeFile ' écriture
Open "fichier.bin" For Binary As p
For i = 1 To 3
x(i) = Val(Text1(i - 1))
Put p, , x(i)
Text1(i - 1) = ""
Next i
Close p
'
MsgBox "Enregistré + 3 TextBox remis à blanc"
'
p = FreeFile ' lecture
Open "fichier.bin" For Binary As p
For i = 1 To 3
Get p, , x(i)
Text1(i - 1) = x(i)
Next i
Close p
End Sub


--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"Tof" <moreauchris@wanadoo.fr> a écrit dans le message de
news:1f1a01c49d83$2a36af40$a301280a@phx.gbl...
OK merci ca marche effectivement pour stocker les valeurs
dans le fichier .text, par contre je n'ai pas bien
compris (désolé pour mon faible niveau !! )en ce qui
concerne la facon de les récupérer pour les réafficher
dans mes texbox ! ! Pourrais tu m'écrire une commande à
partir de "Get" dans mon exemple....Parce que là je suis
sec ! !

Option Explicit

Dim F As Integer

Dim r1 As Double
Dim r2 As Double
Dim r3 As Double

Private Sub BtSave_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F

r1 = Val(Resultat1.Text)
r2 = Val(Resultat2.Text)
r3 = Val(Resultat3.Text)

Resultat1 = r1
Resultat2 = r2
Resultat3 = r3

Put F, , CStr(r1)
Put F, , CStr(r2)
Put F, , CStr(r3)
Close F
End Sub

Private Sub BtOpen_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F

Get F, , r1...."Ici il y a un soucis""""
Get F, , r2
Get F, , r3
Close F
End Sub

-----Message d'origine-----
Hello,

Un double est un nombre stoqué sur 8 octets, pas du

texte...

si dans un fichier tu as le caractère a, tu peux soit le

lire "a" (texte) ou

97 (valeur d'un byte)
Pour écrire des valeurs texte, tu peux utiliser la

fonction de convertion

CStr:

Put F, , Cstr(r1)

La lecture sera alors plus compliquée puisque la

longueur d'une chaine est

variable. Il faudra soit indiquer cette longueur, soit

indiquer la fin de la

chaine par un autre moyen (crlf, espace, caractère 0)

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com

"Tof" <moreauchris@wanadoo.fr> a écrit dans le message

de news:

2aba01c49d74$10387880$a401280a@phx.gbl

Voila ce que j'ai fait pour l'instant....Le problème

est

que lorsque j'ouvre mon fichier .txt je ne vois que des
caractère du type "&, @". Si tu peux m'aider à faire
évoluer ce petit programme :

Option Explicit

Dim F As Integer

Dim Valeur1 As Double
Dim Valeur2 As Double
Dim Valeur3 As Double

Dim r1 As Double
Dim r2 As Double
Dim r3 As Double

Private Sub BtSave_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F

r1 = Val(Resultat1.text)
r2 = Val(Resultat2.text)
r3 = Val(Resultat3.text)

Resultat1 = r1
Resultat2 = r2
Resultat3 = r3

Put F, , r1
Put F, , r2
Put F, , r3
Close F
End Sub

Private Sub BtOpen_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F
Get F, , r1
Get F, , r2
Get F, , r3
Close F
End Sub

.

Bonjour,

Mets des valeurs et des objets indicés, c'est plus simple à manipuler:
text1(0), text1(1), text1(2)
dim valeur(3) as double


--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"Tof" <moreauchris@wanadoo.fr> a écrit dans le message de
news:116501c49d68$a7512890$a501280a@phx.gbl...
Bonjour,

J'ai un tout petit programme :
_________________________________
Option Explicit
Dim Valeur1 As Double
Dim Valeur2 As Double
Dim Valeur3 As Double
______________________________
Private Sub BoutonCalcul_Click()

Valeur1 = Val(Text1.text)
Valeur2 = Val(Text2.text)
Valeur3 = Val(Text3.text)

End Sub
_________________________________

Quand j'ai rentré mes trois valeurs je voudrai à l'aide
d'un bouton commande sauvegarder ces 3 "Textbox"à l'aide
d'une boite de dialogue sous forme de fichier et pouvoir
biensur placer ce fichier dans un répertoire.

Puis à l'aide d'un autre bouton commande pouvoir
récupérer ces 3 valeurs en cliquant sur le nom du fichier
créé précedemment.

Je n'ai aucune idée de la façon de faire.

Si quelqu'un pouvait m'écrire un petit topo, cela serait
sympa.

Merci à vous ! !