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)