body_TEXT="#000000";
body_BGCOLOR="#EFEFEF";
body_LINK="#0000FF";
body_ALINK="#FF0000";
body_VLINK="#660099";
font_COLOR="#FF0000";
katyu=false;
header='';
main='';
footer='';
document.selection.StartOfDocument();
if(document.selection.Find("＠｀", eeFindNext)) katyu=true;
document.selection.SelectAll();
data = document.selection.Text;
if(katyu) data = data.replace(/,/g,"<>").replace(/＠｀/g,",");
data = data.replace(/(\r\n|\r)/g,"\n").replace(/<a href=.+?>>>(\d{1,4})/g,'<A href="#R$1">>>$1').split("\n");
for(i in data){
i-=0; //整数に変換
data[i]=data[i].split("<>");
if(data[i][0]=="") break;
main+='<DT><A NAME="R'+(i+1)+'">'+(i+1)+' 名前：<FONT COLOR="forestgreen"><B>'
main+=(data[i][1]==null || data[i][1]=="") ? data[i][0] : '<A HREF="mailto:'+data[i][1]+'">'+data[i][0]+'</A>';
main+='</B></FONT> ：'+data[i][2]+'<DD>'+data[i][3]+'<BR><BR>\n'
}
header+='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">\n';
header+='<HTML>\n';
header+='<HEAD>\n';
header+='<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">\n';
header+='<TITLE>'+data[0][4]+'</TITLE>\n';
header+='</HEAD>\n';
header+='<BODY TEXT="'+body_TEXT+'" BGCOLOR="'+body_BGCOLOR+'" LINK="'+body_LINK+'" ALINK="'+body_ALINK+'" VLINK="'+body_VLINK+'">\n';
header+='<P><FONT SIZE=+1 COLOR="'+font_COLOR+'">'+data[0][4]+'</FONT></B><BR>\n';
header+='<DL>\n';
footer+='</DL>\n';
footer+='<HR>\n';
footer+='<DIV ALIGN="right"><FONT size=-1>DAT2HTML Macro 0.1b on \n';
footer+='<A HREF="http://www.emeditor.com/jp/" target=_blank>EmEditor Professional</A> Converted.</FONT></DIV>\n';
footer+='</BODY>\n';
footer+='</HTML>\n';
document.selection.Text = header+main+footer;
if(data[0][4].match(/[\\\/\:\*\?\"\<\>\|]/)){ //ファイル名で使えない文字の変換(テストしてません)
data[0][4]=data[0][4].replace(/\\/g,"￥").replace(/\//g,"／").replace(/\:/g,"：")
data[0][4]=data[0][4].replace(/\*/g,"＊").replace(/\?/g,"？").replace(/\"/g,"”")
data[0][4]=data[0][4].replace(/\</g,"＜").replace(/\>/g,"＞").replace(/\|/g,"｜")
}
document.Save(document.Path+"\\"+data[0][4]+".html");
まあ、dat2html（バイナリの方）使えって話なんですが。
-
使い方
--datファイルを開く
↓
--マクロ実行
↓
--(ﾟдﾟ)ｳﾏｰ
一応、かちゅ形式のログにも対応。(2/12 02:04)
ファイル名に使えない文字(\/:*?"<>|)を変換するようにした(2/14 16:42)
