|
|
| Line 34: |
Line 34: |
|
| |
|
| === Example code === | | === Example code === |
| '
| | {{Example Code|(((1|}}}|(((2|}}}|(((3|}}}|(((4|}}}|(((5|}}}|(((6|}}}|(((7|}}}|(((8|}}}|(((9|}}}}} |
| ' MediaMonkey Script
| |
| '
| |
| ' NAME: WikiSample.vbs
| |
| '
| |
| ' Template Author: MoDementia
| |
| ' Generated by MMWiki page {{PAGENAME}}
| |
| ' DATE : 03:22, 7 April 2008 (EDT)
| |
| '
| |
| '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]
| |
| '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, (((3}}}New(((2}}}
| |
| Dim SQLString 'SelectMethod 3
| |
| Dim SongList 'SelectMethod 2 and 3
| |
|
| |
| SelectMethod = 1
| |
| ' SelectMethod NowPlaying = 1
| |
| ' SelectMethod UseSQLQuery = 2
| |
| ' SelectMethod UseSQL = 3
| |
| ' SelectMethod SelectedSongs = 4
| |
|
| |
| SampleSongID = 13123
| |
| (((3}}}New(((2}}} = "Mamma Mia"
| |
| Set objSongList = SDB.NewSongList 'SelectMethod 2 and 3
| |
|
| |
| Select Case SelectMethod
| |
| Case 1
| |
| Set objSongData = SDB.Player.CurrentSong
| |
| Case 2
| |
| Set objSongListiterator = SDB.Database.QuerySongs("AND Songs.ID=" & SampleSongID)
| |
| Case 3
| |
| SQLString = "SELECT (((5}}} FROM (((4}}} WHERE (((4}}}.ID = " & SampleSongID
| |
| Set objSongListiterator = SDB.Database.OpenSQL(SQLString)
| |
| Case 4
| |
| Set objSongList = SDB.SelectedSongList
| |
| ' Set objSongList = SDB.CurrentSongList
| |
| ' Set objSongList = SDB.AllVisibleSongList
| |
| Case Else
| |
| SDB.MessageBox "Incorrect Select Method ", mtError, Array(mbOK)
| |
| Exit Sub
| |
| End Select
| |
|
| |
| For iCounter = 0 to objSongList.count - 1 'SelectMethod 4
| |
| While Not objSongListiterator.EOF 'SelectMethod 2 and 3
| |
| Set objSongData = objSongListiterator.Item 'SelectMethod 2
| |
| objSongList.Add(objSongData) 'SelectMethod 2
| |
| Set objSongData = objSongList.Item(iCounter) 'SelectMethod 4
| |
| (((3}}}(((2}}} = objSongData.{{{2}}} 'SelectMethod 1, 2 and 4
| |
| SDB.MessageBox "Value = '" & (((3}}}(((2}}} & "'", mtError, Array(mbOK) 'SelectMethod 4 (2 and 3)
| |
| (((3}}}(((2}}} = objSongListiterator.StringByIndex(0) 'SelectMethod 2
| |
| objSongListiterator.Next 'SelectMethod 2 and 3
| |
| Wend 'SelectMethod 2 and 3
| |
| Next 'SelectMethod 4
| |
| Set objSongListiterator=Nothing 'SelectMethod 2 and 3
| |
|
| |
| SDB.MessageBox "Value = '" & (((3}}}(((2}}} & "'", mtError, Array(mbOK)
| |
|
| |
| ' objSongData.(((2}}} = (((3}}}New(((2}}} 'Commented Out For Safety 'SelectMethod 1, 2 and 4
| |
| ' Songlist.UpdateAll 'Commented Out For Safety
| |
| 'SelectMethod 1, 2 and 4 Updates db and writes tags (if checked in options)
| |
| End Sub
| |
