// 選択文字列をすべて削除 (2013/09/11) setcompatiblemode 0x20000; loaddll "HmJre.dll"; begingroupundo; disabledraw; if (!selecting) selectword; #oc = seltopcolumn; #ol = seltoplineno; $basetext = gettext(seltopx, seltopy, selendx, selendy, false); if ($basetext != "") { $srcptn = dllfuncstr("ReplaceRegular", "([()\\[\\]{}*+.?^$\\\\|])", $basetext, 0, "\\\\\\1", 2); replaceallfast $srcptn, "", regular; } moveto2 #oc, #ol; enabledraw; endgroupundo; freedll;