Step 1: Export your iTunes playlists (even "Genius" lists will work with this!) to a folder on your Windows computer
Step 2: Run the "fixlist.cmd" file from within the folder where you exported your playlists. (See below for code)
Step 3: Import your playlists into Madsonic!
Below is the script for what is needed to do the above. There are two files you need to create. One is "Fixlist.Cmd", and the other is "Fixlist.vbs". The CMD file will "call" the VBS file. You will only need to make changes to the CMD file, based on your storage locations.
Code: Select all
@echo off REM ** Change to the drive where your media is ** X: REM ** Change to folder on drive above where media is stored ** cd \allshared\media\playlists REM ** The Next two lines call the VBS file. REM ** Line 1 converts the data folders from the Windows path to the Linux path REM ** Line 2 converts any remaining \ into / (If you are not using Linux, then REM this line out!) REM ** Note: To view the full path, open a playlist in Notepad, and you can copy/paste here for %%A in ("*.m3u8") DO cscript //nologo fixlist.vbs "%%A" "X:\path\from\playlist\file" "\linux\path\to\media" for %%A in ("*.m3u8") DO cscript //nologo fixlist.vbs "%%A" "\" "/"
Code: Select all
Option Explicit Dim fso,strFilename,strSearch,strReplace,objFile,oldContent,newContent strFilename=WScript.Arguments.Item(0) strSearch=WScript.Arguments.Item(1) strReplace=WScript.Arguments.Item(2) 'Does file exist? Set fso=CreateObject("Scripting.FileSystemObject") if fso.FileExists(strFilename)=false then wscript.echo "file not found!" wscript.Quit end if 'Read file set objFile=fso.OpenTextFile(strFilename,1) oldContent=objFile.ReadAll 'Write file newContent=replace(oldContent,strSearch,strReplace,1,-1,0) set objFile=fso.OpenTextFile(strFilename,2) objFile.Write newContent objFile.Close