807188_fr-FR

liliconcom

Ajoutez la date et le nom du fichier dans n'importe quel graphique

Je me demande simplement si quelqu'un a écrit un module complémentaire ou un script qui ajoutera la date actuelle et le nom du fichier (de la table de données source) sur n'importe quel graphique/rapport généré ?

J'ai activé les préférences

merci

Partage et communication des résultatsRe: Ajouter la date et le nom du fichier dans n'importe quel graphique

Ce n’est pas vraiment si simple de créer un script qui fonctionnerait avec n’importe quel graphique/rapport.

L'idée de base pourrait être quelque chose comme ça, mais cela suppose déjà que vous avez une référence à la table et à l'objet d'analyse. Cela suppose également que toutes les frameboxes sont basées sur la même table

Names Default To Here(1); 

dt = open("$SAMPLE_DATA/Big Class.jmp");

gb = dt << Graph Builder(
	Variables(X(:weight), Y(:height), Overlay(:sex)),
	Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11)))
);


str = Char(As Date(Today())) || " " || (dt << getname);

fbs = Report(gb) << XPath("//FrameBox");
Eval(EvalExpr(
	fbs << Add Graphics Script(
		Text Color("Red");
		Text(Right Justified, {X Origin() + X Range(), Y Origin()}, Expr(str));
	);
));

mais déterminer quelle est la bonne table, par exemple, peut devenir assez compliqué.

Re: Ajouter la date et le nom du fichier dans n'importe quel graphique

Sans les références à la table de données et au tracé, vous pouvez accéder à l'objet gb via le rapport / get scriptable object() - et à la table de données via << get data table() .
Peut-être ajouter du code pour ignorer le LDF et le commutateur de colonnes...

Names Default To Here(1); 
/*
open("$SAMPLE_DATA/Big Class.jmp");

Graph Builder(
	Variables(X(:weight), Y(:height), Overlay(:sex)),
	Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11)))
);
*/



fbs = current report() << XPath("//FrameBox");
nfbs = N items(fbs); // add the info to the last FB

OBs= current report() << XPath("//OutlineBox");
gb = OBs[1] << get scriptable Object; // add some code to skip LDF and Column Switcher 

str = Char(As Date(Today())) || " " || ((gb << get data table()) << getname);

Eval(EvalExpr(
	fbs[nfbs] << Add Graphics Script(
		Text Color("Red");
		Text(Right Justified, {X Origin() + X Range(), Y Origin()}, Expr(str));
	);
));

Re: Ajouter la date et le nom du fichier dans n'importe quel graphique

Génial - merci