|
|
| Line 36: |
Line 36: |
|
| |
|
| ===Example Code=== | | ===Example Code=== |
| '
| | {{<includeonly>subst:</includeonly>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:51, 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 objSongList 'SelectMethod 2
| |
|
| |
| SelectMethod = 1
| |
| ' SelectMethod NowPlaying = 1
| |
| ' SelectMethod UseSQLQuery = 2
| |
| ' SelectMethod UseSQL = 3
| |
| ' SelectMethod SelectedSongs = 4
| |
|
| |
| SampleID = 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=" & SampleID)
| |
| Case 3
| |
| SQLString = "SELECT {{{5|-}}} FROM {{{4|-}}} WHERE {{{4|-}}}.ID = " & SampleID
| |
| 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|-}}}{{#ifeq:{{{3|-}}}|Object|.Member|}} 'SelectMethod 1, 2 and 4
| |
| SDB.MessageBox "Value = '" & {{{3|-}}}{{{2|-}}} & "'", mtError, Array(mbOK) 'SelectMethod 4 (2 and 3)
| |
| {{{3|-}}}{{{2|-}}} = 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 = '" & {{{3|-}}}{{{2|-}}} & "'", mtError, Array(mbOK)
| |
|
| |
| ' objSongData.{{{2|-}}} = {{{3|-}}}New{{{2|-}}} 'Commented Out For Safety 'SelectMethod 1, 2 and 4
| |
| ' objSonglist.UpdateAll 'Commented Out For Safety
| |
| 'SelectMethod 1, 2 and 4 Updates db and writes tags (if checked in options)
| |
| End Sub
| |
