Code: Select all
' remove "Alt" variations from
' Title field of selected tracks
' also trying to remove it from
' Artist field
Option Explicit
Sub Alts
' Define variables
Dim list, song, i, temp
' Get list of selected tracks from MediaMonkey
Set list = SDB.SelectedSongList
If list.count=0 Then
Set list = SDB.AllVisibleSongList
End If
' Process all selected tracks
For i=0 To list.count-1
Set song = list.Item(i)
' strip the Alts
temp = song.Title
temp = Replace(temp, "[", "(")
temp = Replace(temp, "]", ")")
temp = Replace(temp, " (Alt)", "")
temp = Replace(temp, " (Alt 1)", "")
temp = Replace(temp, " (Alt 2)", "")
temp = Replace(temp, " (Alt 3)", "")
temp = Replace(temp, " (Alt 4)", "")
temp = Replace(temp, " (Alt 5)", "")
temp = Replace(temp, " (Alt 6)", "")
temp = Replace(temp, " (Alt 7)", "")
temp = Replace(temp, " (Alt 8)", "")
temp = Replace(temp, " (Alt 9)", "")
temp = Replace(temp, " (Alt 10)", "")
temp = Replace(temp, " (alt)", "")
temp = Replace(temp, " (alt 1)", "")
temp = Replace(temp, " (alt 2)", "")
temp = Replace(temp, " (alt 3)", "")
temp = Replace(temp, " (alt 4)", "")
temp = Replace(temp, " (alt 5)", "")
temp = Replace(temp, " (alt 6)", "")
temp = Replace(temp, " (alt 7)", "")
temp = Replace(temp, " (alt 8)", "")
temp = Replace(temp, " (alt 9)", "")
temp = Replace(temp, " (alt 10)", "")
temp = Replace(temp, " (alternate)", "")
temp = Replace(temp, " (alternate take)", "")
temp = Replace(temp, " (alternative take)", "")
temp = Replace(temp, " (alternate version)", "")
temp = Replace(temp, " (alternative version)", "")
temp = Replace(temp, " (alternate mix)", "")
temp = Replace(temp, " (alternative mix)", "")
temp = Replace(temp, " (outtake)", "")
temp = Replace(temp, " (Alternate)", "")
temp = Replace(temp, " (Alternate Take)", "")
temp = Replace(temp, " (Alternative Take)", "")
temp = Replace(temp, " (Alternate Version)", "")
temp = Replace(temp, " (Alternative Version)", "")
temp = Replace(temp, " (Alternate Mix)", "")
temp = Replace(temp, " (Alternative Mix)", "")
temp = Replace(temp, " (Outtake)", "")
temp = Replace(temp, " (live)", "")
temp = Replace(temp, " (Live)", "")
temp = Replace(temp, "( .)", ".")
song.Title = temp
' temp = song.Artist
' temp = Replace(temp, " (alt)", "")
' song.Artist = temp
' temp = song.AlbumArtist
' temp = Replace(temp, " (alt)", "")
' song.AlbumArtist = temp
' Update the changes in DB
song.UpdateDB
Next
End Sub
Code: Select all
temp = song.Artist
' temp = Replace(temp, " (alt)", "")
' song.Artist = temp
Code: Select all
Set list = SDB.SelectedSongList
For i=0 To list.count-1
Set song = list.Item(i)