Thread: iTunes scripts

ok, so then the only thing that's really needed is to know what you think did or didn't happen when you ran the script that Ian suggested. Did your new playlist get created? Did any tunes get added to it? Did those ones have Lyrics or not, or were they mixed?

I ran the original (unedited) script:

StartTimer
Select Case R
Case vbYes
C=True
Case vbNo
C=False
S=S+1 ' Increment skipped tracks
Case Else
Quit=True
Exit For
End Select
Else
C=True
End If
If C Then ' We have a valid track, now do something with it
Action T

And found 23028 songs with lyrics.

Has Lyrics orig output.jpg



and two edited versions:

#1
StartTimer
Select Case R
Case vbYes
C=False
Case vbNo
C=True
S=S+1 ' Increment skipped tracks
Case Else
Quit=False
Exit For
End Select
Else
C=False
End If
If C Then ' We have a valid track, now do something with it
Action T

And found no songs, either with, or, without lyrics

#2
Select Case R
Case vbYes
C=False
Case vbNo
C=True
S=S+1 ' Increment skipped tracks
Case Else
Quit=True
Exit For
End Select
Else
C=True
End If
If C Then ' We have a valid track, now do something with it
Action T

This script came up with the same results as the original unedited script

Has No Lyrics Ver 2 Output.jpg

Please do the change that was suggested last. The change in the "Updateable=" line will invert the selection (it used to be a not-equal-to Empty, ie had text, and the change will only include those where it is empty)

Else ' No updating values which won't change
Updateable=(T.Lyrics & "")<>""
End If
End Function

Try changing the line near the end to:

Updateable=(T.Lyrics & "") = ""


Also, the lines near the top like

Playlist="Has Lyrics"
Title="Has Lyrics To Playlist"
Summary="Check for files with lyrics and, if found, create/refresh a playlist called" & vbCrLf & Playlist & " into which to place the results."

Originally Posted by nyamo_iaint

Eww, Visual Basic.... not a language I use.
How about this then, there is a function called "Updateable" which has a check for something called "T.Lyrics", and says that a track is "updateable" if it has lyrics:

Function Updateable(T)
If T.Location="" Then ' Missing files can't be processed by this script
M=M+1 ' Increment missing tracks
If Prog Then PB.SetDebug "<br>Missing file!" : WScript.Sleep 500
Updateable=False
Else ' No updating values which won't change
Updateable=(T.Lyrics & "")<>""
End If
End Function

Try changing the line near the end to:

Updateable=(T.Lyrics & "") = ""


Also, the lines near the top like

Playlist="Has Lyrics"
Title="Has Lyrics To Playlist"
Summary="Check for files with lyrics and, if found, create/refresh a playlist called" & vbCrLf & Playlist & " into which to place the results."

should be changed to specify "Without Lyrics", or whatever you like I guess.

I can't guarantee this works either, it may, or it may reformat your hard drive, or invoke nasal demons.

Iain

Originally Posted by poundy

Please do the change that was suggested last. The change in the "Updateable=" line will invert the selection (it used to be a not-equal-to Empty, ie had text, and the change will only include those where it is empty)

Else ' No updating values which won't change
Updateable=(T.Lyrics & "")<>""
End If
End Function

Try changing the line near the end to:

Updateable=(T.Lyrics & "") = ""


Also, the lines near the top like

Playlist="Has Lyrics"
Title="Has Lyrics To Playlist"
Summary="Check for files with lyrics and, if found, create/refresh a playlist called" & vbCrLf & Playlist & " into which to place the results."

Thank you so much guys, this edit has seemed to work. I tried it on a small selection of songs and it returned a playlist containing only songs with no lyrics.
I will now run it on the whole library.

Has No Lyrics.jpg

I ran the script of the complete collection and it worked perfectly.
Once again, thank you so much to everyone who replied and offered suggestions, they were all appreciated.

Has No Lyrics.jpg

Funny thing I'm noticing is that as I fill more of the songs with lyrics it takes less time for the script to run. I didn't think the run time would change as it still has to scan all the tracks to see which ones have lyrics. Not complaining, just an observation.