Macro
area:'Shell'
key:'F2'
flags:'EmptyCommandLine EnableOutput'
description:'RAD=>M3U'
condition:->
APanel.Prefix==''
action:->
panel.GetUserScreen!
fread=(f)->
h,x = io.open f,'rb'
if h
x=h\read '*l'
io.close h
x
fwrite=(s,f)->
s=s or ''
h,x = io.open f,'wb'
if h
x=h\write s
io.close h
x
s='#EXTM3U'
while APanel.SelCount>0
Panel.SetPosIdx 0,1,1
fp=mf.string Panel.Item 0,0,0
if '.rad'==fp\sub -4,-1
s..='\n#EXTINF:'..fp..'\n'..fread fp
Panel.Select 0,0,2,fp
tmp=win.GetEnv 'TEMP'
fwrite s,tmp..APanel.Path\match('\\[^\\]+$')..'.m3u'
panel.SetUserScreen!
|
