// 簡易電卓 Ver 0.00 // // // // // // by Atsushi 2008/10/13 // // サブルーチン (WSH) /*@cc_on try { with (Math) { WScript.StdOut.Write(eval(WScript.StdIn.ReadAll())); } } catch (e) { WScript.StdOut.Write(e.description); } WScript.Quit(); @*/ /*@if (0!=0) @*/ // メイン if (selecting) { run "cmd.exe /c "+ "cd \""+currentmacrodirectory+"\" && "+ "cscript.exe //e:jscript //nologo "+currentmacrobasename+" < con > con"; } else { /* #x=x; #y=y; golinetop2; beginsel; moveto #x,#y; */ $expression=gettext2(0,lineno,column,lineno); insert " = "; beginsel; run "cmd.exe /c "+ "cd \""+currentmacrodirectory+"\" && "+ "echo "+$expression+" | "+ "cscript.exe //e:jscript //nologo "+currentmacrobasename+" > con"; } /*@end @*/