Sample Read and Write Method(s): Difference between revisions
Jump to navigation
Jump to search
MoDementia (talk | contribs) No edit summary |
MoDementia (talk | contribs) (Starting Again) |
||
| Line 1: | Line 1: | ||
' | |||
' | ' MediaMonkey Script | ||
' MediaMonkey Script | ' | ||
' | ' NAME: WikiSample.vbs | ||
' NAME: WikiSample.vbs | ' | ||
' | ' Template Author: MoDementia | ||
' Template Author: MoDementia | ' Generated by MMWiki page {{PAGENAME}} | ||
' Time, DATE : | ' Time, DATE : {{CURRENTTIME}}, {{CURRENTDAY2}} {{CURRENTMONTHNAME}} {{CURRENTYEAR}} | ||
' | ' | ||
'Sample of Scripting Code | 'Sample of Scripting Code for inclusion into MMWiki pages | ||
'A working script to show database results using various selection methods | 'A working script to show database results using various selection methods | ||
' | ' | ||
'MediaMonkey\Scripts\Scripts.in entry | 'MediaMonkey\Scripts\Scripts.in entry | ||
' | ' | ||
'[WikiSample] 'Format of the Scripts.ini file | '[WikiSample] '[[Introduction_to_scripting#Format_of_the_Scripts.ini_file|Format of the Scripts.ini file]] | ||
'Filename=WikiSample.vbs | 'Filename=WikiSample.vbs | ||
'Procname=WikiSample | 'Procname=WikiSample | ||
'Order=99 | 'Order=99 | ||
'DisplayName=WikiSample | 'DisplayName=WikiSample | ||
'Description=Displays the raw database value of the MMWikipage item | 'Description=Displays the raw database value of the MMWikipage item | ||
'Language=VBScript | 'Language=VBScript | ||
'ScriptType=0 | 'ScriptType=0 | ||
Sub WikiSample | Sub WikiSample | ||
<span style="color: #b1b100;">Sub</span> | |||
Dim SelectMethod, SampleID, {{{3|-}}}New{{{2|-}}} | |||
Dim SQLString 'SelectMethod 3 | {{#ifeq:{{{3|-}}}|Object| | Dim SQLString 'SelectMethod 3}} | ||
Dim objSongList 'SelectMethod 2 | |||
SelectMethod = 1 | |||
' SelectMethod NowPlaying = 1 | |||
' SelectMethod UseSQLQuery = 2 | |||
' SelectMethod UseSQL = 3 | {{#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}} | |||
Case 3 | {{#ifeq:{{{3|-}}}|Object| | Set objSongListiterator = SDB.Database.OpenSQL(SQLString) '[[ISDBDatabase::OpenSQL|SDB.Database.OpenSQL]]}} | ||
Case 4 | |||
SQLString = "SELECT | Set objSongList = SDB.SelectedSongList '[[ISDBApplication::SelectedSongList|SDB.SelectedSongList]] | ||
' Set objSongList = SDB.CurrentSongList '[[ISDBApplication::CurrentSongList|SDB.CurrentSongList]] | |||
Set objSongListiterator = SDB.Database.OpenSQL(SQLString) 'SDB.Database.OpenSQL | ' Set objSongList = SDB.AllVisibleSongList '[[ISDBApplication::AllVisibleSongList|SDB.AllVisibleSongList]] | ||
Case Else | |||
SDB.MessageBox "Incorrect Select Method ", mtError, Array(mbOK) '[[ISDBApplication::MessageBox|SDB.MessageBox]] | |||
' Set objSongList = SDB.CurrentSongList 'SDB.CurrentSongList | Exit Sub | ||
' Set objSongList = SDB.AllVisibleSongList 'SDB.AllVisibleSongList | 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<noinclude>[[Category:Template]]</noinclude> | |||
' objSongData. | |||
' objSonglist.UpdateAll 'Commented Out For Safety 'UpdateAll | |||
End Sub | |||
< | |||
Revision as of 05:51, 10 April 2008
' ' MediaMonkey Script ' ' NAME: WikiSample.vbs ' ' Template Author: MoDementia ' Generated by MMWiki page Sample Read and Write Method(s) ' Time, DATE : 12:13, 21 June 2025 ' '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] '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 Sub WikiSample Sub Dim SelectMethod, SampleID, -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 -New- = "Mamma Mia" Set objSongList = SDB.NewSongList 'SelectMethod 2 and 3 SDB.NewSongList Select Case SelectMethod Case 1 Set objSongData = SDB.Player.CurrentSong 'SDB.Player.CurrentSong Case 2 Set objSongListiterator = SDB.Database.QuerySongs("AND Songs.ID=" & SampleID) 'SDB.Database.QuerySongs
Case 3 SQLString = "SELECT - FROM - WHERE -.ID = " & SampleID Set objSongListiterator = SDB.Database.OpenSQL(SQLString) 'SDB.Database.OpenSQL
Case 4
Set objSongList = SDB.SelectedSongList 'SDB.SelectedSongList
' Set objSongList = SDB.CurrentSongList 'SDB.CurrentSongList
' Set objSongList = SDB.AllVisibleSongList 'SDB.AllVisibleSongList
Case Else
SDB.MessageBox "Incorrect Select Method ", mtError, Array(mbOK) 'SDB.MessageBox
Exit Sub
End Select
For iCounter = 0 to objSongList.count - 1 'SelectMethod 4 SongLists
While Not objSongListiterator.EOF 'SelectMethod 2 and 3 Iterator
Set objSongData = objSongListiterator.Item 'SelectMethod 2
objSongList.Add(objSongData) 'SelectMethod 2
Set objSongData = objSongList.Item(iCounter) 'SelectMethod 4
-- = objSongData.- 'SelectMethod 1, 2 and 4
SDB.MessageBox "Value = '" & -- & "'", mtError, Array(mbOK) 'SelectMethod 4 (2 and 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 = '" & -- & "'", mtError, Array(mbOK)
' objSongData.- = -New- 'Commented Out For Safety 'SelectMethod 1, 2 and 4
' objSonglist.UpdateAll 'Commented Out For Safety 'UpdateAll
'SelectMethod 1, 2 and 4 Updates db and writes tags (if checked in options)
End Sub
