besoin d'aide pour enrengistrement

Question

Seamless  ;) 

Bonjour je suis débutant. Je suis en trein de faire un proramme et j'aimerai faire un bouton qui enrengistre toute mes textbox dans un fichier qui a pour extension .voc, pourriez-vous svp m'expliquer comment il faut le faire .

(je veux juste vous dire que mes textbox sont mis en index text1(0).text, text1(1).text. )

Merci encore 

:.Seamless.:

cs_PROGRAMMIX · Answer

Je ne connais pas l'extension VOC, donc je ne sais si cela correspond à un format de fichier particulier ou non... Je donnerai donc un exemple en utilisant le format TXT Sub Enregistrer() Dim Fichier as string Dim numFichier as integer Fichier = App.Path If Right(Fichier, 1)<>"" then Fichier = Fichier &"" Fichier = Fichier &"MonFichier.TXT" numFichier = Freefile Open Fichier For Output As #numFichier Print #numFichier, text1(0).text Print #numFichier, text1(1).text Close #numFichier End Sub Pour lire le fichier créé: Sub Lire() Dim Fichier as string Dim numFichier as integer Dim s as string Fichier = App.Path If Right(Fichier, 1)<>"" then Fichier = Fichier &"" Fichier = Fichier &"MonFichier.TXT" numFichier = Freefile Open Fichier For Input As #numFichier Input #numFichier, s text1(0).text = s Input #numFichier, s text1(1).text = s Close #numFichier End Sub Programmix

Seamless · Answer

Seamless  ;) 

Merci beaucoup programmix. Pour ta question :
Je voudrai que sa créer un fichier dans le disque dur qui a pour extension .voc . `J'ai inventé le nom de l'extension.
Peut tu me dire quel modification faire pour pouvoire mettre l'extension .voc 

Merci encore beaucoup 

    :.Seamless.:

cs_PROGRAMMIX · Answer

Si c'est un format personnel, tu remplaces le TXT de mon exemple par ton VOC.

Programmix

Seamless · Answer

Seamless  ;)

Seamless · Answer

Seamless  ;) 
Merci beuacoup Programmix

:Seamless:

                      (désoler pour la ligne du dessus je me suis troomper)

Seamless · Answer

Seamless  ;) 

Encore un petit détaille j'aimerai que l'utilisateur puisse choisir le nom du fichier (avec form1.showsave enfin un truc comme sa).Que sa affiche une boite d'enrengistrement.

 :.Seamless.:

cs_PROGRAMMIX · Answer

Deux exemples de sources trouvées sur ce site.

Au hasard pour l'utilisation du contrôle CommonDialog : "UTILISATION DU COMPOSANT COMMONDIALOG" de gg00xiv (http://www.vbfrance.com/code.aspx?ID=4322)

Et pour l'utilisation  d'API au lieu du contrôle : "POUR CEUX QUI ONT DES SOUCIS AVEC COMMON DIALOG" de PapyJo(http://www.vbfrance.com/code.aspx?ID=6407) ; c'est cette méthode que j'utilise le plus.

Programmix

Seamless · Answer

Seamless  ;) 

Merci beaucoup PROGRAMMIX

:.Seamless.:

Besoin d'aide pour enrengistrement

8 réponses