此脚本允许您批量重命名艺术家“Firstname Lastname”为“Lastname, Firstname”。这当然适用于中间名：“Firstname Middlename Lastname”->“Lastname, Firstname Middlename”。它允许您列出三种例外情况，即整个艺术家、前缀和后缀。通过更改模式变量也可以实现相反的操作，尽管这会忽略前缀和后缀。

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

我编写了这个脚本，让您只需单击一下即可访问多种心情。
它仅适用于当前正在播放的歌曲。
您需要将其保存在 Auto scripts 部分中作为 .vbs 文件，然后重新加载 media monkey。它将创建一个可停靠面板。如果您关闭该面板，您可以通过转到“查看”菜单重新打开它，转到底部，它是“情绪设置面板”

当您单击其中一个情绪复选框时，它会将其添加到歌曲的情绪中（如果尚未添加到那里）。它还会为多个情绪添加分号。

通过在我在标记的位置编辑下面的代码，您可以更改复选框的位置和数量以及您希望它们设置的类型。

修改代码以制作另一个面板应该足够容易，该面板可让您对“场合”或任何其他文本字段执行相同的操作。

我几乎不懂 VBScript 或 Mediamonkey 编程，因此我无法满足这方面的任何要求，但有更多时间和意愿的人可以帮您解决！
享受

我要感谢 Mediamonkey 的开发团队制作了如此出色的产品，它允许您自行完成如此多的功能，然后使用代码对其进行扩展。比 iTunes 更简单。


[代码]



昏暗的 Mnu、Pnl、Lbl、Lbl2

子启动时
设置 UI = SDB.UI

设置 Pnl = UI.NewDockablePersistentPanel(“TestingPanel”)
如果 Pnl.IsNew 那么
盈亏.DockedTo = 2
Pnl.Common.Width = 250
如果结束
Pnl.Caption = "心情设置面板"
脚本.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.Common.Anchors = 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 = “史诗”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”


设置 ChB = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = “ChB”
ChB.Common.SetRect 123, 0, 100, 20
ChB.Caption = “坚定”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”


设置 Chb = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = “ChB”
ChB.Common.SetRect 3, 20, 100, 20
ChB.Caption = “悲伤”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”


设置 ChB = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = “ChB”
ChB.Common.SetRect 123, 20, 100, 20
ChB.Caption = “快乐”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”


设置 Chb = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = “ChB”
ChB.Common.SetRect 3, 40, 100, 20
ChB.Caption = “空灵”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”


设置 ChB = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = “ChB”
ChB.Common.SetRect 123, 40, 100, 20
ChB.Caption = “和平”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”


设置 Chb = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = “ChB”
ChB.Common.SetRect 3, 60, 100, 20
ChB.Caption = “高飞”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”


设置 ChB = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = “ChB”
ChB.Common.SetRect 123, 60, 100, 20
ChB.Caption = “可怕”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”


设置 Chb = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = “ChB”
ChB.Common.SetRect 3, 80, 100, 20
ChB.Caption = “愤怒”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”


设置 ChB = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = “ChB”
ChB.Common.SetRect 123, 80, 100, 20
ChB.Caption = “浪漫”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”

设置 Chb = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 100, 100, 20
ChB.Caption = “冒险”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”


设置 ChB = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = “ChB”
ChB.Common.SetRect 123, 100, 100, 20
ChB.Caption = “热门”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”


设置 Chb = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = “ChB”
ChB.Common.SetRect 3, 120, 100, 20
ChB.Caption = “酷”
脚本.RegisterEvent ChB.Common，“OnClick”，“ChBClick”


设置 ChB = UI.NewCheckBox(Pnl)
ChB.Common.ControlName = “ChB”
ChB.Common.SetRect 123, 120, 100, 20
ChB.Caption = “有趣”
脚本.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”
子目录结束

子显示面板（项目）
Pnl.Common.Visible = 非 Pnl.Common.Visible
Mnu.Checked = Pnl.Common.Visible
子目录结束

子盈亏平仓（项目）
Mnu.Checked = false
子目录结束

选择子程序

子目录结束


子 ChBClick( ChB)



昏暗的objSongList,objSongData
设置 objSongList = SDB.NewSongList

设置 objSongData = SDB.Player.CurrentSong
objSongList.添加（objSongData）

暗淡的 StringMood、StringNewMood、StringAddMood
StringMood = objSongData.Mood

StringAddMood = “；”＆ChB.Caption


如果 InStr(StringMood,ChB.Caption) = 0 那么
“Old Mood 不包含您检查的那个。
StringNewMood = StringMood & StringAddMood

objSongData.Mood = StringNewMood
objSonglist.UpdateAll

End If ' 如果旧情绪包含新情绪，则不采取任何行动。
ChB.Checked = 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

此脚本可用于删除前缀和后缀。首先选择要修复的曲目，然后从菜单运行脚本。您将看到一个屏幕，您可以在其中指定要删除的前缀和后缀。接下来，您将看到一个确认屏幕，显示将进行的更改 - 单击“确定”将应用更改。

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”合集的文件）的 Title 字段中会合并显示艺术家和标题（“Beatles - Yes It Is”），而 Artist 字段通常只显示单词“Various”。在选定文件上运行此脚本后，Artist 字段将显示“Beatles”，而 Title 字段将显示“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