Template:Example Code: Difference between revisions

From MediaMonkey Wiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 1: Line 1:
  <span style="color: #b1b100;">Sub</span>
  <span style="color: #b1b100;">Sub</span>
   
   
   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]]
   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]]
       <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>
       <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>}}
       {{{3|-}}}{{{2|-}}} = objSongData.<span style="color: #66cc66;">{{{2|-}}}</span>{{#ifeq:{{{3|-}}}|Object|<span style="color: #66cc66;">.Member</span>}}

Revision as of 07:55, 10 April 2008

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