Template:Example Code: Difference between revisions
Jump to navigation
Jump to search
MoDementia (talk | contribs) No edit summary |
MoDementia (talk | contribs) No edit summary |
||
| (8 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
For iCounter = 0 to objSongList.count - 1 | [[Sample Read and Write Method%28s%29|Complete script]] | ||
Set objSongData = objSongList.Item(iCounter | <span style="color: #b1b100;">Sub</span> | ||
{{{3|-}}}{{{2|-}}} = objSongData.{{{2|-}}}{{#ifeq:{{{3|-}}}|Object|.Member}} | |||
SDB.MessageBox "Value = '" & {{{ | 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]] | ||
Next | <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>}}}} | ||
' | 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> | |||
<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]] | |||
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> | ||
Latest revision as of 04:29, 11 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
