MediaMonkey forum

Code: Select all

'==========================================================================
' NAME: MergePlaylists.vbs
'
' AUTHOR: psyXonova
' DATE  : 23/1/2006
'
' COMMENT: This script will merge selected playlist with its childen.
'
'==========================================================================
Set DicList = CreateObject("Scripting.Dictionary")

Sub OnStartup
  SDB.UI.AddMenuItemSep SDB.UI.Menu_Pop_Tree,3,1

  Dim miAddToFavouriteNodes
  Set miAddToFavouriteNodes = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_Tree,0,0)
  With miAddToFavouriteNodes
    .Caption = "Merge Playlist with Children"
    .OnClickFunc = "mergePlaylist"
    .UseScript = Script.ScriptPath
    .IconIndex = 18
  End With
  
  End Sub
  
  Sub MergePlaylist(arg)
  Set myNode = SDB.MainTree.CurrentNode
  
  If myNode.NodeType <> 61 And myNode.NodeType <> 71 And mynode.NodeType <> 6 Then
  MsgBox "Please select a playlist"
  Else
  If myNode.nodeType = 6 Then 
  MsgBox "You must select a playlist, and not the parent node"
  Else
  
  	QSQL = "SELECT Playlists.IDPlaylist FROM Playlists WHERE Playlists.PlaylistName = '" & MyNode.Caption & "'" 'Like "& Node.Caption & " ORDER BY Playlist.ParentPlaylist"
	Set Iter = SDB.Database.OpenSQL(QSQL)
	i=0
	While Not Iter.Eof
		PlParent = Iter.ValueByIndex(0)
		i=i+1
		Iter.Next
	Wend
	
	If i>1 Then '2 or more playlists with the same name exist
		MsgBox "Multiple playlists with the same name"
	Else
	Dim myPlaylist, list, MainWindow
	Set myPlaylist = SDB.PlaylistByTitle(MyNode.Caption)
	Set list = myPlaylist.ChildPlaylists
	For i = 0 To list.Count -1
	DicList.Add list.item(i).id, list.Item(i)
	Next
	
	Do While True
	dicount = DicList.Count
	arrayitems = DicList.Items
	For j = 0 To DicList.Count - 1
 		Set myPlaylist = Arrayitems(j)
 		Set list = myPlaylist.ChildPlaylists
 		For i = 0 To list.Count -1
 			If Not DicList.Exists(list.Item(i).id) Then DicList.Add list.Item(i).id, list.Item(i)
 		Next
	Next
		If dicount => DicList.Count Then Exit Do
	Loop
	End If
	
	arrayitems = DicList.Items
	Set MainWindow = SDB.MainTracksWindow
	For i = 0 To DicList.Count -1
	Set myPlaylist = arrayitems(i)
		AddID = MainWindow.CurrentAddingId
		For j=0 To myPlaylist.Tracks.count -1
		MainWindow.AddTrackEx myPlaylist.Tracks.Item(j), AddID
		If SDB.MainTree.CurrentNode.caption <> myNode.caption Then Exit Sub
		Next
		
	Next
	MainWindow.FinishAdding
	
  End If
  End If
 End Sub