Template:Example Code: Difference between revisions
Jump to navigation
Jump to search
MoDementia (talk | contribs) No edit summary |
MoDementia (talk | contribs) No edit summary |
||
| Line 13: | Line 13: | ||
'MediaMonkey\Scripts\Scripts.in entry | 'MediaMonkey\Scripts\Scripts.in entry | ||
' | ' | ||
'[WikiSample] | '[WikiSample] '[[Introduction_to_scripting#Format_of_the_Scripts.ini_file|Format of the Scripts.ini file]] | ||
'Filename=WikiSample.vbs | 'Filename=WikiSample.vbs | ||
'Procname=WikiSample | 'Procname=WikiSample | ||
| Line 37: | Line 37: | ||
SampleID = 13123 | SampleID = 13123 | ||
{{{3|-}}}New{{{2|-}}} = "Mamma Mia" | {{{3|-}}}New{{{2|-}}} = "Mamma Mia" | ||
Set objSongList = SDB.NewSongList 'SelectMethod 2 and 3 | Set objSongList = SDB.NewSongList 'SelectMethod 2 and 3 [[ISDBApplication::NewSongList|SDB.NewSongList]] | ||
Select Case SelectMethod | Select Case SelectMethod | ||
Case 1 | Case 1 | ||
Set objSongData = SDB.Player.CurrentSong | Set objSongData = SDB.Player.CurrentSong '[[ISDBPlayer::CurrentSong|SDB.Player.CurrentSong]] | ||
Case 2 | Case 2 | ||
Set objSongListiterator = SDB.Database.QuerySongs("AND Songs.ID=" & SampleID) | Set objSongListiterator = SDB.Database.QuerySongs("AND Songs.ID=" & SampleID) '[[ISDBDatabase::QuerySongs|SDB.Database.QuerySongs]] | ||
Case 3 | Case 3 | ||
SQLString = "SELECT {{{5|-}}} FROM {{{4|-}}} WHERE {{{4|-}}}.ID = " & SampleID | SQLString = "SELECT {{{5|-}}} FROM {{{4|-}}} WHERE {{{4|-}}}.ID = " & SampleID | ||
Set objSongListiterator = SDB.Database.OpenSQL(SQLString) | Set objSongListiterator = SDB.Database.OpenSQL(SQLString) '[[ISDBDatabase::OpenSQL|SDB.Database.OpenSQL]] | ||
Case 4 | Case 4 | ||
Set objSongList = SDB.SelectedSongList | Set objSongList = SDB.SelectedSongList '[[ISDBApplication::SelectedSongList|SDB.SelectedSongList]] | ||
' Set objSongList = SDB.CurrentSongList | ' Set objSongList = SDB.CurrentSongList '[[ISDBApplication::CurrentSongList|SDB.CurrentSongList]] | ||
' Set objSongList = SDB.AllVisibleSongList | ' Set objSongList = SDB.AllVisibleSongList '[[ISDBApplication::AllVisibleSongList|SDB.AllVisibleSongList]] | ||
Case Else | Case Else | ||
SDB.MessageBox "Incorrect Select Method ", mtError, Array(mbOK) | SDB.MessageBox "Incorrect Select Method ", mtError, Array(mbOK) '[[ISDBApplication::MessageBox|SDB.MessageBox]] | ||
Exit Sub | Exit Sub | ||
End Select | End Select | ||
For iCounter = 0 to objSongList.count - 1 'SelectMethod 4 | For iCounter = 0 to objSongList.count - 1 'SelectMethod 4 [[SDBSongList|SongLists]] | ||
While Not objSongListiterator.EOF 'SelectMethod 2 and 3 | While Not objSongListiterator.EOF 'SelectMethod 2 and 3 [[SDBDBIterator|Iterator]] | ||
Set objSongData = objSongListiterator.Item 'SelectMethod 2 | Set objSongData = objSongListiterator.Item 'SelectMethod 2 | ||
objSongList.Add(objSongData) 'SelectMethod 2 | objSongList.Add(objSongData) 'SelectMethod 2 | ||
| Line 72: | Line 72: | ||
' objSongData.{{{2|-}}} = {{{3|-}}}New{{{2|-}}} 'Commented Out For Safety 'SelectMethod 1, 2 and 4 | ' objSongData.{{{2|-}}} = {{{3|-}}}New{{{2|-}}} 'Commented Out For Safety 'SelectMethod 1, 2 and 4 | ||
' objSonglist.UpdateAll 'Commented Out For Safety | ' objSonglist.UpdateAll 'Commented Out For Safety '[[SDBSongData|UpdateAll]] | ||
'SelectMethod 1, 2 and 4 Updates db and writes tags (if checked in options) | 'SelectMethod 1, 2 and 4 Updates db and writes tags (if checked in options) | ||
End Sub | End Sub | ||
Revision as of 04:18, 8 April 2008
' ' MediaMonkey Script ' ' NAME: WikiSample.vbs ' ' Template Author: MoDementia ' Generated by MMWiki page Example Code ' Time, DATE : 15:24, 20 June 2025 ' 'Sample of Scripting Code for inclusion into MMWiki pages 'A working script to show database results using various selection methods ' 'MediaMonkey\Scripts\Scripts.in entry ' '[WikiSample] 'Format of the Scripts.ini file 'Filename=WikiSample.vbs 'Procname=WikiSample 'Order=99 'DisplayName=WikiSample 'Description=Displays the raw database value of the MMWikipage item 'Language=VBScript 'ScriptType=0 Sub WikiSample Dim SelectMethod, WaterlooSongID, -New- Dim SQLString 'SelectMethod 3 Dim objSongList 'SelectMethod 2 SelectMethod = 1 ' SelectMethod NowPlaying = 1 ' SelectMethod UseSQLQuery = 2 ' SelectMethod UseSQL = 3 ' SelectMethod SelectedSongs = 4 SampleID = 13123 -New- = "Mamma Mia" Set objSongList = SDB.NewSongList 'SelectMethod 2 and 3 SDB.NewSongList Select Case SelectMethod Case 1 Set objSongData = SDB.Player.CurrentSong 'SDB.Player.CurrentSong Case 2 Set objSongListiterator = SDB.Database.QuerySongs("AND Songs.ID=" & SampleID) 'SDB.Database.QuerySongs Case 3 SQLString = "SELECT - FROM - WHERE -.ID = " & SampleID Set objSongListiterator = SDB.Database.OpenSQL(SQLString) 'SDB.Database.OpenSQL Case 4 Set objSongList = SDB.SelectedSongList 'SDB.SelectedSongList ' Set objSongList = SDB.CurrentSongList 'SDB.CurrentSongList ' Set objSongList = SDB.AllVisibleSongList 'SDB.AllVisibleSongList Case Else SDB.MessageBox "Incorrect Select Method ", mtError, Array(mbOK) 'SDB.MessageBox Exit Sub End Select For iCounter = 0 to objSongList.count - 1 'SelectMethod 4 SongLists While Not objSongListiterator.EOF 'SelectMethod 2 and 3 Iterator Set objSongData = objSongListiterator.Item 'SelectMethod 2 objSongList.Add(objSongData) 'SelectMethod 2 Set objSongData = objSongList.Item(iCounter) 'SelectMethod 4 -- = objSongData.- 'SelectMethod 1, 2 and 4 SDB.MessageBox "Value = '" & -- & "'", mtError, Array(mbOK) 'SelectMethod 4 (2 and 3) -- = objSongListiterator.StringByIndex(0) 'SelectMethod 3 objSongListiterator.Next 'SelectMethod 2 and 3 Wend 'SelectMethod 2 and 3 Next 'SelectMethod 4 Set objSongListiterator=Nothing 'SelectMethod 2 and 3 SDB.MessageBox "Value = '" & -- & "'", mtError, Array(mbOK) ' objSongData.- = -New- 'Commented Out For Safety 'SelectMethod 1, 2 and 4 ' objSonglist.UpdateAll 'Commented Out For Safety 'UpdateAll 'SelectMethod 1, 2 and 4 Updates db and writes tags (if checked in options) End Sub
