Automatiser l'exportation du code java

[Vincent]

Dans le Designer Notes, pour les agents et les bibliothèque Java, il y a un bouton "Exporter"Ce bouton permet d'exporter sous la forme de fichier (.java) la totalité du code de l'agent ou de la bibliothèque.J'ai besoin d'exporter souvent la totalité du code Java de mes modèles.Mon but est d'obtenir un fichier .java pour chaque Classe java.Je souhaite automatiser cette action.Ma question est la suivante : Comment automatiser l'exportation du code java de mes agents ? ie exécuter le même traitement que le bouton "Exporter".

[Droad]

L'extraction de base est triviale (cf ci-dessous). La difficulté pour automatiser la procédure est de récupérer l'UNID des agents. Pour ça, je vois 2 possibilités:- Appels à l'API Notes- Créer une vue des agents (nom + unid) en triturant le $FormulaClass. (Perso, j'aime bien cette technique, elle permet pleins de trucs fun)Je détailles dés que possible (si tu es débrouillard, tout se trouve dans le forum de Lotus).Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim unid As String, path As String Set db = session.CurrentDatabase unid = Inputbox$("UNID:", "Extraction des pièces jointes", "") 'unid = "9F132E18F01DE682C1256A09004EEE85" path = Inputbox$("Répertoire:", "Extraction des pièces jointes", "c:\temp") If Len(unid)=0 Then Exit Sub Dim item As Variant Dim obj As NotesEmbeddedObject Set doc = db.getDocumentByUnid(unid) While doc.HasItem("$file") Set item = doc.GetFirstItem("$file") Set obj = doc.GetAttachment(item.values(0)) If Messagebox("Extraire '"+item.values(0)+"' ?",4)=6 Then Call obj.ExtractFile(path+"\"+item.values(0)) Call item.Remove() WendEnd Sub[%sig%]

[Sylvain]

Ouai moi aussi j'aime bien cette méthode. ça permet par exemple de faire une vue qui liste toutes les ressources images et en ajoutant une balise < IMG > dans les colonnes de la vue on peut faire une vue accessible par le web qui affiche toutes les images de ta base. C'est bien pratique lorsque t'en a beaucoup car Lotus n'as pas prévu la possibilité de classer les ressources (par exemple à l'aide de dossiers...). Voila c'était juste pour dire ça... [%sig%]

[Droad]

Vite vite avant le ski:Créer une vue:- Col1: title := @Subset($TITLE;1);@If(@Contains(title;"|");@Left(title;"|");title)- Col2: @Text(@DocumentUniqueId)- Select: @AllDans la vue, créer une action "Formula Class":Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim doc As NotesDocument, view As NotesView Set view = ws.CurrentView.View Set doc = view.Parent.GetDocumentByUNID(view.UniversalID) Call doc.ReplaceItemValue("$FormulaClass", "512") doc.Save True, True Messagebox "Formula Class changée !"+Chr$(13)+"Shift+F9 pour rafraichir la vue"End SubCette action doit être utilisé aprés toute modification de la vue dans Designer (le champ $FormulaClass étant écrasé).Et voili, ya plus ka guetteviouer.[%sig%]