да, да, это опять фар ;)

[kildor]

(дабы не потерялось, ну и, вдруг кому интересно будет…)

выдрать из архива его описание…

macro:post $iClip CtrlPgDn Alt< "*.diz" Esc %file=APanel.Current;
$if (fsplit(%file,0x00000008)!=".diz"&& fsplit(%file,0x00000008)!=".DIZ")
$if(APanel.Folder &&APanel.CurPos==2&&APanel.ItemCount==2)
CtrlPgDn Alt< "*.diz" Esc
$if (fsplit(APanel.Current,0x00000008)!=".diz"&&fsplit(APanel.Current,0x00000008)!=".diz")
CtrlPgUp
clip(1,"Автор был ленив и описания не предоставил")
$else
F4 CtrlA CtrlIns Esc CtrlPgUp
$end
$else
clip(1,"Автор был ленив и описания не предоставил")
$end
CtrlPgUp
$else
F4 CtrlA CtrlIns Esc CtrlPgUp
$end
CtrlZ clip(1,substr(clip(0,"0"),0,60)) ShiftIns $text "..." CtrlEnter

PS: надо бы ещё добавить поддержку выделенных файлов, и порасширить возможности его… ;)

Powered by lj-sidebar