XML, XSL

やりたかったことは

1. フレーム版と非フレーム版を作る。
2. フレーム版は左のフレームを各皇帝へのリンク集にする。 右のフレームに皇帝別のコインの画像と説明を書く。 これは皇帝毎に別ファイルにする( 画像表示をともなうので１つのファイルにまとめると重いので）。
   右のフレームには、前の皇帝と次の皇帝のファイルへのリンクを表示したい。
3. 非フレーム版は一番上に各皇帝へのリンクを表示する。
4. IE5.0 だけでなく、ネスケでも読めるページにする。

そこで登場するのがXML

XMLからHTMLへの変換

option explicit
conv "link.xml", "link.xsl", "link.html"

sub conv(xmlpath, stylesheetpath, htmlpath)
	dim xmldoc, stylesheet, result, str, F_IN, FS, F_OUT
	set FS=createobject("Scripting.FileSystemObject")
	set F_IN=FS.GetFile(xmlpath)
 	set F_OUT=FS.CreateTextFile(htmlpath, 1)
	set xmldoc=createobject("MSXML2.DomDocument")
	xmldoc.async=false
	xmldoc.load(xmlpath)
	set stylesheet=createobject("MSXML2.Domdocument")
	stylesheet.async=false
	stylesheet.load(stylesheetpath)
	str = xmldoc.transformNode(stylesheet)
	str=okikae(str, "UTF-16", "Shift_JIS")
	str=okikae(str, "&", "&")
	str=okikae(str, "<br/>", "<br />")
	F_OUT.Write str
	F_OUT.Close
end sub

function okikae(inp_str, org, dest)
	dim n
	if len(org)=0 then okikae=inp_inp_str:return
	n=instr(1, inp_str, org)
	do while n>0
		inp_str=left(inp_str,n-1) & dest & mid(inp_str, n+len(org))
		n=instr(1, inp_str, org)
	loop
	okikae=inp_str
end function

&conv("link.xml", "link.xsl", "link.html");

sub conv{
	my($xmlpath, $stylesheetpath, $htmlpath)=@_;
	my($xmldoc, $stylesheet, $str, $n);
	$xmldoc=$WScript->CreateObject("MSXML2.DomDocument");
	$xmldoc->{async}=0;
	$xmldoc->load($xmlpath);
	$stylesheet=$WScript->CreateObject("MSXML2.DomDocument");
	$stylesheet->{async}=0;
	$stylesheet->load($stylesheetpath);
	$str=$xmldoc->transformNode($stylesheet);
	$str=~s/UTF-16/Shift_JIS/;     # transformNodeメソッドが勝手に UTF-16 と書いてくれるので修正
	$str=~s/&/&/ig;
	$str=~s"<br/>"<br />"ig;
	open(F_OUT, ">$htmlpath")||die "Cannot write $htmlpath";
	print F_OUT $str;
	close(F_OUT);
	$tsrc= time()-(-M $xmlpath)*24*3600;  # この２行で出力ファイルのタイムスタンプを
	utime  $tsrc, $tsrc, $htmlpath;       # 入力ファイルのタイムスタンプにあわせている。
}

いろいろ

古代ローマ（ローマ帝国の歴史とコイン）