MediaMonkey forum

Code: Select all

Option Explicit

Sub CopyTagDataWithinPairs

  Dim mySongList
      Set mySongList = SDB.SelectedSongList

  If MySongList.Count = 0 Then
    Set MySongList = SDB.AllVisibleSongList
    If MySongList.Count = 0 Then
      SDB.MessageBox "Nothing selected!", mtError, Array(mbOK)
      Exit Sub
    End If
  End If
  
  Dim i, SongFrom, SongTo
  For i = 0 To mySongList.Count - 1 Step 2
      Set SongFrom = mySongList.Item(i) 'first song is the old one to get the tags from
      Set SongTo = mySongList.Item(i + 1) 'second song is the new one to write the data to
      
      ''Set SongTo.Album = SongFrom.Album
      ''Set SongTo.AlbumArt = SongFrom.AlbumArt
      SongTo.AlbumArtistName = SongFrom.AlbumArtistName
      SongTo.AlbumName = SongFrom.AlbumName
      ''Set SongTo.Artist = SongFrom.Artist
      SongTo.ArtistName = SongFrom.ArtistName
      SongTo.Author = SongFrom.Author
      
      SongTo.Band = SongFrom.Band
      SongTo.BPM = SongFrom.BPM
      SongTo.Comment = SongFrom.Comment
      SongTo.Conductor = SongFrom.Conductor
      SongTo.Copyright = SongFrom.Copyright
      SongTo.Custom1 = SongFrom.Custom1
      SongTo.Custom2 = SongFrom.Custom2
      SongTo.Custom3 = SongFrom.Custom3
      SongTo.Genre = SongFrom.Genre
      SongTo.InvolvedPeople = SongFrom.InvolvedPeople
'...
'... more to add...
'...

' I obviously didn't add things like DateAdded and Encoder

' What about copying objects like AlbumArt?

' Could the method GetCopy be used?

      SongTo.UpdateAlbum
      SongTo.UpdateArtist
      SongTo.UpdateDB
      SongTo.WriteTags

  Next

End Sub

Code: Select all

  For i = 0 To mySongList.Count - 1 Step 2
      Set SongFrom = mySongList.Item(i) 'first song is the old one to get the tags from
      Set SongTo = mySongList.Item(i + 1) 'second song is the new one to write the data to

Code: Select all

  For i = 0 To mySongList.Count/2 - 1
      Set SongFrom = mySongList.Item(i) 'first song is the old one to get the tags from
      Set SongTo = mySongList.Item(i + mySongList.Count/2) 'second song is the new one to write the data to

Code: Select all

Dim mySongListFrom, mySongListTo

Sub Main
  If SelectTracksFrom Then
    'GIVE THE USER A MESSAGE AND THE CHANCE TO SELECT OTHER TRACKS TO SAVE THE TAGS TO
    If SDB.MessageBox("Select tracks to save tags to, please.", mtInformation, Array(mbOk, mbCancel)) = mrOk Then
      If SelectTracksTo Then
        CopyTagDataBetweenSonglists(mySongListFrom, mySongListTo)
      End If
    End If
  End If
End Sub

Function SelectTracksFrom
  SelectTracksFrom = False
  Set mySongListFrom = SDB.SelectedSongList

  If MySongListFrom.Count = 0 Then 
    Set MySongListFrom = SDB.AllVisibleSongList 
    If MySongListFrom.Count = 0 Then 
      SDB.MessageBox "Nothing selected!", mtError, Array(mbOK) 
      Exit Function 
    End If 
  End If

  SelectTracksFrom = True
End Function

Function SelectTracksTo
  SelectTracksTo = False
  Set mySongListTo = SDB.SelectedSongList

  If MySongListTo.Count = 0 Then 
    Set MySongListTo = SDB.AllVisibleSongList 
    If MySongListTo.Count = 0 Then 
      SDB.MessageBox "Nothing selected!", mtError, Array(mbOK) 
      Exit Sub 
    End If 
  End If

  If MySongListTo.Count = MySongListFrom.Count Then SelectTracksTo = True
End Function
  
Sub CopyTagDataBetweenSonglists(SLFrom, SLTo)
  Dim i, SongFrom, SongTo 
  For i = 0 To SLFrom.Count - 1
      Set SongFrom = SLFrom.Item(i)
      Set SongTo = SLTongList.Item(i)
      
      '.... The same as always...

  Next
End Sub