このスクリプトを使用すると、アーティストの名前を一括して「Firstname Lastname」から「Lastname, Firstname」に変更できます。もちろん、これはミドルネームでも機能します: 「Firstname Middlename Lastname」->「Lastname, Firstname Middlename」。アーティスト全体、プレフィックス、ポストフィックスの 3 種類の例外をリストできます。モード変数を変更することで逆も可能ですが、プレフィックスとポストフィックスは無視されます。

This script allows you to batch rename artists "Firstname Lastname" to "Lastname, Firstname". This of course works with middlenames: "Firstname Middlename Lastname" -> "Lastname, Firstname Middlename". It allows you to list three kinds of exception, whole artists, prefixes and postfixes. The reverse is also possible by changing the mode variable, although this ignores the prefixes and postfixes.

Hide original

By Rik Lewis
提出者 trixmoto
更新 03/02/2012

クリップボードから選択した曲のタイトルを一括で変更

Bulk renaming of titles of the selected songs from the clipboard

Hide original

By Oleg Chervyakov
提出者 cholv
更新 02/06/2016

このスクリプトは、選択されたすべてのトラックの単一のフィールド (ユーザーが指定したもの) をクリアします。このフィールド名は、スクリプト ヘルプ ファイルにある SongData プロパティ値である必要があります。これらは通常、列見出しと一致します。このスクリプトはバックグラウンドで動作するため、多数のトラックのフィールドをクリアする場合に便利です。

This script clears out a single field (as specified by the user) for all the selected tracks. This field name must be the SongData property values which can be found in the scripting helpfile - these normally match the column headings. This script is useful when clearing out a field for a large number of tracks as it works in the background.

Hide original

By Rik Lewis
提出者 trixmoto
更新 26/07/2014

このスクリプトは、アルバム名「 (CD1)」でディスク番号を表すために使用する文字列を検索し、「 (CD1)」を削除して、トラック番号を 1 から 101 などに変換します。また、「 (CD1)」を「」に、ディスクを 1 に変換するプロセスや、トラック「101」をディスク = 1 およびトラック = 1 に変換するプロセスもあります。

This script looks for the string you use to represent disc number in the album name " (CD1)" and removes " (CD1)" and converts the track number from 1 to 101 (etc). There are now also processes to convert " (CD1)" into "" and disk to 1, and also to convert track "101" to disk=1 and track=1.

Hide original

By Rik Lewis
提出者 trixmoto
更新 26/12/2012

選択したすべてのトラックで、先頭に The が付いていないが、付いている必要があるアーティスト (例: The Beatles) がないか確認し、プレフィックスを追加します。ユーザー定義可能なリストにより、海外のアーティストも使用できます。ライブラリ内の不一致を検出し、データベースに影響を与える前に確認ボックスを表示します。

Checks all selected tracks for artists that do not have The in front but should (ie. The Beatles) and adds the prefix. User definable list allows for international artists. Finds mismatches in your library and shows a confirmation box before affecting your database.

Hide original

By Rik Lewis
提出者 trixmoto
更新 03/02/2012

選択したすべてのトラックで ...、The をチェックし、The ... に修正します。MM2.5 より前に並べ替えの問題を回避しようとしたが、コレクションを修正したい場合に便利です。確認ボックスが起動し、変更が有効になる前に確認できます。「The」単語のリストを入力できるため、国際的なユーザーにも対応できます。

Checks all selected tracks for ..., The and corrects to The .... Useful for those who tried to get around the sort issue before MM2.5 and now wish to correct their collection. Confirmation box is launched so changes can be viewed before they take effect. Allows you to enter a list of "The" words, allowing for international users.

Hide original

By Rik Lewis
提出者 trixmoto
更新 03/02/2012

このスクリプトは、再生中の曲の歌詞タグを読み取り、基本的なタイムスタンプを簡単に追加できるようにします。現在再生中の行を強調表示して、これまでの進行状況を確認し、それに応じて時間を調整しやすくします。

現在再生中のトラックに合わせて更新されるドッキング可能なパネルに表示されます。タイムスタンプの完璧な調整を容易にするループ機能も含まれています。

歌詞を追加、編集、削除するオプションも備えた完全なエディターになりました。歌詞も EvilLyrics から自動的にインポートされます。

This script reads the lyrics tag for the playing song and allows you to easily add basic timestamps. It highlights the currently playing line to make it easy to see progress so far and adjust times accordingly.

Displays in a dockable panel which updates with the currently playing track. Loop feature included to ease perfecting timestamps.

Is now a full editor with options to add, edit and delete the lyric lines as well. Lyrics are also imported from EvilLyrics automatically.

Hide original

By trixmoto
提出者 trixmoto
更新 03/08/2014

選択したすべてのトラックで The ... をチェックし、...、The に修正します。元のスクリプトの逆の操作 (末尾の The を修正) を実行するように要求されました。確認ボックスが起動し、変更が有効になる前に確認できます。国際的なユーザーのために、「The」単語のリストを入力できます。

Checks all selected tracks for The ... and corrects to ..., The. Requested to do the opposite of the original script (Fix Trailing The). Confirmation box is launched so changes can be viewed before they take effect. Allows you to enter a list of "The" words, allowing for international users.

Hide original

By Rik Lewis
提出者 trixmoto
更新 03/02/2012

このスクリプトは、ワンクリックで複数のムードにアクセスできるようにするために作成しました。
現在再生中の曲にのみ機能します。
これを自動スクリプト セクションに .vbs ファイルとして保存し、メディア モンキーをリロードする必要があります。ドッキング可能なパネルが作成されます。パネルを閉じた場合は、[表示] メニューの一番下にある [ムード設定パネル] から再度開くことができます。

ムードのチェックボックスの 1 つをクリックすると、そのムードがまだ追加されていない場合は、曲のムードに追加されます。また、複数のムードがある場合はセミコロンも追加されます。

マークした箇所の以下のコードを編集することで、チェックボックスの位置や数、設定するジャンルを変更することができます。

コードを変更して、Occasions やその他のテキスト フィールドで同じことを実行できる別のパネルを作成するのは簡単なはずです。

私は VBScript や Mediamonkey プログラミングをほとんど知らないので、これに関するリクエストには応じることができません。時間と意欲のある人が代わりに対応してくれるでしょう。
楽しむ

Mediamonkey の開発チームには、これだけ多くのことを独自に実行でき、コードを使用して拡張できる素晴らしい製品を開発してくれたことに感謝したいと思います。iTunes よりも簡単です。


[コード]



寸法 Mnu、Pnl、Lbl、Lbl2

サブ OnStartup
UI = SDB.UI を設定します。

Pnl = UI.NewDockablePersistentPanel("TestingPanel") を設定します。
Pnl.IsNewの場合
Pnl.DockedTo = 2
損益共通幅 = 250
終了の場合
Pnl.Caption = "ムード設定パネル"
Script.RegisterEvent Pnl、「OnClose」、「PnlClose」

Lbl = UI.NewLabel(Pnl) を設定します。
Lbl.Autosize = false
Lbl.Multiline = true
Lbl.Common.SetRect 10, 10、Pnl.Common.Width-20、Pnl.Common.Height-20
Lbl.共通.アンカー = 15 '1+2+4+8

この行より上の部分は変更しないでください


' この部分を使用してチェックボックスのジャンルと位置を編集します
チェックボックスのキャプションを希望のジャンルに変更します
「SetRect」を使用して各チェックボックスの位置を変更します
'チェックボックスのコードを6行コピーして貼り付け、新しいチェックボックスを追加します
'チェックボックスへのすべてのクリックは、下部にある1つのイベントハンドラによって処理されます
'これは、それを呼び出すコントロールのキャプションを参照します



ChB = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 0, 100, 20
'左、上、幅、高さ
ChB.Caption = "エピック"
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」


ChB = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 0, 100, 20
ChB.Caption = "決意"
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」


Chb = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3、20、100、20
ChB.Caption = "悲しい"
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」


ChB = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 20, 100, 20
ChB.Caption = "幸せ"
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」


Chb = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3、40、100、20
ChB.Caption = "エーテル"
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」


ChB = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123、40、100、20
ChB.Caption = 「平和」
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」


Chb = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3、60、100、20
ChB.Caption = "間抜け"
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」


ChB = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123、60、100、20
ChB.Caption = 「怖い」
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」


Chb = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3、80、100、20
ChB.Caption = 「怒り」
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」


ChB = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123、80、100、20
ChB.Caption = "ロマンチック"
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」

Chb = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3、100、100、20
ChB.Caption = 「冒険」
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」


ChB = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123、100、100、20
ChB.Caption = "人気"
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」


Chb = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3、120、100、20
ChB.Caption = "クール"
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」


ChB = UI.NewCheckBox( Pnl) を設定します。
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123、120、100、20
ChB.Caption = "楽しい"
Script.RegisterEvent ChB.Common、「OnClick」、「ChBClick」







「この行より下は変更しないでください」


' パネルを閉じた後に表示するメニュー項目を追加します
Sep = SDB.UI.AddMenuItemSep(SDB.UI.Menu_View,0,0) を設定します。
Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_View,0,0) を設定します。
Mnu.Caption = "ムード設定パネル"
Mnu.Checked = Pnl.Common.Visible
Script.RegisterEvent Mnu、「OnClick」、「ShowPanel」

Script.RegisterEvent SDB、「OnChangedSelection」、「OnSelection」
終了サブ

サブ ShowPanel(アイテム)
Pnl.Common.Visible = Pnl.Common.Visible ではない
Mnu.Checked = Pnl.Common.Visible
終了サブ

サブ PnlClose( アイテム)
Mnu.Checked = false
終了サブ

サブ選択時

終了サブ


サブChBクリック(ChB)



objSongList と objSongData を暗くする
objSongList = SDB.NewSongList を設定します。

objSongData = SDB.Player.CurrentSong を設定します。
objSongList.Add(objSongData)

Dim StringMood、StringNewMood、StringAddMood
文字列Mood = objSongData.Mood

StringAddMood = ";" & ChB.Caption


InStr(StringMood,ChB.Caption) = 0の場合
「Old Mood」にはチェックした内容は含まれていません。
StringNewMood = StringMood & StringAddMood

objSongData.Mood = StringNewMood
objSonglist.UpdateAll

End If ' 古いムードに新しいムードが含まれている場合、アクションは実行されません。
ChB.チェック済み = false

終了サブ





[/コード]

I made this script to give you one-click access to multiple moods.
It only works for the currently PLAYING song.
You need to save it in the Auto scripts section as a .vbs file, and reload media monkey.  It will create a dockable panel.  If you close the panel you can reopen it by going to the View menu, go to the bottom, and it's "Mood Setting Panel"

When you click one of the mood checkboxes, it adds that to the mood for the song if it's not already on there.  It also adds the semicolons for multiple moods.

By editing the below code in the places I marked out, you can change the position and number of the checkboxes as well as the genres you want them to set.

It should be easy enough to modify the code to make another panel that lets you do the same thing with Occasions or any other text field. 

I hardly know VBScript or Mediamonkey programming so any requests on this I will not be able to do, someone with more time and inclination can pick that up for you!
Enjoy

I would like to thank Mediamonkey's dev team for making such an awesome product that allows you to do so much on its own, and then expand it using code.  Beats Itunes easy.


[code]

 
 
Dim Mnu, Pnl, Lbl, Lbl2
 
Sub OnStartup
  Set UI = SDB.UI
 
  Set Pnl = UI.NewDockablePersistentPanel("TestingPanel")
  if Pnl.IsNew then
    Pnl.DockedTo = 2
    Pnl.Common.Width = 250
  end if
  Pnl.Caption = "Mood Setting Panel"
  Script.RegisterEvent Pnl, "OnClose", "PnlClose"
 
  Set Lbl = UI.NewLabel(Pnl)
  Lbl.Autosize = false
  Lbl.Multiline = true
  Lbl.Common.SetRect 10, 10, Pnl.Common.Width-20, Pnl.Common.Height-20
  Lbl.Common.Anchors = 15  '1+2+4+8

'don't change anything above this line


' USE THIS PART TO EDIT CHECK BOXES GENRE and position
'Change Checkbox Captions to Genres you want
'Use "SetRect" to change position of each checkbox
'Copy paste 6 lines of checkbox code to add a new checkbox
'All clicks to checkboxes are handled by the 1 event handler at the bottom
'which looks at the caption of the control that calls it



 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 0, 100, 20
'left, top, width, height
  ChB.Caption = "Epic"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 0, 100, 20
  ChB.Caption = "Determined"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 20, 100, 20
  ChB.Caption = "Sad"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 20, 100, 20
  ChB.Caption = "Happy"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 40, 100, 20
  ChB.Caption = "Ethereal"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 40, 100, 20
  ChB.Caption = "Peaceful"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 60, 100, 20
  ChB.Caption = "Goofy"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 60, 100, 20
  ChB.Caption = "Scary"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 80, 100, 20
  ChB.Caption = "Angry"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 80, 100, 20
  ChB.Caption = "Romantic"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"

 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 100, 100, 20
  ChB.Caption = "Adventurous"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 100, 100, 20
  ChB.Caption = "Popular"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 120, 100, 20
  ChB.Caption = "Cool"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 120, 100, 20
  ChB.Caption = "Fun"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"







''don't change anything below this line

 
  ' Add menu item that shows panel after it is closed
  Set Sep = SDB.UI.AddMenuItemSep(SDB.UI.Menu_View,0,0)
  Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_View,0,0)
  Mnu.Caption = "Mood Setting Panel"
  Mnu.Checked = Pnl.Common.Visible
  Script.RegisterEvent Mnu, "OnClick", "ShowPanel"
 
  Script.RegisterEvent SDB, "OnChangedSelection", "OnSelection"
End Sub
 
Sub ShowPanel(Item)
  Pnl.Common.Visible = not Pnl.Common.Visible
  Mnu.Checked = Pnl.Common.Visible
End Sub
 
Sub PnlClose( Item)
  Mnu.Checked = false
End Sub
 
Sub OnSelection
 
End Sub


Sub ChBClick( ChB)



Dim objSongList   , objSongData
 Set objSongList = SDB.NewSongList  

 Set objSongData = SDB.Player.CurrentSong
 objSongList.Add(objSongData)   

Dim StringMood, StringNewMood, StringAddMood
 StringMood = objSongData.Mood

StringAddMood =  ";" & ChB.Caption


If InStr(StringMood,ChB.Caption) = 0 Then
'Old Mood does not contain the one you checked.
StringNewMood = StringMood & StringAddMood

objSongData.Mood = StringNewMood
objSonglist.UpdateAll          

End If '   If Old Mood contains New Mood, no action is taken.
ChB.Checked = false
                       
End Sub





[/code]

Hide original

By mutronbiphase
提出者 mutronbiphase
更新 31/05/2012

Adds 2 tools that let users automatically or manually download and manage genres, moods and themes.Hide original

By roguesdt
提出者 roguesdt
更新 01/02/2012

このスクリプトは、プレフィックスとサフィックスを削除するために使用できます。まず、修正するトラックを選択し、メニューからスクリプトを実行します。削除するプレフィックスとサフィックスを指定できる画面が表示されます。次に、行われる変更を示す確認画面が表示されます。[OK] をクリックすると、変更が適用されます。

This script can be used to remove prefixes and suffixes. First select the tracks you want to fix, then run the script from the menu. You are presented with a screen where you can specify the prefixes and suffixes you wish to be removed. Next you will be presented with a confirmation screen showing the changes that will be made - clicking Ok will apply the changes.

Hide original

By Rik Lewis
提出者 trixmoto
更新 03/02/2012

一部の MP3 ファイル、特に「Various Artists」コレクションのファイルでは、残念ながらアーティストとタイトルがタイトル フィールドに結合されています (「Beatles - Yes It Is」)。一方、アーティスト フィールドには、通常「Various」という単語だけが表示されます。選択したファイルでこのスクリプトを実行すると、アーティストは「Beatles」、タイトルは「Yes It Is」になります。

注意: このファイルはテキスト ファイルであり、アドオンとして手動で追加する必要があります。

Some MP3 files, particularly those from 'Various Artists' collections, unfortunately have the artist and title combined into the Title field, ("Beatles - Yes It Is") while the Artist field typically just has the word "Various". Running this script on selected files will leave you with "Beatles" for Artist and "Yes It Is" for Title.

Note: this file is a text file and must be manually added as an addon.

Hide original

By rhand
提出者 rhand
更新 14/11/2013