Vérifier votre modèle actif et enregistrer le résultat dans un fichier texte

Vous avez besoin de vérifier votre modèle et d’enregistrer la sortie dans un fichier texte. De plus dans le fichier de sortie, vous voulez mettre le nom du modèle et l’heure de début de la vérification.

1. Enregistrez le code ci-dessous dans le fichier « CheckModel.vbs »;
2. Dans PowerDesigner cliquer sur Outils-> Exécuter des commandes-> Personnaliser des commandes;
   1. Cliquez sur Ajouter une ligne ;
   2. Pour Nom, inscrivez : « CheckModel » ;
   3. Pour Type, sélectionnez : « Script VB »;
   4. Pour Ligne de commande, tapez le nom du répertoire ainsi que le nom du fichier vbscript (CheckModel.vbs) ;
   5. Cliquez sur OK.
3. Redémarrez PowerDesigner ;
4. La commande est affichée sous Outils-> Exécuter des commandes ;
5. Cliquez sur la commande ;
   1. Cela va générer la sortie désirée.

output_path="C:\Users\John\AppData\Local\Temp\Check Model.log"
File_location="C:\Model_Check\"
Set Model=ActiveModel
Model.CheckModel()
FirstLine="Check " & Model.name & " at " & date & " " & time
Const Reading = 1
Const Writing = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(output_path, Reading)
strContents = objFile.ReadAll
objFile.Close

strNewContents = FirstLine & vbCrLf & strContents
FileName=File_location & Model.name &".txt"
Set objFile = objFSO.CreateTextFile(FileName, Writing)
objFile.WriteLine strNewContents
objFile.Close