by andig » Sun Oct 14, 2012 4:13 am
Hi Trixmoto,
unfortunately you're updated 3.1 doesn't seem to contain the necessary changes and gives me errors. Only did a quick check but process1..3 need to look like this:
Code: Select all
' 1. AlbumName (CD 1) -> AlbumName and Track=1##
Sub process1(itm, albumname, disc)
' msgbox("proc1 "&albumname&" "&disc)
disc = CInt(disc) * 100
Do While itm.TrackOrder > 100
itm.TrackOrder = itm.TrackOrder - 100
Loop
itm.AlbumName = albumname
itm.TrackOrder = disc + itm.TrackOrder
End Sub
' 2. AlbumName (CD 1) -> AlbumName and Disc=1
Sub process2(itm, albumname, disc)
' msgbox("proc2 "&albumname&" "&disc)
disc = CInt(Left(disc,Len(disc)-2))
itm.AlbumName = albumname
itm.DiscNumber = disc
End Sub
' 3. Track=1## -> Disc=1 and Track=##
Sub process3(itm,c)
Dim s : s = itm.TrackOrderStr
If Len(s) > 2 Then
c = c + 1
itm.DiscNumber = Int(Left(s,Len(s)-2))
itm.TrackOrder = Int(Mid(s,2))
End If
End Sub
Hi Trixmoto,
unfortunately you're updated 3.1 doesn't seem to contain the necessary changes and gives me errors. Only did a quick check but process1..3 need to look like this:
[code]
' 1. AlbumName (CD 1) -> AlbumName and Track=1##
Sub process1(itm, albumname, disc)
' msgbox("proc1 "&albumname&" "&disc)
disc = CInt(disc) * 100
Do While itm.TrackOrder > 100
itm.TrackOrder = itm.TrackOrder - 100
Loop
itm.AlbumName = albumname
itm.TrackOrder = disc + itm.TrackOrder
End Sub
' 2. AlbumName (CD 1) -> AlbumName and Disc=1
Sub process2(itm, albumname, disc)
' msgbox("proc2 "&albumname&" "&disc)
disc = CInt(Left(disc,Len(disc)-2))
itm.AlbumName = albumname
itm.DiscNumber = disc
End Sub
' 3. Track=1## -> Disc=1 and Track=##
Sub process3(itm,c)
Dim s : s = itm.TrackOrderStr
If Len(s) > 2 Then
c = c + 1
itm.DiscNumber = Int(Left(s,Len(s)-2))
itm.TrackOrder = Int(Mid(s,2))
End If
End Sub
[/code]