MediaMonkey forum

Code: Select all

' a simple Show lyrics script
'just adds a docking panle with lyrics inside
'
'thanks to all forum members for their code snippets!!!!
'
'
'here are the ini-Lines
'
' [ShowLyrics]
' FileName=ShowLyrics.vbs
' ProcName=ShowLyrics
' Order=17
' DisplayName=Show  InsideLyrics (id3V2)
' Description=Shows InsideLyrics (id3V2)
' Language=VBScript
' ScriptType=0
'

Dim Tmr, strOldsong
Dim strPath
Dim lyrPanel

Sub Showlyrics
	ExportLyrics
	CreatePanel
	Set Tmr = SDB.CreateTimer(1000)
	Script.RegisterEvent Tmr, "OnTimer", "Update"
End Sub

Sub ExportLyrics
	Dim Song, strLyrics, strHeader
	Dim TmpFile
  	
	'exports the lyrics to a temporary html file
	strPath=sdb.applicationpath
	strPath=strPath & "~~SimpleLyricsTemp.html"
	Set Song = SDB.Player.CurrentSong
	strLyrics = Song.lyrics
	if StrLyrics = "" then StrLyrics ="No id3V2 Lyric Tag found in" & CHR(10) & Song.path
	strOldsong = song.path
	strheader = "<plaintext style=""font-family:Arial,sans-serif; font-size:10px;"">"
	strlyrics = strheader & strlyrics '& "</plaintext>"
	Set tmpFile = sdb.tools.filesystem.CreateTextFile (strPath, true)
	tmpFile.WriteLine strLyrics
End Sub


Sub CreatePanel
	Dim Form
	
	'creates the panel
	Set Form = SDB.Objects("LyricPanel")
	If Form is Nothing Then
		Set Form = SDB.UI.NewDockablePersistentPanel("LyricPanel")
		Form.DockedTo = 2
		Form.Common.Width = 250
		Form.Caption = "Lyrics"
		Set lyrPanel = SDB.UI.NewActiveX(Form, "Shell.Explorer")
		lyrPanel.Common.Align = 5  
		lyrPanel.Interf.Navigate strpath  ' open the temp-lyric-file
		Form.Common.Visible = True
		SDB.Objects("LyricPanel") = Form    
		SDB.Objects("LyricX") = lyrPanel.Interf
		Script.RegisterEvent Form, "OnClose", "FormClose"
	End If
End Sub

Sub Update(Timer)
	Dim NewSong
	Set NewSong = SDB.Player.CurrentSong
	If strOldsong <> NewSong.path Then
		ExportLyrics	'export new lyrics
		lyrPanel.Interf.Navigate strpath 'open the temp-lyric-file again
	End If

End Sub

Sub FormClose(Node)
	SDB.Objects("LyricPanel") = Nothing
	SDB.Objects("LyricX").Navigate "about:blank"
	SDB.Objects("LyricX") = Nothing
	Script.UnregisterEvents Tmr
End Sub

Code: Select all

' a simple Show lyrics script
' just adds a docking panel with lyrics inside
'thanks to all forum members for their code snippets!!!!
'
'put this script into the Auto-Folder
'no ini-settings necessary

Option Explicit

Dim Tmr, strOldsong
Dim strPath
Dim lyrPanel
DIM Mnu, Form

'Autoexec 
Sub OnStartup
	'Call Showlyrics
	Showlyrics
	'Add the Lyricspanel to the View-Menu
	Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_View,1,-1)
	Mnu.Caption = "LyricsPanel"
	Mnu.shortcut = "Ctrl+Alt+y"
	Mnu.Checked = Form.Common.Visible
	Script.RegisterEvent Mnu, "OnClick", "ShowPanel"
End Sub 

Sub ShowPanel(Item)
  Form.Common.Visible = not Form.Common.Visible
  Mnu.Checked = Form.Common.Visible
End Sub 

Sub Showlyrics
	'Lyricsexport to temporary file
	ExportLyrics
	'Panel
	CreatePanel
	'Check with timer If new song is played
	Set Tmr = SDB.CreateTimer(1000)
	Script.RegisterEvent Tmr, "OnTimer", "Update"
End Sub

Sub ExportLyrics
	Dim Song, strLyrics, strHeader
	Dim TmpFile
  	
	'exports the lyrics to a temporary html file
	strPath=sdb.applicationpath
	strPath=strPath & "~~SimpleLyricsTemp.html"
	Set Song = SDB.Player.CurrentSong
	If song is Nothing Then
		strlyrics = "start player to view Lyrics"
	Else	
		strLyrics = Song.lyrics
	End If	
	If StrLyrics = "" Then StrLyrics ="No id3V2 Lyric Tag found in" & CHR(10) & Song.path
	
	If song is Nothing Then
		strOldsong ="no song"
	Else
		strOldsong = song.path
	End If
	strheader = "<table><tr><td><plaintext style=""font-family:Arial,sans-serIf; font-size:10px;"">"
	strlyrics = strheader & strlyrics '&"</table></tr></td></plaintext>"
	Set tmpFile = sdb.tools.filesystem.CreateTextFile (strPath, true)
	tmpFile.WriteLine strLyrics
End Sub


Sub CreatePanel
	'creates the panel
	Set Form = SDB.Objects("LyricPanel")
	If Form is Nothing Then
		Set Form = SDB.UI.NewDockablePersistentPanel("LyricPanel")
		Form.DockedTo = 4
		Form.Common.Width = 250
		Form.Caption = "Lyrics"
		Set lyrPanel = SDB.UI.NewActiveX(Form, "Shell.Explorer")
		lyrPanel.Common.Align = 5  
		lyrPanel.Interf.Navigate strpath  ' open the temp-lyric-file
		Form.Common.Visible = True
		SDB.Objects("LyricPanel") = Form    
		SDB.Objects("LyricX") = lyrPanel.Interf
		Script.RegisterEvent Form, "OnClose", "FormClose"
	End If
End Sub

Sub Update(Timer)
	Dim NewSong
	Set NewSong = SDB.Player.CurrentSong
	If Not NewSong is Nothing Then
		If strOldsong <> NewSong.path Then
			ExportLyrics	'export new lyrics
			lyrPanel.Interf.Navigate strpath 'open the temp-lyric-file again
		End If
	End If
End Sub

Sub FormClose(Node)
	'SDB.Objects("LyricPanel") = Nothing
	'SDB.Objects("LyricX").Navigate "about:blank"
	'SDB.Objects("LyricX") = Nothing
	'Script.UnregisterEvents Tmr
	Mnu.Checked = Form.Common.Visible
End Sub

Code: Select all

code removed
updated on  later post