483286_fr-FR

liliconcom

HTML avec images intégrées

Ce n'est PAS pour enregistrer du HTML interactif. SaveInteractiveHTML le fait déjà. Vous devriez probablement l'utiliser à la place.

Lorsque JMP enregistre du HTML avec des graphiques, il crée un répertoire nommé gfx pour contenir les images. Le répertoire gfx contiendra les images de tous les fichiers HTML enregistrés dans le même répertoire parent. Si vous envoyez le HTML à quelqu'un, il n'a besoin que des fichiers pour ce HTML et doit placer le répertoire gfx et le HTML au même emplacement. Cela fonctionne plutôt bien si vous disposez d'un serveur sur lequel vous pouvez les placer, mais moins bien si vous leur envoyez un e-mail.

Cet exemple JSL intégrera les images dans le HTML à l'aide d'une URL de données ( anciennement connue sous le nom d'URI de données). Le gfx n'est pas nécessaire après la conversion car les images sont déplacées vers le HTML.

@ihnleung

// https://community.jmp.com/t5/Discussions/Distribution-plots-not-showing-in-Journal-saved-as-html/m-p/475041#M71971
// asked about emailing html reports. This code is an example of how the external
// images in the gfx folder can be converted into embedded URI data.
// most browsers should support this; it makes the html bigger, of course, but
// doesn't need the images in a shared directory.
workdir = "$temp/deleteme/";// careful! this dir is deleted ...
Delete Directory( workdir );// BANG!
Create Directory( workdir );// create empty dir
//
// make a journal with some reports and save it as html with external images in the gfx dir
//
dt = Open( "$sample_data/big class.jmp" );
bv = dt << Bivariate( Y( :weight ), X( :height ), Fit Line );
bv << journal;
bv << closewindow;
ow = dt << Oneway( Y( :height ), X( :sex ), Means( 1 ), Mean Diamonds( 1 ) );
ow << journal;
ow << closewindow;
Close( dt, nosave );
Current Journal() << savehtml( workdir || "x.html" );
Current Journal() << closewindow;
//
// load the html just saved above and embed the images in the gfx directory
//
html = Load Text File( workdir || "x.html" );// get the journal's html
snips = {}; // collect the snipped up html here
rc = Pat Match(// loop through the html, snipping it up into 'not file' and 'file' sections
    html, // the html that needs the files converted into URI (inline pictures)
    Pat Repeat(
        Pat Arb() >> txt // txt holds a snip of html that is not a picture file name
        + // text before a filename, above, is followed by a filename (or the end), below
        (
            ("<IMG src="\!" />> file + "\!"") // file holds a picture name
        | // alternative at the end, there is no filename
            Pat R Pos( 0 ) >> file // made it to the end of the text, file is "" in this case
        ) + //
        Pat Test( //
            Insert Into( snips, txt ); // first snip
            If( file != "", // second snip, except not at the end
                Insert Into( // replace the snipped part with embedded data
                    snips, // https://stackoverflow.com/questions/6826390/how-to-convert-image-to-data-uri-for-html-with-c
                    "<IMG src="\!" image="" />

<P>On dirait que le JSL pourrait être mutilé (& deux-points ; au lieu de : ) à cause du code HTML à l'intérieur du code HTML... le fichier joint pourrait mieux fonctionner.</P> <P> </P><LINGO-TEASER id="lingo-teaser-483286" slang="en-US" mode="CREATE"><P><SPAN class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="Capture.PNG" style="width: 744px;"><span class="lia-inline-image-display-wrapper" image-alt="Capture.PNG" style="width: 744px;"><img src="https://us.v-cdn.net/6038925/uploads/images/42144iA2F4CD2B3F8B1998/Capture.PNG" role="button" title="Capture.PNG" alt="Capture.PNG" /></span></SPAN></P> <P>Besoin d'envoyer du HTML avec les images intégrées par e-mail&nbsp;? Problèmes de répertoire GFX ?</P> <P> </P></LINGO-TEASER>Re : HTML avec images intégrées

Lorsque je veux avoir des rapports sans dossiers gfx, j'ai généralement créé du HTML interactif, puis je l'ai cassé volontairement, mais cela ajoutera beaucoup de texte inutile au .html qui n'est pas nécessaire (cela peut paraître un peu plus joli, mais généralement je je n'en ai pas besoin). J'ai fait quelque chose d'un peu similaire lors de l'envoi de rapports JMP avec PowerShell en utilisant Send-MailMessage avec des images intégrées (j'ai modifié les parties HTML avec

avec cid .

Inspiré par cet article, j'ai écrit du code qui tente d'éviter la création d'un dossier gfx. Très probablement, ce n'est pas aussi robuste car différentes plates-formes auront probablement une certaine bizarrerie lors de l'utilisation de << get html. Je n'ai pas (encore...) appris à utiliser Pat Match, j'ai donc utilisé Munger() et quelques autres choses pour remplacer les caractères corrects. Le script enregistrera également différents types de rapports HTML interactifs pour voir leur taille par rapport aux images intégrées.

Scénario:

voir plus......

Names Default To Here(1);

dt = Open("$sample_data/big class.jmp", invisible);

workdir = "$temp/deleteme/";// careful! this dir is deleted ...

If(!Directory Exists(workdir),
	Create Directory(workdir);
);

nw = New Window("Report Window",
	H List Box(
		dt << Bivariate(Y(:weight), X(:height), Fit Line),
		dt << Oneway(Y(:height), X(:sex), Means(1), Mean Diamonds(1)),
		dt << Graph Builder(
			Show Control Panel(0),
			Variables(X(:Sex), Y(:Height), Group X(:Age)),
			Elements(Box Plot(X, Y))
		),
		dt << get as report
	)
);

// For some reason Oneway does create distribution plot twice. Using journal avoids this...
// New Window("", H List Box(pic_boxes[4], pic_boxes[5]));

// using journal conversion will partially break some interactivity, so save them before
nw << Save Interactive HTML(workdir || "test_interactive.html");
nw << Save Interactive HTML(workdir || "test_interactive_static.html", 1); // isStatic

nw << Journal Window;
nw << Close Window;
nw = Current Journal();
nw << Set Window Title("Journaled New Window");
Main Menu("Edit:Lock Journal", nw << Get Window Title);

// get html string from journal
html_str = nw << Get html;
// use xpath to get references to all pictureboxes
pic_boxes = nw << XPath("//PictureBox"); // for some reason in this case, last picturebox is found twice

// in basic html pictureboxes will be replaced by Picture Ignored string
pic_ignored_count = N Items(Words(Substitute(html_str, "Picture ignored", "¤"), "¤")) - 1; // only works if there are no ¤ in string
pics = pic_boxes << get picture;

For Each({cur_pic, idx}, pics,
	{w, h} = cur_pic << get size;
	base64compressed_str = Arg(Arg(parse(Char(cur_pic)), 1), 1);
	base64_str = Encode64 Blob(Gzip Uncompress(Char To Blob(base64compressed_str, "base64compressed")));
	// clean some <BR /> to make nicer looking html
	html_str = Munger(html_str, idx, "<BR />\!NPicture ignored<BR />\!N<BR />", Eval Insert("<IMG src="\!" image="" />"));	
);

// change background color to something a bit less blinding than white
// some grayish ones with names: gainsboro, whitesmoke, oldlace, silver, darkgray. https://www.w3.org/wiki/CSS/Properties/color/keywords
// for JMP's WHITE THEME color use rgb(248,248,248)
// for JMP's GRAY  THEME color use rgb(219,224,227), most likely not the best idea, as some fonts and other backgrounds should also be changed
Substitute Into(html_str, "body { ", "body { background-color:whitesmoke;,"); 

nw << Save Interactive HTML(workdir || "test_interactive_journal.html");
nw << Save Interactive HTML(workdir || "test_interactive_static_journal.html", 1); // isStatic
filename = Save Text File(workdir || "test_embedded.html", html_str); // save the embedded version
nw << Close Window;
Close(dt, nosave);

Open(workdir);