Sandbox: Difference between revisions

From MediaMonkey Wiki
Jump to navigation Jump to search
No edit summary
Line 17: Line 17:
<nowiki>{{Property Summary|SongData|Title|String|Songs|SongTitle|Text|Title|Waterloo|Main List Sub Item String}}</nowiki>
<nowiki>{{Property Summary|SongData|Title|String|Songs|SongTitle|Text|Title|Waterloo|Main List Sub Item String}}</nowiki>
{{Property Summary|SongData|Title|String|Songs|SongTitle|Text|Title|Waterloo|Main List Sub Item String}}
{{Property Summary|SongData|Title|String|Songs|SongTitle|Text|Title|Waterloo|Main List Sub Item String}}
<nowiki>{{Property Summary|SongData|Album|Object|Songs|Album|Text|||Main List Sub Item List}}</nowiki>
<nowiki>{{Property Summary|SongData|Album|Object|Songs|Album|Text|||Sub List}}</nowiki>
{{Property Summary|SongData|Album|Object|Songs|Album|Text|||Main List Sub Item List}}
{{Property Summary|SongData|Album|Object|Songs|Album|Text|||Sub List}}





Revision as of 03:21, 7 April 2008

Song title
Scripting valueObject SongData > Title
      Value typeString
Database fieldTable Songs > SongTitle
      Field typeString
Tracklist column"Title"

CoClass SDBSongData, Interface ISDBSongData

Property Get/Let Title As String


Property description

What you edit into the individual page i.e Title or Album just under the Property Description header

If I can find a way of extracting the last word from the page name I can reduce the number of parsed parameters. The best so far includes a colon. :Title

{{Property Summary|SongData|Title|String|Songs|SongTitle|Text|Title|Waterloo|Main List Sub Item String}}

Title
Scripting Object SDBSongData
Value Name Title
Value Type String
Database Table Songs
Field Name SongTitle
Field Type Text
Tracklist Column Title
Example Data Waterloo
Hierarchy Main List Sub Item String

Example Code

Complete script

Sub

  For iCounter = 0 to objSongList.count - 1                                    'SongLists
      Set objSongData = objSongList.Item(iCounter)
      StringTitle = objSongData.Title
      SDB.MessageBox "Value = '" &  StringTitle & "'", mtError, Array(mbOK)    'SDB.MessageBox
  Next
' objSongData.Title = StringNewTitle 'Commented Out For Safety
' objSonglist.UpdateAll              'Commented Out For Safety                 'UpdateAll
                         Updates db and writes tags (if checked in options)
End Sub

{{Property Summary|SongData|Album|Object|Songs|Album|Text|||Sub List}}

Album
Scripting Object SDBSongData
Value Name Album
Value Type Object
Database Table Songs
Field Name Album
Field Type Text
Hierarchy Sub List
Members SDBAlbum

Example Code

Complete script

Sub

  For iCounter = 0 to objSongList.count - 1                                    'SongLists
      Set objSongData = objSongList.Item(iCounter)
      ObjectAlbum = objSongData.Album.Member
      SDB.MessageBox "Value = '" &  ObjectAlbum & "'", mtError, Array(mbOK)    'SDB.MessageBox
  Next
' objSongData.Album.Member = ObjectNewAlbum 'Commented Out For Safety
' objSonglist.UpdateAll              'Commented Out For Safety                 'UpdateAll
                         Updates db and writes tags (if checked in options)
End Sub





















This page is purely for testing


This html2wiki converter is very useful.

Thumb test

Main Page

Main Page

Main Page

Main Page

Main Page

Name Type Description


// Hello World in Microsoft C# ("C-Sharp").

using System;

class HelloWorld
{
    public static int Main(String[] args)
    {
        Console.WriteLine("Hello, World!");
        return 0;
    }
}
' A simple script that swaps the content of Title and Artist fields of selected tracks

Sub SwapArtistTitle
  ' Define variables
  Dim list, itm, i, tmp

  ' Get list of selected tracks from MediaMonkey
  Set list = SDB.CurrentSongList 

  ' Process all selected tracks
  For i=0 To list.count-1
    Set itm = list.Item(i)

    ' Swap the fields
    tmp = itm.Title
    itm.Title = itm.ArtistName
    If itm.AlbumArtistName = itm.ArtistName Then     ' Modify Album Artist as well if is the same as Artist
      itm.AlbumArtistName = tmp
    End If
    itm.ArtistName = tmp
  Next

  ' Write all back to DB and update tags
  list.UpdateAll
End Sub