Template:Example Code: Difference between revisions

From MediaMonkey Wiki
Jump to navigation Jump to search
No edit summary
No edit summary
 
(14 intermediate revisions by the same user not shown)
Line 1: Line 1:
'
[[Sample Read and Write Method%28s%29|Complete script]]
' MediaMonkey Script
  <span style="color: #b1b100;">Sub</span>
'
' NAME: WikiSample.vbs
'
' Template Author: MoDementia
' Generated by MMWiki page {{PAGENAME}}
' Time, DATE :  {{CURRENTTIME}}, {{CURRENTDAY2}} {{CURRENTMONTHNAME}} {{CURRENTYEAR}}
'
'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]                                                            '[[Introduction_to_scripting#Format_of_the_Scripts.ini_file|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
   
   
   For <span style="color: #b1b100;">iCounter</span> = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">to</span> objSongList.<span style="color: #b1b100;">count</span> - <span style="color: #cc66cc;">1</span>                                    '[[SDBSongList|SongLists]]
Sub WikiSample
       <span style="color: #b1b100;">Set</span> objSongData = objSongList.<span style="color: #66cc66;">Item</span><span style="color: #66cc66;">(</span>iCounter<span style="color: #66cc66;">)</span>
      {{{3|-}}}{{{2|-}}} = objSongData.<span style="color: #66cc66;">{{{2|-}}}</span>{{#ifeq:{{{3|-}}}|Object|<span style="color: #66cc66;">.Member</span>|{{#ifeq:{{{3|-}}}|ObjectList|<span style="color: #66cc66;">.Member</span>}}}}
   Dim SelectMethod, SampleID, {{{3|-}}}New{{{2|-}}}
       SDB.<span style="color: #66cc66;">MessageBox</span> <span style="color: #ff0000;">"Value = '"</span> & {{{3|-}}}{{{2|-}}} & <span style="color: #ff0000;">"'"</span>, mtError, <span style="color: #b1b100;">Array</span><span style="color: #66cc66;">(</span>mbOK<span style="color: #66cc66;">)</span>    '[[ISDBApplication::MessageBox|SDB.MessageBox]]
{{#ifeq:{{{3|-}}}|Object| |  Dim SQLString                                                            'SelectMethod 3}}
   <span style="color: #b1b100;">Next</span>
  Dim objSongList                                                          'SelectMethod 2
<span style="color: #808080;">' objSongData.<span style="color: #66cc66;">{{{2|-}}}</span>{{#ifeq:{{{3|-}}}|Object|<span style="color: #66cc66;">.Member</span>|{{#ifeq:{{{3|-}}}|ObjectList|<span style="color: #66cc66;">.Member</span>}}}} = {{{3|-}}}New{{{2|-}}}</span> 'Commented Out For Safety
  <span style="color: #808080;">' objSonglist.UpdateAll</span>             'Commented Out For Safety                 '[[SDBSongData|UpdateAll]]
  SelectMethod = 1
                           Updates db and writes tags (if checked in options)
  ' SelectMethod NowPlaying = 1
  <span style="color: #b1b100;">End Sub</span><noinclude>[[Category:Template]]</noinclude>
  ' SelectMethod UseSQLQuery = 2
{{#ifeq:{{{3|-}}}|Object| |  ' SelectMethod UseSQL = 3}}
  ' SelectMethod SelectedSongs = 4
 
  SampleID = 13123
  {{{3|-}}}New{{{2|-}}} = "Mamma Mia"
  Set objSongList = SDB.NewSongList                                        'SelectMethod 2 and 3 [[ISDBApplication::NewSongList|SDB.NewSongList]]
 
  Select Case SelectMethod
    Case 1
       Set objSongData = SDB.Player.CurrentSong                            '[[ISDBPlayer::CurrentSong|SDB.Player.CurrentSong]]
    Case 2
      Set objSongListiterator = SDB.Database.QuerySongs("AND Songs.ID=" & SampleID) '[[ISDBDatabase::QuerySongs|SDB.Database.QuerySongs]]
{{#ifeq:{{{3|-}}}|Object| |    Case 3}}
{{#ifeq:{{{3|-}}}|Object| |      SQLString = "SELECT {{{5|-}}} FROM {{{4|-}}} WHERE {{{4|-}}}.ID = " & SampleID}}
{{#ifeq:{{{3|-}}}|Object| |      Set objSongListiterator = SDB.Database.OpenSQL(SQLString)            '[[ISDBDatabase::OpenSQL|SDB.Database.OpenSQL]]}}
    Case 4
      Set objSongList = SDB.SelectedSongList                              '[[ISDBApplication::SelectedSongList|SDB.SelectedSongList]]
'      Set objSongList = SDB.CurrentSongList                              '[[ISDBApplication::CurrentSongList|SDB.CurrentSongList]]
'      Set objSongList = SDB.AllVisibleSongList                          '[[ISDBApplication::AllVisibleSongList|SDB.AllVisibleSongList]]
    Case Else
      SDB.MessageBox "Incorrect Select Method ", mtError, Array(mbOK)      '[[ISDBApplication::MessageBox|SDB.MessageBox]]
      Exit Sub
  End Select
 
  For iCounter = 0 to objSongList.count - 1                                'SelectMethod 4 [[SDBSongList|SongLists]]
    While Not objSongListiterator.EOF                                      'SelectMethod 2 and 3 [[SDBDBIterator|Iterator]]
      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)
{{#ifeq:{{{3|-}}}|Object| |      {{{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|-}}}{{#ifeq:{{{3|-}}}|Object|.Member}} = {{{3|-}}}New{{{2|-}}} 'Commented Out For Safety 'SelectMethod 1, 2 and 4
  ' objSonglist.UpdateAll              'Commented Out For Safety           '[[SDBSongData|UpdateAll]]
                           'SelectMethod 1, 2 and 4 Updates db and writes tags (if checked in options)
  End Sub

Latest revision as of 04:29, 11 April 2008

Complete script 

Sub

  For iCounter = 0 to objSongList.count - 1                                    'SongLists
      Set objSongData = objSongList.Item(iCounter)
      -- = objSongData.-
      SDB.MessageBox "Value = '" &  -- & "'", mtError, Array(mbOK)    'SDB.MessageBox
  Next
' objSongData.- = -New- 'Commented Out For Safety
' objSonglist.UpdateAll              'Commented Out For Safety                 'UpdateAll
                         Updates db and writes tags (if checked in options)
End Sub
Retrieved from "https://www.mediamonkey.com/wiki/index.php?title=Template:Example_Code&oldid=3904"