483286_ja-JP

liliconcom

埋め込み画像付き HTML

これはインタラクティブ HTML を保存するためのものではありません。SaveInteractiveHTML はすでにこれを行っています。代わりにこれを使用するほうがよいでしょう。

JMP は、グラフィックを含む HTML を保存するときに、画像を格納するための gfx というディレクトリを作成します。gfx ディレクトリには、同じ親ディレクトリに保存されているすべての HTML ファイルの画像が格納されます。HTML を誰かに送信する場合、送信者はその HTML のファイルのみを必要とし、gfx ディレクトリと HTML を同じ場所に置く必要があります。HTML を保存できるサーバーがある場合はうまく機能しますが、電子メールで送信する場合はあまりうまく機能しません。

このサンプル JSL は、データ URL ( 以前はデータ URI と呼ばれていました) を使用して画像を HTML に埋め込みます。画像は HTML に移動されるため、変換後は gfx は必要ありません。

@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>html の中に html があるため、JSL が文字化けする可能性があるようです ( : ではなく & コロン ; )... 添付ファイルの方がうまくいくかもしれません。</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>画像を埋め込んだ HTML を電子メールで送信する必要がありますか? GFX ディレクトリに問題がありますか?</P> <P> </P></LINGO-TEASER>Re: 埋め込み画像付き HTML

私は、グラフィックスフォルダのないレポートが欲しいときは、通常、インタラクティブなHTMLを作成し、それをわざと分割しますが、これにより、不要なテキストが.htmlに大量に追加されます（見た目は少し良くなるかもしれませんが、通常は必要ありません）。私は、PowerShellでSend-MailMessageを使用して埋め込み画像を含むJMPレポートを送信するときに、少し似たようなことをしました（HTMLの次の部分を変更しました）。

cid 付き:)。

この投稿に触発されて、私は gfx フォルダーの作成を回避するコードを書きました。おそらく、これはそれほど堅牢ではありません。異なるプラットフォームでは、<< get html を使用すると奇妙な動作が発生する可能性が高いためです。私は (まだ...) Pat Match の使い方を学んでいないので、Munger() とその他のものを使用して正しい文字を置き換えました。スクリプトは、さまざまな種類のインタラクティブな HTML レポートを保存し、埋め込み画像と比較してレポートの大きさを確認します。

脚本：

もっと見る...

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