Code: Select all
Macro
{
description="Execute current row"; area="Editor"; key="F9";
condition= function()
return Editor.FileName:lower():find('%.txt$')
end;
action=function()
local Str = Object.Selected and Editor.SelValue or Editor.Value
if Str == "" then
return
end
panel.GetUserScreen()
io.write("\n\n> " .. win.Utf8ToOem(Str) .. "\n\n")
-- os.execute( Str )
win.system(Str)
panel.SetUserScreen()
Keys("CtrlO") -- Чтобы можно было сделать AltIns
-- mf.waitkey()
end;
}