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! |