483286_de-DE

liliconcom

HTML mit eingebetteten Bildern

Dies ist NICHT zum Speichern von interaktivem HTML gedacht. SaveInteractiveHTML erledigt dies bereits. Sie sollten es stattdessen wahrscheinlich verwenden.

Wenn JMP HTML mit Grafiken speichert, erstellt es ein Verzeichnis namens gfx, in dem die Bilder gespeichert werden. Das gfx-Verzeichnis enthält Bilder für alle HTML-Dateien, die im selben übergeordneten Verzeichnis gespeichert sind. Wenn Sie das HTML an jemanden senden, benötigt dieser nur die Dateien für dieses HTML und muss das gfx-Verzeichnis und das HTML am selben Speicherort ablegen. Das funktioniert ziemlich gut, wenn Sie einen Server haben, auf dem Sie die Bilder ablegen können, aber nicht so gut, wenn Sie sie per E-Mail verschicken.

Dieses Beispiel-JSL bettet die Bilder mithilfe einer Daten-URL ( früher als Daten-URI bezeichnet ) in das HTML ein. Die Grafik wird nach der Konvertierung nicht mehr benötigt, da die Bilder in das HTML verschoben werden.

@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>Sieht aus, als ob das JSL wegen des HTML im HTML verstümmelt sein könnte (& Doppelpunkt ; statt : )... die angehängte Datei könnte besser funktionieren.</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>Müssen Sie HTML mit eingebetteten Bildern per E-Mail verschicken? Probleme mit dem GFX-Verzeichnis?</P> <P> </P></LINGO-TEASER>Betreff: HTML mit eingebetteten Bildern

Wenn ich Berichte ohne GFX-Ordner haben möchte, erstelle ich normalerweise interaktives HTML und zerstöre es dann absichtlich, aber das fügt der HTML-Datei viel unnötigen Text hinzu, der nicht benötigt wird (es sieht vielleicht etwas hübscher aus, aber normalerweise brauche ich ihn nicht). Ich habe etwas Ähnliches getan, als ich JMP-Berichte mit Powershell unter Verwendung von Send-MailMessage mit eingebetteten Bildern gesendet habe (ich habe die Teile des HTML mit

mit cid:).

Inspiriert von diesem Beitrag habe ich Code geschrieben, der versucht, die Erstellung eines gfx-Ordners zu vermeiden. Höchstwahrscheinlich ist dies nicht so robust, da es auf verschiedenen Plattformen wahrscheinlich zu Merkwürdigkeiten bei der Verwendung von << get html kommt. Ich habe (noch) nicht gelernt, wie man Pat Match verwendet, also habe ich Munger() und einige andere Dinge verwendet, um korrekte Zeichen zu ersetzen. Das Skript speichert auch verschiedene Arten interaktiver HTML-Berichte, um zu sehen, wie groß sie im Vergleich zu eingebetteten Bildern sind.

Skript:

Mehr sehen...

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