I tried:
...
For j = 1 To 9
if right(cDummy1,1) = chr(j+48) then
itm.TrackNumber = j
itm.Custom5 = "ranking"
end if
Next
...
getting the error: method is not supported

...
For j = 1 To 9
if right(cDummy1,1) = chr(j+48) then
itm.Track# = j
itm.Custom5 = "ranking"
end if
Next
...
getting the error: syntaxis error

Track # = Episode #
Disk # = Season #

I'd presume it's linked to Track#: http://www.mediamonkey.com/wiki/index.php/Songs_table, but I could be wrong.

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

I wrote a script to remove Epidose nrs from a film list and put them into the <Episode #>.
But i don't know the field name vor the Episode column?
The "itm.episode#" give me an error.
Hoping for any help:

[code]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[/code]