Code: Select all
'
' MediaMonkey Script
'
' NAME: UnicodeToAscii 1.0
'
' AUTHOR: trixmoto (http://trixmoto.net)
' DATE : 06/01/2006
'
' INSTALL: Copy to Scripts directory and add the following to Scripts.ini
' Don't forget to remove comments (') and set the order appropriately
'
' [UnicodeToAscii]
' FileName=UnicodeToAscii.vbs
' ProcName=UnicodeToAscii
' Order=16
' DisplayName=Unicode To Ascii
' Description=Convert Unicode To Ascii
' Language=VBScript
' ScriptType=0
'
Option Explicit
Sub UnicodeToAscii
Dim tracks,itm,prog
Dim res, i
Set tracks = SDB.SelectedSongList
If tracks.count = 0 Then
Set tracks = SDB.AllVisibleSongList
End If
If tracks.count = 0 Then
res = SDB.MessageBox("Select tracks to be converted", mtError, Array(mbOk))
Exit Sub
End If
Set prog = SDB.Progress
prog.MaxValue = tracks.count
For i = 0 to tracks.count-1
prog.Value = i
prog.Text = "Converting track "&(i+1)&" of "&tracks.count&"..."
Set itm = tracks.Item(i)
itm.Title = SDB.toASCII(itm.Title)
itm.ArtistName = SDB.toASCII(itm.ArtistName)
itm.AlbumName = SDB.toASCII(itm.AlbumName)
itm.AlbumArtistName = SDB.toASCII(itm.AlbumArtistName)
itm.Genre = SDB.toASCII(itm.Genre)
itm.Comment = SDB.toASCII(itm.Comment)
itm.Author = SDB.toASCII(itm.Author)
'.....
itm.UpdateDB
If prog.Terminate Then Exit For
Next
Set prog = Nothing
res = SDB.MessageBox(tracks.count&" tracks successfully converted", mtInformation, Array(mbOk))
End Sub
Sub Install()
Dim inip : inip = SDB.ApplicationPath&"Scripts\Scripts.ini"
Dim inif : Set inif = SDB.Tools.IniFileByPath(inip)
If Not (inif Is Nothing) Then
inif.StringValue("UnicodeToAscii","Filename") = "UnicodeToAscii.vbs"
inif.StringValue("UnicodeToAscii","Procname") = "UnicodeToAscii"
inif.StringValue("UnicodeToAscii","Order") = "16"
inif.StringValue("UnicodeToAscii","DisplayName") = "UnicodeToAscii"
inif.StringValue("UnicodeToAscii","Description") = "Convert Unicode To Ascii"
inif.StringValue("UnicodeToAscii","Language") = "VBScript"
inif.StringValue("UnicodeToAscii","ScriptType") = "0"
SDB.RefreshScriptItems
End If
End Sub