| |
// 失敗作：
// HTML の Form 入力を起動して 秀丸マクロを発生/起動する。
//
// ========================== - 1 - .html 発生＋起動
$basename=basename;
openfile "z.html";if(!result){menu "can't open";endmacro;}
while("z.html"!=basename){nexthidemaru;}selectall;delete;
insert "<HTML><HEAD><TITLE>わかりやすい置換</TITLE></HEAD><BODY>\n";
insert "<P><FORM ACTION='JavaScript:makeHmac()' name='Zform'>\n";
// ACTION で外部から秀丸のマクロを起動できないか？or equivalent
insert "ＸＸ中の ";
insert "<input type=text size=11 name='aa'><BR>\n";
insert "○○直後の ";
insert "<input type=text size=11 name='bb'><BR>\n";
insert "☆☆が無ければ補充 ";
insert "<input type=text size=11 name='cc'><BR>\n";
insert "<input type=submit VALUE='実行'>\n";
insert "</P></FORM>\n";
insert "<SCRIPT LANGUAGE='JavaScript'>\n";
insert "var txst,fobj,Fw=2;\n";
insert "//\n";
insert "function makeHmac(){\n";
insert "with(document.Zform){\n";
insert "// 入力値検査\n";
insert "if(aa.value==''){alert('! ＸＸ');return;}\n";
insert "if(bb.value==''){alert('! ○○');return;}\n";
insert "if(cc.value==''){alert('! ☆☆');return;}\n";
insert "// z.mac 出力 引用符の使い分けは神経使う\n";
insert "fobj=new ActiveXObject('Scripting.FileSystemObject');\n";
// ↓頭に秀丸マクロdirを付けること。
insert "txst=fobj.OpenTextFile('x.mac',Fw,true);";//ﾃﾞｽｸﾄｯﾌﾟになる
// 値渡しのやり方はこれでよいか？（ソース経由）
insert "txst.WriteLine('$aa=\"'+aa.value+'\";')\n";
insert "txst.WriteLine('$bb=\"'+bb.value+'\";')\n";
insert "txst.WriteLine('$cc=\"'+cc.value+'\";')\n";
insert "txst.WriteLine('searchdown \"<\"+$aa+\">\";');\n";
insert " txst.Write('searchdown \"</\"+$aa+\">|<\"+');\n";
insert "txst.WriteLine('$bb+\">\",regular;');\n";
insert "txst.WriteLine(\"right;if('/'==code)endmacro;\");\n";
insert "txst.WriteLine('right length($bb)+1;');\n";
insert "txst.WriteLine(\"while(0xD==code||0x9==code||' '==code)\")\n";
insert "txst.WriteLine('right;#x=x;#y=y;');\n";
insert "txst.WriteLine('right length($cc)+2;');\n";
insert "txst.WriteLine('$w=gettext(#x,#y,x,y);');\n";
insert "txst.WriteLine('if(\"<\"+$cc+\">\"==$w)endmacro;');\n";
insert "txst.WriteLine('left length($cc)+2;');\n";
insert "txst.WriteLine('insert \"<\"+$cc+\">\";');\n";
insert "txst.WriteLine('endmacro;');\n";
insert "//\n";
insert "txst.Close();\n";
insert "} }</SCRIPT></BODY></HTML>\n";
// ------------- .html 発生は特にマクロでする必要は無い。
save;#h=hidemaruhandle(0);
while($basename!=basename){prevhidemaru;}
closehidemaru #h;
//
//run "STARTbat.bat z.html";// 切れ味はイマイチ JScript は IE で
//
// JScript なので file I/O で x.mac 作成。
// ClipBoard 経由の形も可能。
// html 画面の方から秀丸へマクロ起動信号を送れるといいのだが
// マクロ起動のところだけActiveXObjectになっていると助かるのだが。
// 外部からのマクロ起動は /xマクロ名 ファイル名でopen時しかできない。
// 前半のSTARTも不要にできる。(秀丸と帳票画面を同時に開いたまま)
// ========================== - 2 - 作成 .mac 起動
//execmacro "x.mac"; // 帳票入力後、手でやらなきゃ ===========
//
// Form 入力のメニューやダイアログを自分で作る手もあるが、
// これからはHTML(XML)の帳票入力機能でしょう。今はHTML/JavaScript
// の混在で汚くなっている（大昔のBASICアプリのよう）けれど。
// (帳票機能の定型を整理する検討も進んでいるし将来性あり)
// 画像はめ込みの入力画面は秀丸で作る気にならないし。
// そんな機能は秀丸らしくない。
// でも帳票入力は使いたい！。これより便利に、ジレンマ
//
// 秀丸はcgiサーバーじゃないのでデータはfile/ClipBoard経由など
// z.html x.mac は一時の作業用。
//
// 秀丸マクロ側主導（サーバー等）のかたちしかできないか？
//
|
|