483286_ko-KR

liliconcom

삽입된 이미지가 포함된 HTML

이는 대화형 HTML을 저장하기 위한 것이 아닙니다. SaveInteractiveHTML은 이미 이 작업을 수행하고 있습니다. 아마도 대신 사용해야 할 것입니다.

JMP는 그래픽과 함께 HTML을 저장할 때 이미지를 보관할 gfx라는 디렉토리를 생성합니다. gfx 디렉토리는 동일한 상위 디렉토리에 저장된 모든 HTML 파일에 대한 이미지를 보유합니다. HTML을 누군가에게 보내는 경우 해당 HTML에 대한 파일만 필요하며 gfx 디렉토리와 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>답: 이미지가 포함된 HTML

gfx 폴더 없이 보고서를 원할 때 일반적으로 대화형 HTML을 만든 다음 의도적으로 중단했지만 이렇게 하면 필요하지 않은 불필요한 텍스트가 .html에 많이 추가됩니다(조금 더 예뻐 보일 수 있지만 일반적으로 필요하지 않습니다). 포함된 이미지가 있는 Send-MailMessage를 사용하여 powershell로 JMP 보고서를 보낼 때 약간 비슷한 작업을 수행했습니다.

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