Mutualisation ou réutilisation de code ? (en gros équivalent à l'instruction "Include" de certains langages)

Bonjour,

Je suis en train d’écrire des scripts utilisables directement depuis une application (PowerAmc pour ne pas la nommer 8-), mais cela peut être une autre application).

J'ai donc un seul script principal par fichier *.VBS . D'ailleurs environnement d’exécution de PowerAmc, ne reconnait pas sa déclaration comme "sub Main"


par contre, chacun de ces fichiers, contient un certain nombre de sous programme (SUB ou function) appelés depuis le script principal.

J'aimerais, si c'est possible (??), mutualiser un certain nombre de ces sous programmes ou fonctions, sans avoir à les recopier systématiquement dans chaque fichier de script.
Ceci afin de faciliter leur maintenance..

Mon idée, mais peut être n'est elle pas bonne ou pas possible ...vous me le direz, serait de regrouper ces sous-programmes ou fonction dans un ou plusieurs fichier "bibliothèques". Puis de faire appel à ce(s) fichier(s) (ou aux sous-programmes et fonctions de ces bibliothèques), dans les divers fichiers scripts contenant chacun un seul "Main".

Je n'ai, malheureusement, pas trouvé de réponses clair sur le sujet...voir des réponses différentes ....

Donc si quelqu'un pouvait éclairer ma pauvre lanterne de béotien, je lui en serais très reconnaissant.

D'avance merci.

PS. vous avez bien compris, que je ne suis pas un développeur chevronné et que je ne maitrise pas tout à fait, le VB script :(

André.

Salut

Il me semble que Les fichiers Windows Script File (.wsf) répondent a ton attente.

bonjour,

lorsque vbscript est exécuté dans le contexte du framework "Windows Script Host", il existe effectivement
la solution du wsf judicieusement rappelée par ProgElecT

malheureusement lorsque l'environnement d'exécution est celui d'un programme spécifique
comme PowerAmc dans ton cas, il n'existe pas de fonction native du VBS pour inclure
un fichier externe

la seule solution est de contourner de problème avec une solution de ce genre :

Code:

---

1 2 3 4 5

Sub includeFile(fSpec) executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(fSpec).readAll() End Sub ' le contenu du fichier externe sera exécuté dans le script includeFile "monprogexterne.vbi"

---

merci beaucoup à vous deux.

Je vais essayer la solution d'Omen.
je vous tiens au courant .....d'ici la fin de la semaine...j’espère...


A bientôt.

et encore merci

Bon,

j'ai fait un premier essai rapide ...
..Mais j'ai une erreur de compilation .

voici le code dans le script appelant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

option Explicit   Sub includeFile(fSpec) executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(fSpec).readAll() End Sub   dim Chem_biblio Chem_biblio = "U:\Cartos\Scripts"   ' le contenu du fichier externe sera exécuté dans le script includeFile Chem_biblio & "\Bibliotheque.vbs"     ' -- choix des sorties/impression du script set Ch_Sortie = choix_sortie_result

---

et voici le message d’erreur que l’obtiens quand je lance l’exécution de ce code :

Code:

---

1 2 3

Erreur de compilation Microsoft VBScript Fin d'instruction attendue (0x800A0401) At line 4, character 5

---

ce qui correspond bien au début de la ligne :

Code:

---

executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(fSpec).readAll()

---

.


je vais essayer de chercher ce qui va pas ...;

A+
André

j'ai testé mais sous WSH, ça fonctionne

sinon pour mieux identifier l'erreur il faut décomposer le code

Code:

---

1 2 3 4 5 6 7

Sub includeFile(fSpec) Dim oFSO,oFS,oTxt Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFS = oFSO.openTextFile(fSpec) oTxt = oFS.readAll() executeGlobal oTxt End Sub

---

je viens d'essayer avec la version éclatée de la procédure.

l'erreur est la même (jusque là rien d'anormal)
elle se situe à la ligne :

Code:

---

executeGlobal oTxt

---

.

peut-être est-ce "tout simplement" que l’environnement d’exécution du VBS sous PowerAmc, ne reconnait pas cette instruction ???

Comme pour l'instruction WSCript.QUIT => le message d'erreur me dit que l'objet WSCript doit être déclaré :?
Or effectivement WSCRipt représente, si j'ai bien compris, un environnement spécifique d'exécution du VBS, différent de celui de PowerAMC.
=> du coup je ne sais pas comment arrêter l’exécution d'un script (EXIT SUB ne fonctionnant pas dans le Main, qui n'est pas déclarer par 'Sub Main')...

Citation:

---

peut-être est-ce "tout simplement" que l’environnement d’exécution du VBS sous PowerAmc, ne reconnait pas cette instruction ???

---

je ne pense pas, le message d'erreur serait différent
en revanche, ça suggère que le code contenu dans la chaine oTxt contient quelque chose que le moteur de script ne "digère" pas
il faudrait faire des tests avec un fichier "bibliotheque.vbs" plus réduit

merci Omen,

c'était bien cela !

Une erreur dans le fichier Bibliothèque.vbs.

Une fois corrigée ça marche super bien !!!

dès que j'ai un peu de temps, je fais une synthèse, et je ferme la discussion.

Encore un grand merci à Omen !!!

Bonjour à toutes et tous,

Comme promis, il y a déjà quelque temps,
voici la synthèse de cette discussion.

Une des façons de mutualiser et simplifier la maintenance de son code est de le "découper" en fonctions et sous-procédures simples.
Parmi ces fonctions et sous-procédures un grand nombre peuvent être réutilisées dans plusieurs scripts différents. Pour cela il est très pratique de les répartir dans un ou plusieurs fichier(s) utilisés comme des bibliothèques (nommés "fichiers bibliothèques" par la suite).

Dans le cas où l'environnement d'exécution est celui d'un programme spécifique, et non pas Wscript,
il n'existe pas de fonction native du VBS pour inclure un fichier externe.

Mais grâce au code d'Omen99, un grand merci à lui, il est possible de faire appel à ces fichiers bibliothèques et donc d'utiliser leurs sous-programmes et fonctions, dans vos fichiers de script principal (équivalent à "Main").

Voici les deux versions de la procédure permettant l'exécution (lecture) d'un fichier :
Version longue :

Code:

---

1 2 3 4 5 6 7

Sub includeFile(fSpec) Dim oFSO,oFS,oTxt Set oFSO = CreateObject("Scripting.FileSystemObject") 'création d 'un objet de type fichier Set oFS = oFSO.openTextFile(fSpec) ' ouverture du fichier bibliothèque comme un fichier texte oTxt = oFS.readAll() ' Déversement de tout son contenu dans un objet de type texte (chaine de caractère). executeGlobal oTxt ' exécution/lecture du contenu par le moteur d'exécution End Sub

---

Version courte :

Code:

---

1 2 3

Sub includeFile(fSpec) executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(fSpec).readAll() End Sub

---

Puis on appelle cette procédure, en lui passant en paramètre le nom complet (cad : path + nom) du fichier bibliothèque :

Code:

---

1 2 3 4 5

dim Chem_biblio Chem_biblio = "U:\Cartos\Scripts"   ' le contenu du fichier externe sera exécuté dans le script includeFile Chem_biblio & "\Bibliotheque.vbs"

---

On peut ainsi appeler plusieurs fichiers bibliothèques, comme par ex :

Code:

---

1 2 3

' le contenu des fichiers externes seront exécutés dans le script includeFile Chem_biblio & "\Bibliotheque.vbs" includeFile Chem_biblio & "\travail\biblio_gest_fichier.vbs"

---

les fichiers Bibliothèques, peuvent contenir :

1. des déclarations de variables, de constantes
2. des fonctions
3. des procédures

Problèmes potentiels

Si à l'exécution de votre script principal, vous avez une erreur non localisée (cad sans référence d'une ligne de code de votre script principal) ou localisé sur l'instruction "executeGlobal …" de la procédure includeFile(fSpec)
Alors vous avez vraisemblablement une erreur de syntaxe ou d'exécution dans un des fichiers bibliothèques.

Pour éviter cela, vous pouvez commencer par exécuter manuellement votre fichier bibliothèque :

pour cela le charger dans votre environnement d'exécution VBSCript, comme s'il s'agissait du script normal, puis de l'exécuter.

=> Les éventuelles erreurs de syntaxes seront alors bien identifiées et localisées.

=> les corriger, sauvegarder le ficher bibliothèque et retester le script principal….

Pour les erreurs d'exécution, c'est un peu plus compliqué, puisque que généralement les fichiers bibliothèques ne contiennent pas de script directement exécutable (équivalent à la procédure main).
Vous pouvez alors créer dans votre fichier bibliothèque une procédure de test, comme par ex :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'----------------------------------------------------------------------------- ' programme de test du code de ce fichier ' pour cela mettre en commentaire les lignes "sub test" et "end sub ' test" '----------------------------------------------------------------------------- sub test init ' test de la sous procédure d'initialisation dim Fich dim Ch_Sortie '-- objet contenant les choix des canaux d'impression (écran; fichier, etc...) set Ch_Sortie = choix_sortie_result ' -- choix des sorties/impression du script   Fich = choix_fichier ' test appel de la fonction choix_fichier   restaur_hidden_symbol Ch_Sortie, Fich ' test de la procédure   end sub ' test

---

Que vous vous allez activer, (par ex en mettant en commentaire l'instruction "sub test" et "end sub 'test" correspondante, puis exécuter manuellement votre fichier bibliothèque.

=> Après c'est de la recherche et correction classiques de bug …

Une fois résolu, ne pas oublier ;) de "désactiver" la procédure de test, en décommettant les instructions "sub test" et "end sub 'test"

j'attends quelques jours,pour d"éventuels commentaires, ajouts, correction, puis je clôture cette discussion.