483286_es-ES

liliconcom

HTML con imágenes incrustadas

Esto NO es para guardar HTML interactivo. SaveInteractiveHTML ya hace esto. Probablemente deberías usarlo en su lugar.

Cuando JMP guarda HTML con gráficos, crea un directorio llamado gfx para contener las imágenes. El directorio gfx contendrá imágenes de todos los archivos HTML que se guarden en el mismo directorio principal. Si envía el HTML a alguien, solo necesitará los archivos para ese HTML y deberá colocar el directorio gfx y el HTML en la misma ubicación. Funciona bastante bien si tienes un servidor donde puedas colocarlos, pero no tan bien si los envías por correo electrónico.

Este JSL de ejemplo incrustará las imágenes en HTML utilizando una URL de datos ( anteriormente conocida como URI de datos). El gfx no es necesario después de la conversión porque las imágenes se mueven al 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>Parece que el JSL podría estropearse (& dos puntos; en lugar de:) debido al html dentro de html... el archivo adjunto podría funcionar mejor.</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>¿Necesita enviar por correo electrónico HTML con las imágenes incrustadas? ¿Problemas con el directorio GFX?</P> <P> </P></LINGO-TEASER>Re: HTML con imágenes incrustadas

Cuando quiero tener informes sin carpetas gfx, generalmente creo html interactivo y luego lo rompo a propósito, pero esto agregará una gran cantidad de texto innecesario a .html que no es necesario (puede que se vea un poco más bonito, pero generalmente no lo necesito). He hecho algo un poco similar al enviar informes JMP con powershell usando Send-MailMessage con imágenes incrustadas (modifiqué las partes de html con

con cid .

Inspirándome en esta publicación, escribí un código que intenta evitar la creación de una carpeta gfx. Lo más probable es que esto no sea tan sólido ya que las diferentes plataformas probablemente tendrán algunas rarezas al usar << get html. No he aprendido (todavía...) a usar Pat Match, así que usé Munger() y algunas otras cosas para reemplazar los caracteres correctos. El script también guardará diferentes tipos de informes HTML interactivos para ver su tamaño en comparación con las imágenes incrustadas.

Guion:

Ver más...

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);