Delete lyrics from all tracks at once?

Question

Hi,
I tried a program that automatically gets lyrics for all my songs but I just realized most of them are wrong. How do remove lyrics all at once from all my songs without going one by one?
Thanks for reading.

Answer 1

That's easy with a simple script. Save the text below in a file with extension ".vbs", then double-click to run it. It will remove the lyrics from EVERY track in your iTunes Library.
You should really backup your iTunes Library before running this, just in case.
You can also download the script here (right-click and select "save as"):
http://www.pobox.com/~teridon/itunesscripts/itunesremovelyrics.vbs
' # itunesremovelyrics.vbs
' # This will find all songs in iTunes with lyrics and delete the lyrics
' # written by: Robert Jacobson (http://www.pobox.com/~teridon/itunesscripts/index.html)
' # Last Updated: 2009 Nov 17
' # Version 1.0
' # This script is GPL v2. see http://www.gnu.org/copyleft/gpl.html
' # or the end of this script
' # 1.0 Script created, see http://discussions.apple.com/thread.jspa?threadID=2237024
Option Explicit
Dim iTunesApp ' iTunes.Application object used to access the iTunes application.
Dim tracks ' The tracks collection object of the Library object.
Dim songLyrics ' The track's lyrics
Dim m ' A counter variable.
Dim answer ' MsgBox result
Dim songName
Dim artist
Dim track
Dim numtracks
DIM use_windows
'detect CSCRIPT context & use InputLine
IF Instr(lcase(wscript.FullName), "cscript")>0 THEN
use_windows = 0
ELSE 'detect WSCRIPT context & use native InputBox
use_windows = 1
END IF
Set iTunesApp = CreateObject("iTunes.Application.1")
Set tracks = iTunesApp.LibraryPlaylist.Tracks
numtracks = tracks.Count
If use_windows = 0 Then
WScript.Echo "WARNING! This will remove the lyrics from ALL tracks"
WScript.Echo "in your Library!!!! Are you sure??"
WScript.Echo "Type YES to continue"
answer=WScript.StdIn.ReadLine
if ( answer "YES" ) Then
Wscript.Echo "Exiting, no changes made"
WScript.Quit
End If
Else
answer=MsgBox("WARNING! This will remove the lyrics from ALL tracks" & Chr(10) & "in your Library!!!", 1, "WARNING")
if ( answer = 2) Then
WScript.Echo "Exiting, no changes made"
Wscript.Quit
End If
End If
For m = numtracks to 1 step -1
Set track = tracks.Item(m)
If track.Kind = 1 Then
songName = track.Name
artist = track.Artist
songLyrics = track.Lyrics
' If the song has Lyrics ...
if Len(songLyrics) > 0 Then
If use_windows = 0 Then
Wscript.Echo chr(9) & "Removing lyrics from song: " & m & ": " & songName & " by " & artist
End If
' delete the lyrics
track.Lyrics = ""
end if
End If
Next
Wscript.Echo "Done"