|
|
| Line 32: |
Line 32: |
| {{Pipe}} style="background-color:#ddd;" align="center" {{Pipe}} [[SDB{{{2|}}}]] | {{Pipe}}- style="background-color:#ddd;"}} | | {{Pipe}} style="background-color:#ddd;" align="center" {{Pipe}} [[SDB{{{2|}}}]] | {{Pipe}}- style="background-color:#ddd;"}} |
| |} | | |} |
|
| |
|
| |
|
|
| |
|
| ===Example Code=== | | ===Example Code=== |
| '
| | {{<includeonly>subst:</includeonly>Example Code<includeonly>|(((1|-}}}|(((2|-}}}|(((3|-}}}|(((4|-}}}|(((5|-}}}|(((6|-}}}|(((7|-}}}|(((8|-}}}|(((9|-}}}</includeonly>}} |
| ' 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-
| |
| 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- = "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|-}}}- = objSongData.-{{#ifeq:{{{3|-}}}|Object|.Member|{{{3|-}}}}} 'SelectMethod 1, 2 and 4
| |
| SDB.MessageBox "Value = '" & {{{3|-}}}- & "'", mtError, Array(mbOK) 'SelectMethod 4 (2 and 3)
| |
| {{{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 = '" & {{{3|-}}}- & "'", mtError, Array(mbOK)
| |
|
| |
| ' objSongData.- = {{{3|-}}}New- '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}|(((2|-}}}|(((3|-}}}|(((4|-}}}|(((5|-}}}|(((6|-}}}|(((7|-}}}|(((8|-}}}|(((9|-}}}}}
| |
