'*********************************************
'VBS скрипт для генерации плейлиста с 'присобаченными в нужном порядке джинглами :)
'Никаких гарантий, у меня скрипт работает :)
'*********************************************

'начало, определени переменных, обьектов и прочего
JinglesPath = "jingles\"
HowMany =3 'сколько песен перед вставкой джингла
silence=0
'входной плейлист
InputPlayList="temp2.m3u"
NameofNewPlaylist="autopilot.m3u"


dim fso,wsh
set wsh = Wscript.CreateObject ("WScript.Shell")
set fso= createobject("Scripting.FileSystemObject")
'надеюс, плейлист, у вас уже есть
Set Playlist = fso.OpenTextFile(inputplaylist)
Set OutFile = fso.CreateTextFile(NameofNewPlaylist, True)
OutFile.WriteLine("#EXTM3U")

'список джинглов
Set Jingles = fso.GetFolder(wsh.ExpandEnvironmentStrings(JinglesPath))  
set arrJingles = Jingles.Files         ' Get Files collection.


dim k(500)
j=0
For Each Jingle In arrJingles
     if Jingle <>Jingles & "\silence.mp3" then
   	k(j)=Jingle
	j=j+1
     end if	
Next


i=0
l=0
Do While Not (Playlist.atEndOfStream)

	if i=howmany then 
		OutFile.WriteLine(k(l))
		if silence=1 then 
		'  if k(l)<>Jingles & "\silence.mp3" then
        	OutFile.WriteLine(Jingles & "\silence.mp3")
        	'        end if
        	end if
		i=0
		l=l+1
	     if l>j-1 then l=0
	else 

        	OutFile.WriteLine(Playlist.ReadLine)
		i=i+1
	end if 
Loop



'Set oWSH = WScript.CreateObject("WScript.Shell")
'oWSH.Run "RunDll32.exe %WINDIR%\System\Amovie.ocx,RunDll /play /close Test\Sound.wav"