by greggw » Fri Dec 28, 2012 10:48 pm
by trixmoto » Wed Dec 26, 2012 10:48 am
by trixmoto » Wed Dec 26, 2012 8:43 am
by greggw » Sun Dec 23, 2012 9:28 pm
Error #5 - Microsoft VBScript runtime error Invalid procedure call or argument: 'Left' File: "C:\Program Files (x86)\MediaMonkey\Scripts\CombineAlbums.vbs", Line: 142, Column: 4
by trixmoto » Tue Nov 13, 2012 5:34 am
by andig » Sun Nov 11, 2012 5:52 am
by trixmoto » Mon Oct 22, 2012 6:19 am
by trixmoto » Sun Oct 14, 2012 4:50 pm
by andig » Sun Oct 14, 2012 4:13 am
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
by andig » Sun Sep 16, 2012 4:14 am
by trixmoto » Sat Sep 15, 2012 9:51 pm
by trixmoto » Sat Sep 15, 2012 8:34 pm
by andig » Sat Sep 15, 2012 6:49 am
trixmoto wrote:Ok, I'll see if I can combine the two Also, you've changed the regular expressions, but these aren't really my strong suit - do you remember what you changed and why?
by trixmoto » Fri Sep 14, 2012 4:32 am
by andig » Fri Sep 14, 2012 1:11 am
Top
Powered by phpBB® Forum Software © phpBB Limited
Theme based on Absolution by PlanetStyles