iScan - Find and delete duplicate songs in your iTunes library

[_Kurt]

A little app I made because I hate having duplicate songs on my iTunes, and with 2000 songs I'd hate to find them myself. Shockingly, my script found 20 duplicate songs and I saved 82.5MB worth of space.

My script uses a decent comparison method, so some song names that might not be equal might still be picked up. After scanning your library, please uncheck any songs that you do not wish to delete and afterwards click Delete Selected.

iTunes is needed to run the application

expandcollapse popup

#include <GUIConstants.au3>
#include <GUIListView.au3>

Global $listcount = 0, $foundCount, $Found, $iTracks, $Tracks ;some variables that will be used
$GUI = GUICreate("iScan - Delete duplicate songs", 283, 306, 193, 125)
GUICtrlCreateLabel("iScan", 24, 9, 44, 24)
GUICtrlSetFont(-1, 13, 2000, 0, "MS Sans Serif")
$Scan = GUICtrlCreateButton("Scan Library", 88, 8, 89, 25, 0)
$List1 = GUICtrlCreateListView("Song|Artist|Path", 8, 40, 265, 253)
_GUICtrlListView_SetExtendedListViewStyle($List1, $LVS_EX_CHECKBOXES) ;Set listview to checkbox style
_GUICtrlListView_SetColumnWidth($List1, 0, 87) ;even out the widths of the columns
_GUICtrlListView_SetColumnWidth($List1, 1, 87)
_GUICtrlListView_SetColumnWidth($List1, 2, 87)
$Delete = GUICtrlCreateButton("Delete Selected", 184, 8, 89, 25, 0)
GUICtrlSetState(-1,$GUI_DISABLE) ;set it disabled until scan is complete
GUISetState() ;show GUI

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $Scan ;scan is pressed
            GUICtrlSetState($Scan, $GUI_DISABLE) ;disable scan button until scan is complete
            Scan() ;see Scan()
            GUICtrlSetState($Delete, $GUI_ENABLE) ;enable delete button to allow user to delete checked songs
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $Delete
            GUICtrlSetState($Delete, $GUI_DISABLE)
            Delete() ;see Delete()
            GUICtrlSetState($Delete, $GUI_ENABLE)
    EndSelect
WEnd

Func Scan()
    GUICtrlSetData($Scan, "Creating iTunes Object")
    Sleep(100) ;Let it update the GUI before we lag the process by creating the iTunes object (if iTunes is not open)
    $oiTunes = ObjCreate("iTunes.Application")
    If Not IsObj($oiTunes) Then ;Notify user if user does not have iTunes installed on his computer
        MsgBox(0, "", "ERROR: Could not create iTunes object." & @CRLF & @CRLF & "Explanation:" & @CRLF & "iTunes, or some of it's components, are not installed on your computer." & @CRLF & "Now Exiting..")
        Exit
    EndIf
    $iTracks = $oiTunes.LibraryPlaylist.Tracks ;Get tracks from the library
    Global $total = $iTracks.Count ;$total represents the total songs in the library
    Global $count = 0 ;set values
    Global $Tracks[$total+1][3] ;create an array, the first dimension sized at the number of songs in your library
    ;                           ;the second dimension: [0]=Song  [1]=Artist  [2]=Size
    GUICtrlSetData($Scan, "Scanning..")
    ProgressOn("iScan", "Scanning: ", "0%") ;display progress
    For $i In $iTracks ;for each track found in the library
        $count += 1 ;keep track # of songs
        ProgressSet(Round(($count/$total)*100, 2), Round(($count/$total)*100, 2) & "%", "Scanning: " & $i.Name)
        $Tracks[$count][0] = $i.Name    ;set array member values
        $Tracks[$count][1] = $i.Artist
        $Tracks[$count][2] = $i.Size
    Next
    ProgressSet(0, "Comparing: ", "0%") ;now that we have all the values in the array, start comparing each song
    Global $Found[2][2] ;$Found array assures that we don't find 2 of the same duplicate songs
    Global $foundCount = 1
    Global $foundSwitch = False
    Global $SpaceSaved = 0
    For $i = 1 To $total
        ProgressSet(Round(($i/$total)*100, 2), Round(($i/$total)*100, 2) & "%", "Comparing: " & $Tracks[$i][0])
        For $x = 1 To $total
            If PrepareString($Tracks[$i][0]) = PrepareString($Tracks[$x][0]) AND _              ;compare song names (see PrepareString())
                        PrepareString($Tracks[$i][1]) = PrepareString($Tracks[$x][1]) AND _     ;compare artist
                        $i <> $x Then                                                           ;make sure that we aren't comparing the song with itself
                $foundSwitch = True
                For $y = 1 To UBound($Found)-1
                    If $Found[$y][0] = $x Or $Found[$y][1] = $x Then
                        $foundSwitch = False
                    EndIf
                Next
                If $foundSwitch = True Then ;if we haven't already recorded the song as a duplicate, then record it
                    $Found[$foundCount][0] = $x
                    $Found[$foundCount][1] = $i
                    $foundCount += 1
                    ReDim $Found[$foundCount+1][2]
                    GUICtrlCreateListViewItem($Tracks[$i][0] & "|" & $Tracks[$i][1] & "|" & $iTracks.Item($i).Location, $List1) ;create a new item
                    _GUICtrlListView_SetItemChecked($List1, $listcount, True) ;set it checked by default
                    $listcount += 1
                    $SpaceSaved += $Tracks[$i][2] ;keep track of the total size that could be saved
                EndIf
            EndIf
        Next
    Next
    GUICtrlSetData($Scan, "Completed Scan")
    ProgressOff()
    MsgBox(0,"","Scan Complete. Possible space saved: " & Round(($SpaceSaved/1024/1024),2) & " MB")
EndFunc

Func Delete()
    $SpaceSaved = 0
    $count = 0
    For $i = 1 To $foundCount-1 ;for each item in the listview
        If _GUICtrlListView_GetItemChecked($List1, $i-($count+1)) Then ;if the current item is checked, proceed
            FileDelete($iTracks.ItemByName($Tracks[$Found[$i][1]][0]).Location) ;delete the file
            $iTracks.ItemByName($Tracks[$Found[$i][1]][0]).Delete ;delete the library entry
            _GUICtrlListView_DeleteItem($List1, $i-($count+1)) ;delete it from the listview
            $SpaceSaved += $Tracks[$Found[$i][1]][2] ;keep track of how much space the user will save
            $count += 1 ;keep track of how many files have been deleted
        EndIf
    Next
    ;display final message
    MsgBox(0,"","Task Complete. You have deleted " & $count & " files, and saved " & Round(($SpaceSaved/1024/1024),2) & " MB of space.")
EndFunc

Func OnAutoItExit()
    $oiTunes = 0 ;destroy iTunes object
EndFunc

Func PrepareString($str) ;removes spaces, quotes, dashes, changes to lowercase (for insensitive case and good comparison)
    Return StringLower(StringStripWS(StringReplace(StringReplace($str,"-",""), "'", ""),8))
EndFunc

Enjoy,

Kurt

[Touch]

Saved me 2048MB thanks Kurt!

[TheSaint]

Thanks for sharing!

[torels]

didn't iTunes have that built-in already ?

Anyway good work!