Lyrics and Comment Viewer 2.2 (2011-04-24) [MM3+4]

[doane2u]

Thanks again. I'm going to be re ripping a bunch of CDs that I had previously ripped years ago as low res mp3's, will now do them as flac files. Now that MM is set up right for lyrics, it should add them as I rip them, I assume? It doesn't look like it makes the files too much bigger. Does it cause any problems loading the track if it has a page of lyrics in each song?

[MMFrLife]

Now that MM is set up right for lyrics, it should add them as I rip them, I assume?

I don't remember if that's possible (I don't have MM in front of me right now), but even if it is, I wouldn't recommended it. If you are using MM to
casually listen to music and aren't doing any editing, tagging, multiple select, ripping, etc., your probably okay. But those activities listed are quick, constant,
repeating retrieval triggers and you could have problems freezing and such. I used to have that and just turned off the auto lookup function because I'm
the kind of person who clicks on tracks and elements all around the interface "all the time". Only on occasion do I "only" listen for lengthy periods of time.

It doesn't look like it makes the files too much bigger. Does it cause any problems loading the track if it has a page of lyrics in each song?

Text, in general, adds a miniscule difference to any files, even documents; primarily made of text elements. Once the lyrics are retrieved, repeated
track loading for playback should be just as smooth as before.

[doane2u]

Thanks for all the feedback.

[markel]

OK, I'm having a problem with the lyrics display running all the lines together, despite several lyrics tagging programs showing them correctly. I know this has been discussed before, but after trying the solutions mentioned, I still need help.

I tried editing LyricsViewer.vbs and replacing
HtmlMarkup=Replace(Txt,vbNewLine,"<br>" & vbNewLine & " ") with
Txt=Replace(Txt,vbLf,vbNewLine)
HtmlMarkup=Replace(Txt,vbNewLine,"<br>" & vbNewLine & " "
but that didn't help.

I also tried the edit by searching for
LyrTxt=HtmlMarkup(Sng.Lyrics) and replace it with LyrTxt=Sng.Lyrics. Then searching for Doc.Add " <p>" & LyrTxt & "</p>" and replace it with Doc.Add " <p><pre>" & LyrTxt & "</pre></p>" but I couldn't get that to work either.

If anybody could help with this, I'd really appreciate it. I really like the simplicity of the lyrics viewer, but the lyrics all run together like that is frustrating.

[MMFrLife]

What version of MM? Have you tried reinstalling the script?

[markel]

I'm using v. 4.1.14.1813. I tried reinstalling the script - no change in the results.

[MMFrLife]

Can you post a screenshot?
Here's how, if you don't already know

You need to use an image hosting site like imgur to display your images from > post the URL of the picture page itself using the URL button from
posting menu above text field.

Like so, > press URL button to get > then,
paste url here
or, if you just want to use a word or description, do this,
paste screenshot name or other word(s)/descriptions here

.

[pyt99]

I'd like to remove the space before the lyrics, is it possible?

[gege]

I don't know what modifications you made, so I'll try to explain the metrics of this theme based on original CSS.
I believe this image sums up all the relevant attributes related to horizontal and vertical position of elements.
All you need is to edit the CSS acconding to your liking. I hope it helps.

[pyt99]

Wow, this helps me a lot
Thanks

[sankecai]

Hello gege，thank you for writing this script，this is the best lyric script for my MM4！
But there are still some small questions for me！
I have a lot of Asian musics in my computer，when I use this script to find the lyric on Google，it open my IE browser directly，but IE can't show the Asian language very well （Chrome don’t have this problem）.So I tried to edit this script.
I added these before “Function FndLyr(cArtist,cTitle)”

Code: Select all

Function readFromRegistry (strRegistryKey, strDefault)
    Dim WSHShell, value
    On Error Resume Next
    Set WSHShell = CreateObject ("WScript.Shell")
    value = WSHShell.RegRead (strRegistryKey)

    if err.number <> 0 then
        readFromRegistry= strDefault
    else
        readFromRegistry=value
    end if

    set WSHShell = nothing
end Function

Function OpenWithChrome(strURL)
    Dim strChrome
    Dim WShellChrome
    strChrome = readFromRegistry ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\chrome.exe\Path", "") 
    if (strChrome = "") then
        strChrome = "chrome.exe"
    else
        strChrome = strChrome & "\chrome.exe"
    end if
    Set WShellChrome = CreateObject("WScript.Shell")
    strChrome = """" & strChrome & """" & " " & strURL
    WShellChrome.Run strChrome, 1, false

end Function

And changed the code

Code: Select all

FndLyr="http://www.google.com/search?q="&x&"&btnG"

To

Code: Select all

FndLyr=OpenWithChrome("http://www.google.com/search?q="&x&"&btnG")

Now when there is no lyric in my music，it open Chrome directory，it works well.
But I don't want it run automatically，some of absolute musics no need to find lyric，so I want this function run when I click the url or show me some options for me to choose then acts.
Can you help me more？Thank you very much！

[lutherline]

Hello gege，thank you for writing this script，this is the best lyric script for my MM4！
But there are still some small questions for me！
I have a lot of Asian musics in my computer，when I use this script to find the lyric on Google，it open my IE browser directly，but IE can't show the Asian language very well （Chrome don’t have this problem）.So I tried to edit this script.
I added these before “Function FndLyr(cArtist,cTitle)”

Code: Select all

Function readFromRegistry (strRegistryKey, strDefault)
    Dim WSHShell, value
    On Error Resume Next
    Set WSHShell = CreateObject ("WScript.Shell")
    value = WSHShell.RegRead (strRegistryKey)

    if err.number <> 0 then
        readFromRegistry= strDefault
    else
        readFromRegistry=value
    end if

    set WSHShell = nothing
end Function

Function OpenWithChrome(strURL)
    Dim strChrome
    Dim WShellChrome
    strChrome = readFromRegistry ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\chrome.exe\Path", "") 
    if (strChrome = "") then
        strChrome = "chrome.exe"
    else
        strChrome = strChrome & "\chrome.exe"
    end if
    Set WShellChrome = CreateObject("WScript.Shell")
    strChrome = """" & strChrome & """" & " " & strURL
    WShellChrome.Run strChrome, 1, false

end Function

And changed the code

Code: Select all

FndLyr="http://www.google.com/search?q="&x&"&btnG"

To

Code: Select all

FndLyr=OpenWithChrome("http://www.google.com/search?q="&x&"&btnG")

Now when there is no lyric in my music，it open Chrome directory，it works well.
But I don't want it run automatically，some of absolute musics no need to find lyric，so I want this function run when I click the url or show me some options for me to choose then acts.
Can you help me more？Thank you very much！

[gege]

Hi,
Sorry for the late response. I'm not very active in this forum these days

Regarding your question, basically, your approach won't work as intended.
I think a better solution is to use the technique shown in this article.

Basically, you'll need:

1) In Function FndLyr, replace the line

Code: Select all

FndLyr="http://www.google.com/search?q="&x&"&btnG"

with

Code: Select all

FndLyr="ChromeHTML:// www.google.com/search?q="&x&"&btnG"

BE CAREFUL! There's a space after ://


2) Save the code below as a .reg file and add it to the Registry:

Code: Select all

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ChromeHTML]
@="Chrome HTML Document"
"URL Protocol"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ChromeHTML\DefaultIcon]
@="C:\\Program Files (x86)\\Google\\Chrome\\Application\\chrome.exe,0"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ChromeHTML\shell]

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ChromeHTML\shell\open]

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ChromeHTML\shell\open\command]
@="\"C:\\Program Files (x86)\\Google\\Chrome\\Application\\Chrome.exe\" -- %1"

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\ProtocolExecute\ChromeHTML]
"WarnOnOpen"=dword:00000000

3) Restart MediaMonkey and try it out.


Let me know if it works for you.

[lutherline]

Thank you gege，I tried your way，it works well，but it can't work when I close the Chrome，so I did some changes.

chang your reg code

Code: Select all

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ChromeHTML\shell\open\command]
@=”\”C:\\Program Files (x86)\\Google\\Chrome\\Application\\Chrome.exe\” — %1″

with

Code: Select all

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ChromeHTML\shell\open\command\Default]
“C:\Program Files (x86)\Google\Chrome\Application\chrome.exe” — %1

Now it works perfect!

But there is still one more thing,when I click the url,the IE open first then Chrome open,so can I do someting to avoid this or close the IE automatically？

Thank you very much！

[Erwin Hanzl]

deleted 29.01.2019