outils pour gestion fonctionsRésolu

Question

Bonjour,

Mon prog en VB6 contient de multiples fonctions qui ont une durée de validité. Passé une date que je met en observation a coté de la fonction, elles ne me servent plus et je cherche a les supprimer facilement.
Ca se presente comme cela

Function MaFonction1 () '10/10/07
   xxxx
end function

Function MaFonction1 () '12/11/07
   xxxx
end function

Function MaFonction1 () '10/10/07
   xxxx
end function

Je cherche donc le moyen de supprimer facilement toutes les fonctions dont par exemple la date est 10/10/07.
Est ce qu'il existe une astuce ou un outils ? J'ai regardé dans mztools et je n'ai rien trouvé par exemple.

Merci d'avance

jrivet · Accepted Answer

Salut,
Fait toi un petit prog à part (ou mieux un addin) qui regarde le code source du projet actuel et supprime  les procédures "perimées"

Mais pourquoi un fonction devient elle périmée après un certains temps???

@+: Ju£i?n
Pensez: Réponse acceptée

cs_danone · Answer

Bonjour,

Merci de ta réponse, mais si l'outils existe tout fait autant en profiter 

Pour info, c'est une gestion d'eleves et de cours c'est pour cette raison que j'ai crée des petits modules (fonctions) qui se periment au bout d'un certain temps.
Quand il faut faire le menage c'est un peu galere.
Et bien sur je ne pouvais pas faire de base de donnée derriere car il y a des actions qui sont differentes en fonction des salles. J'ai un autre prog qui me permet d'enregistrer ces actions.
Vu de l'exterieur ca doit etre bizare mais enfin ca marche bien comme cela depuis longtemps 

Donc si ya une astuce, je suis preneur

Merci d'avance

cs_MPi · Answer

Bah, si tu programmes sous VB6, tu peux ouvrir les fichiers .frm, .bas, .cls en utilisant la méthode simple du 
Open LeFichier For Input As #NumeroFichier

Tu pourrais mettre tout le fichier dans une chaîne et travailler sur cette chaîne 
ou lire ligne par ligne en recherchant les dates, et mots-clés (Sub, End Sub, Function, End Function, ...)

Si tu ouvres un fichier frm ou bas dans Notepad, tu verras que c'est "relativement" simple à mettre en place...

MPi²

cs_danone · Answer

Bonsoir,

Oui je sais faire, par contre j'aimerai bien voir toutes les fonctions dans un genre de treeview qui afficherai toutes les fonctions et qui me permettrai de selectionner celles que je veux supprimer.

J'aimerai mieux voir ce que je supprime

Et la je ne sais pas faire

As tu une idée

Je suis compliqué 

Bonne soirée

cs_epson1 · Answer

Salut Danone ,
tu pourais peut-être t'inspirer de ce source pour pouvoir placer tes fonctions dans un module externe à l'exe :
http://www.vbfrance.com/code.aspx?ID=29174

ça utilise se scripting et ça pourait convenir pour ce genre de besoin .

@+

cs_danone · Answer

Bonjour Epson1

Je n'ai pas regardé le contenu mais si le principe marche bien, c'est ce style de système que j'aurai aimé implanter dans mon prog.

Il faut cependant que je teste car j'emploi une fonction un peu specifique :

CallByName(Me, NomSalle, VbMethod)

NomSalle étant le nom de ma fonction que j'apelle et donc si la fonction est exterieure, je ne suis pas sur que ca marche enfin je vais regarder le principe.

Merci beaucoup pour l'idée

Danone

cs_epson1 · Answer

Salut Danone ,
j'ai fait l'essai avec passage de parametre et ça marche bien avec une fonction externe donc ça devrait le faire pour toi .

@+

cs_danone · Answer

Bonsoir Epson1

Merci pour ton test et tes recherches.

De mon coté pas eu le temps de tester avec mon appli mais regardé un peu les discutions a ce sujet et testé le prog proposé.

J'ai vu que cela ne marchai pas avec du VB mais qu'il fallait du vbscript en externe est ce vrai ?
ou est ce qu'il y a un truc pour qu'en VB ca marche ?

Bonne soirée

Danone

cs_epson1 · Answer

Salut Danone ,

je suis pas spécialiste mais le vb script est trés proche du vb , pour t'en convaincre , édite le fichier "Script.txt" et tu comprendras vite .
La syntaxe est la même qu'en vb mais il y a moins d'instructions reconnues , je crois .Pour que ça marche dans ton projet , n'oublie pas d'ajouter Microsoft Script Contrôl 1.0 dans les references .

@+

cs_danone · Answer

encore tous mes remerciements
je vais regarder

Outils pour gestion fonctions

10 réponses

Votre réponse

Discussions similaires