sEXEcutor
|
 Posted: Mon May 17, 2010 16:11 Post subject: |
 |
|
Пользовался скриптом от Batya, пока в коллекции не начали появляться названия на сербском, эстонском - в общем, на юникоде.
TC2MP у меня отказывается находить свой конфиг, поэтому я переписал скрипт на создание юникодного плейлиста вместо многократного вызова Winamp.exe
Аргументы скрипта изменены.
Если положить в папку Winamp'а, работает без правок.
| Code: | 'Проигрывание\добавление отмеченных файлов в Winamp
'В параметрах необходимо прописать "%WL", если нужно проиграть список
'Если нужно добавить файлы в плейлист, нужно указать любой второй параметр
Winamp = "Winamp.exe" 'Путь к Winamp-у
PlayContent = ""
Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1, false, -1)
Do While Not TempFile.AtEndOfStream
Str = TempFile.ReadLine
if Right(Str,1) = "\" then
Str = Left(Str, Len(Str) - 1)
end if
PlayContent = PlayContent & Str & Chr(10)
Loop
TempFile.Close
Set TempFile = Nothing
PlaylistName = WScript.Arguments(0) & ".m3u8"
Set OutputStream = CreateObject("ADODB.Stream")
OutputStream.CharSet = "utf-8"
OutputStream.Mode = 3
OutputStream.Open
OutputStream.WriteText PlayContent
OutputStream.SaveToFile(PlaylistName), 2
OutputStream.Close
Set OutputStream = Nothing
Set WS = CreateObject("WScript.Shell")
if WScript.Arguments.Count > 1 then
WS.run chr(34) & Winamp & chr(34) & " /add " & chr(34) & PlaylistName & chr(34)
else
WS.run chr(34) & Winamp & chr(34) & " " & chr(34) & PlaylistName & chr(34)
end if |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
