by Jentse » Sat Oct 25, 2008 10:58 am
by sommo » Sat Jun 28, 2008 12:32 pm
by Bex » Mon May 12, 2008 4:51 pm
by rithym » Mon May 12, 2008 4:47 pm
by Bex » Mon May 12, 2008 6:06 am
by rithym » Mon May 12, 2008 4:04 am
by sommo » Tue Apr 15, 2008 10:48 am
by NLS » Wed Mar 12, 2008 12:04 pm
by thefaceman » Wed Jul 04, 2007 7:23 pm
by Rojer » Sun Jun 10, 2007 5:59 am
Code: Select all
UPDATE Songs SET SongPath = REPLACE(SongPath,'\:\\', '\:\\Music\\MediaMonkey\\Mp3\'s\\')
by Steegy » Sun Jun 10, 2007 5:29 am
by Rojer » Sun Jun 10, 2007 4:04 am
.Add "<PATH>", "Path"
by jd776 » Tue Jun 05, 2007 12:24 am
s = s & "itm.Custom1 = Replace(itm.Custom1, '', ''&Category&'','', ''''):"
s = s & "itm.Custom1 = Replace(itm.Custom1, '', ''&Category&'', '', '', ''):"
Sub RemoveCategoryFromCustom1 ' Define variables Dim category, s category = Trim(SkinnedInputBox("Enter the Category to remove", "Remove Category", "Blah"&Chr(34))) if (category = "") then Exit Sub End If s = "If(itm.Custom1 = Category) Then:" s = s & " itm.Custom1 = '''':" s = s & " itm.UpdateDB:" s = s & "End If:" s = s & "itm.Custom1 = Replace(itm.Custom1, '', ''&Category&'', '', '', ''):" s = s & "itm.Custom1 = Replace(itm.Custom1, Category&'', '', ''''):" s = s & "itm.Custom1 = Replace(itm.Custom1, '', ''&Category, ''''):" s = s & "itm.UpdateDB:" s = Replace(s, "''", Chr(34)) kwExecuteStatement Replace(s, "Category", kwToString(Category)) End Sub
by trixmoto » Tue Apr 17, 2007 4:52 am
by TequilaM » Tue Oct 31, 2006 9:41 pm
Top
Powered by phpBB® Forum Software © phpBB Limited
Theme based on Absolution by PlanetStyles