Template:Example Code: Difference between revisions
Jump to navigation
Jump to search
MoDementia (talk | contribs) No edit summary |
MoDementia (talk | contribs) No edit summary |
||
| Line 1: | Line 1: | ||
For iCounter = 0 to objSongList.count - 1 '[[SDBSongList|SongLists]] | <span style="color: #b1b100;">Sub</span> | ||
Set objSongData = objSongList.Item(iCounter | |||
{{{3|-}}}{{{2|-}}} = objSongData.{{{2|-}}}{{#ifeq:{{{3|-}}}|Object|.Member}} | 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]] | ||
SDB.MessageBox "Value = '" & {{{3|-}}}{{{2|-}}} & "'", mtError, Array(mbOK) '[[ISDBApplication::MessageBox|SDB.MessageBox]] | <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> | ||
Next | {{{3|-}}}{{{2|-}}} = objSongData.<span style="color: #66cc66;">{{{2|-}}}</span>{{#ifeq:{{{3|-}}}|Object|<span style="color: #66cc66;">.Member</span>}} | ||
' | 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]] | ||
' | <span style="color: #b1b100;">Next</span> | ||
' objSongData.{{{2|-}}}{{#ifeq:{{{3|-}}}|Object|.Member}} = {{{3|-}}}New{{{2|-}}} 'Commented Out For Safety | |||
' objSonglist.UpdateAll 'Commented Out For Safety '[[SDBSongData|UpdateAll]] | |||
Updates db and writes tags (if checked in options) | Updates db and writes tags (if checked in options) | ||
End Sub<noinclude>[[Category:Template]]</noinclude> | <span style="color: #b1b100;">End Sub</span><noinclude>[[Category:Template]]</noinclude> | ||
Revision as of 07:50, 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
