[VB6] Ouvrir sous et enregistrer sous

**batmat86** · 07/05/2006, 18h55

Bonjour, je reviens à vous pour un peu d'aide, oui je sais encore

Comme vous le voyez sur ma form, j'ai plus de label ou édit qui vont contenir des informations lorsque j'aurais mis à jour les statistiques à partir d'un fichier récupéré sur internet.

Une fois la mise à jour, je souhaiterais, faire Fichier->Enregistrer sous et là mettre dans un fichier du nom choisi par l'utilisateur et à l'endroit choisi aussi avec une extension .txt. Là dans ce fichier je souhaiterais mettre la valeur du label 1 dans la ligne 1 du fichier, label 2 ligne 2, edit 5 ligne 10 ....

Je sais d'après mes recherches sur le forum que je dois utiliser des CommonDialog, j'en ai d'ailleurs mis deux, un SaveUser et l'autre OpenUser.

Mais sortie de cela je ne sais pas comment faire le reste décrit plus haut.

Et ensuite par la suite, je voudrais que l'on puisse faire fichier->Charger fichier, et là l'utilisateur choisir son fichier de configurations, et là on remettrais la ligne 1 dans le label 1 ....

Voilà ce que je souhaite faire, mais je n'ai tellement trouvé de l'aide sur le forum pour mon problème, d'où mon sujet.

merci par avance de votre aide.

**jmfmarques** · 07/05/2006, 19h04

Bon !
Pas à pas, alors :
Intéresse-toi à Open le_nom_du_fichier for Output (aide en ligne)
ceci pour écrire ton fichier, donc.
Et reviens nous voir avec le code que tu auras pu écrire après cette lecture pour le moins indispensable.
Nous passerons ensuite à la seconde étape : celle de la lecture du fichier pour écrire dans tes Labels !

Bon travail ! C'est on ne peut plus facile !

**AlainTech** · 07/05/2006, 19h05

STP, n'oublie pas le tag VB6, la prochaine fois. Je viens de le mettre pour toi.

Rien à voir avec ta question mais je m'interroge sur le nombre de CommonDialog sur ton formulaire.

Sais-tu qu'un seul peut être appelé pour différentes fonctions?
C'est au moment du .Show qu'on va déterminer le type de fonction qu'aura le dialogue.

**batmat86** · 07/05/2006, 19h25

Envoyé par AlainTech

STP, n'oublie pas le tag VB6, la prochaine fois. Je viens de le mettre pour toi.

Rien à voir avec ta question mais je m'interroge sur le nombre de CommonDialog sur ton formulaire.

Sais-tu qu'un seul peut être appelé pour différentes fonctions?
C'est au moment du .Show qu'on va déterminer le type de fonction qu'aura le dialogue.

Oups désolé pour le VB6

, d'habitude je le met

Sinon pour le nombre de commondialog, il y était déjà lorsque j'ai récupéré les sources de l'application, et c'est pour cela que j'en ai ajouté deux, un pour ouvrir et l'autre enregistrer, je me suis fait à ce qui était existant

Pour l'écrire dans un fichier, j'ai déjà pratiquer avec votre aide, j'avais fais cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
html_stat_personne = frm_stat.transfert.OpenURL _
            ("http://folding.extremeoverclocking.com/xml/user_summary.php?u=" & _
            frm_stat.txt_nom)
Open "stats.txt" For Output As #1
Print #1, html_stat_personne
Close #1

**jmfmarques** · 07/05/2006, 20h10

ton sujet disait :

Là dans ce fichier je souhaiterais mettre la valeur du label 1 dans la ligne 1 du fichier, label 2 ligne 2, edit 5 ligne 10 ....

et le code que tu "fournis" là n'utilise aucun label !
tu sais, au moins, ce que tu es en train d'essayer de faire ?
Je vais donc t'inviter à revenir quand tu auras arrêté ta stratégie et que tu l'exposeras avec précision ! C'est un minimum !

**batmat86** · 07/05/2006, 20h40

Oui je sais que je n'ai pas mis, mais c'est tout simplement parce que je ne sais pas comment écrire à chaque ligne la donnée que je souhaite.

Je pense que pour la première ligne cela devrait être bon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Open "stats.txt" For Output As #1
Print #1, lbl_nom_team.Caption
Close #1

Mais après je ne sais pas du tout comment faire

**SfJ5Rpw8** · 07/05/2006, 21h01

Envoyé par batmat86

Oui je sais que je n'ai pas mis, mais c'est tout simplement parce que je ne sais pas comment écrire à chaque ligne la donnée que je souhaite.

Je pense que pour la première ligne cela devrait être bon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Open "stats.txt" For Output As #1
Print #1, lbl_nom_team.Caption
Close #1

Mais après je ne sais pas du tout comment faire

.. ben tu continu t'enchaine les Print...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Open "stats.txt" For Output As #1
Print #1, lbl_nom_team.Caption
Print #1, lbl_Prenom_team.Caption
Print #1, lbl_Age_team.Caption
Close #1

mais l'utilisation de fichier 'ini' ne serai pas plus appropriée ?.
voir
http://vb.developpez.com/faq/?page=Systeme#ini

et pour le command dialog... as tu lu :
http://www.developpez.com/vbasic/tut...tutoriel12.php

**batmat86** · 07/05/2006, 22h41

Bonsoir, alors effectivement le .ini serait peut être plus adapté, donc je vais voir pour le réaliser.

Pour le command dialog oui j'ai lu.

Sinon, si je comprends bien, je vais donc avoir quelques chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub m_fichier_enregistrersous_Click()
    SaveUser.Filter = "Fichiers Config (*.ini)|*.ini"
    SaveUser.ShowSave
EcritDansFichierIni " StatUser", "Points", lbl_points_team.Caption, "setup.ini"
End Sub

Es ce cela ?? et je continu ainsi de suite pour chaque ligne ?

**SfJ5Rpw8** · 07/05/2006, 22h49

il faut que tu remplace setup.ini .. par le nom de fichier sélectionné.. dans communDialog...

**batmat86** · 07/05/2006, 22h59

Heu, désolé, je suis un peu boulet, mais j'ai juste créer un commonDialog du nom de SaveUser.
J'ai rien fais d'autres avec, et si je regarde ceux qui sont déjà en place puisque c'est une application qui a plusieurs mois, que je reprends pour faire de nouvelles versions, mais même dans ceux inexistants, il n'y a pas de nom de fichier, pourtant pour enregistrer l'image sous cela fonctionne.

Faut dire que j'ai vraiment du mal à me plonger dans le VB, je trouve le C++ plus simple.

**ThierryAIM** · 08/05/2006, 16h31

Envoyé par batmat86

Faut dire que j'ai vraiment du mal à me plonger dans le VB, je trouve le C++ plus simple.

désolé

**batmat86** · 08/05/2006, 19h21

Ba oui désolé de dire cela, mais c'est ce que je trouve, peut être parce que je n'ai fais que du c++ pendant mon bts

Sinon pour le commondialog, je n'ai pas compris, si un seul peu tout faire, alors pourquoi l'ancien développeur en a 4 ou 5 ?? Et dans quel champs doit on mettre le nom du fichier dans le common, car je ne vois pas de champs fait pour

A part filtrer les extensions comme je l'ai fait, je ne vois pas faire.

[edit] Je viens peux être de comprendre, c'est à dire faire cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub m_fichier_enregistrersous_Click()
    SaveUser.Filter = "Fichiers Config (*.ini)|*.ini"
    SaveUser.ShowSave
EcritDansFichierIni " StatUser", "Points", lbl_points_team.Caption, SaveUser.Filename
End Sub

**jmfmarques** · 08/05/2006, 19h26

Hem....
Je vois une certaine confusion....
il y a 2 problèmes et ils sont distincts :
1) se servir du commonDialog (c'est une chose)
2) écrire et lire dans un fichier (c'en est une autre, complètement indépendante du CommonDialog)

Le CommonDialog, ici, ne sert qu'à ouvrir un répertoire pour y choisir (en cliquant, un fichier)

**batmat86** · 08/05/2006, 19h37

Oui j'avoue que c'est surement moi qui merdouille à comprendre le CommonDialog.

Mais d'après mes recherches, pour faire un enregistrer sous et donner la main à l'utilisateur pour choisir son nom de fichier et son répertoire, faut utilise ce CommonDialog.

C'est pour cela que je l'utilise, là après peut être pas correctement je l'accorde, c'ets pour cela que je viens demander de l'aide. Car pour moi CommonDialog, sert juste à afficher la boite de dialog à l'utilisateur mais ne gére pas le enregistrer le fichier, ou alors je me trompe ??

**SfJ5Rpw8** · 08/05/2006, 19h47

oui le CommonDialog permet seulement le choix du fichier... surement qu'avec 1 tu en aurai eu assez

**ThierryAIM** · 08/05/2006, 19h49

Envoyé par batmat86

CommonDialog, sert juste à afficher la boite de dialog à l'utilisateur mais ne gére pas le enregistrer le fichier, ou alors je me trompe ??

Non tu ne te trompes pas

L'enregistrement doit bien être géré à part, comme tu l'as fait

Par contre un commondialog peut ouvrir les boites de dialogue suivantes :
- Ouvrir
- Enregistrer
- Couleurs
- Polices
- Imprimantes
- Help

et un seul suffit pour toutes ces actions
c'est à l'appel que l'on définit la boite à afficher avec les méthodes :
.ShowOpen
.ShowSave
....

et si le programmeur précédent était un incompétent, ne tombe pas dans les memes travers, surtout si tu débutes en VB

et désolé pour la petite moquerie sympa, car moi et C++, on n'est pas copains

**batmat86** · 08/05/2006, 21h59

Alors dites moi, cela serait donc correct, si je comprends bien ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
<div style="text-align: left;">Private Sub m_fichier_enregistrersous_Click()
    SaveUser.Filter = "Fichiers Config (*.ini)|*.ini"
    SaveUser.ShowSave
EcritDansFichierIni " StatUser", "Points", lbl_points_team.Caption, SaveUser.Filename
End Sub</div>

SaveUser étant le nom de mon commondialog.

Alors enfait l'ancien développeur, en a mis plusieurs, le pourquoi, et bien parce qu'il y en a eu qui sert à ouvrir un fichier du client qui est en txt, un pour ouvrir le fond de la signature, donc une image en .jpg ou .gif ...
Un pour changer la police sur la signature, un autre la couleur sur la signature. Voilà comment c'est fait en gros d'après ce que j'ai compris de la stucture actuelle.

Et le pire, c'est qu'il n'y a aucun commentaire du code, donc dur à comprendre sa logique de développement, je crois que c'est pire que changer de langage de programmation. Et pas de problème pour la moquerie, sinon j'aurais raler si cela n'était pas passé

**ThierryAIM** · 08/05/2006, 22h11

Il ne faut pas confondre les objets action (comme sous Delphi, par exemple, excuse-moi mais comme je ne connais rien au C++, je fais des analogies avec ce que je connais), et un controle ocx

dans ton cas, tu peux conserver un seul commondialog, et l'appeler avec la methode ad hoc quand tu en a besoin

**SfJ5Rpw8** · 08/05/2006, 22h14

Envoyé par batmat86

Alors dites moi, cela serait donc correct, si je comprends bien ??

il ne te maque qu'as traité le cas ou l'opérateur clique sur Cancel..
==> SaveUser.Filename =""

**batmat86** · 08/05/2006, 22h39

Envoyé par ThierryAIM

dans ton cas, tu peux conserver un seul commondialog, et l'appeler avec la methode ad hoc quand tu en a besoin

Alors là je crois que je verrais peut être plus tard pour optimiser et surtout quand j'aurais trouver le ad hoc.

Mais je pense que je vais faire les choses petit à petit, donc déjà arrivais à faire avec ce commondialog que j'ai créer, et enregistrer mes infos dans le fichiers ini correctement, serait vraiment bien pour moi.

Ensuite faudrais aussi que j'arrive à ouvrir ce fichier ini et faire l'opération inverse, c'est à dire mettre dans les labels, les valeurs lues. Mais cela c'est la deuxième étape, et la 3ème sera d'optimisé tout cela, mais vu le bordel que c'est dans son code, je pense que je ne suis pas couché

Mais si je fais la partie de code que j'ai donné, cela est correct, je demande pour éviter de me taper 70 lignes de codes pour tout mes labels pour rien

[VB6] Ouvrir sous et enregistrer sous

VB 6 et antérieur

Discussions similaires

Partager

Partager