But i don't know the field name vor the Episode column?
The "itm.episode#" give me an error.
Hoping for any help:
Code: Select all
Sub SplitTitleEpisodeNr()
Dim list, itm, i, j, tmp, tmplcase, cDummy1, cdummy2, nDummy1, check1
Set list = SDB.CurrentSongList
For i = 0 To list.Count - 1
Set itm = list.Item(i)
cDummy1=itm.Title
For j = 1 To 9
if right(cDummy1,1) = chr(j+48) then
itm.episode# = j
itm.Custom5 = "ranking"
end if
Next
Next
' Write all back to DB and update tags
list.UpdateAll
End Sub