ScrobblerDJ v1.26, Let your music free!!!

loubob73 · Post by **loubob73** » Tue Mar 27, 2007 3:08 pm

Mahalia Jackson

Dwight Yoakam

Lee Dorsey

Mike Viola

No pattern that I can see. No strange characters in the names or anything.

loubob73 · Post by **loubob73** » Tue Mar 27, 2007 3:11 pm

Do you know what the line and column numbers in the error message refer to? Line 297, Column 16. Does that refer to anything specific?

Teknojnky · Post by **Teknojnky** » Tue Mar 27, 2007 3:19 pm

Select Case out_type
Case 1

For Each XElmnt In xmlDoc.getElementsByTagName("artist")
If CInt(XElmnt.ChildNodes.Item(2).Text) > MinMatch Then
XDict.Add i, XElmnt.ChildNodes.Item(0).Text
End If
i = i + 1
TimerLoop = 0
Next

Something about the Cint, it does not like.

Teknojnky · Post by **Teknojnky** » Tue Mar 27, 2007 3:28 pm

I think the problem is, XElmnt.ChildNodes.Item(2).Text is blank and the Cint function does not like that.

Why XElmnt.ChildNodes.Item(2).Text is blank, I don't know yet.

http://www.audioscrobbler.net/data/webservices/

the webservices page is not working right, its not 'down' however it is blank.

Seems that they be having some problems, I suspect that is why scrobblerdj is acting up, because the xml request returns, but it is blank.

loubob73 · Post by **loubob73** » Tue Mar 27, 2007 3:39 pm

OK, I guess we just wait then. Thanks for the investigative work Teknojnky.

Teknojnky · Post by **Teknojnky** » Tue Mar 27, 2007 4:02 pm

A work around, comment out the IF line and the END IF line:

Code: Select all

Select Case out_type 
Case 1 

For Each XElmnt In xmlDoc.getElementsByTagName("artist") 
'    If CInt(XElmnt.ChildNodes.Item(2).Text) > MinMatch Then 
XDict.Add i, XElmnt.ChildNodes.Item(0).Text 
'    End If 
i = i + 1 
TimerLoop = 0 
Next

this will remove the percent similar option functionality, but seems to work ok with little to no side effects.

Guest · Post by **Guest** » Tue Mar 27, 2007 4:20 pm

seems to be working again.

loubob73 · Post by **loubob73** » Tue Mar 27, 2007 4:22 pm

Anonymous wrote:seems to be working again.

I'm still getting errors

harpagornis · Post by **harpagornis** » Tue Mar 27, 2007 5:07 pm

Workin for me. for sure

did you do the copy and paste Teknojnky suggested?

loubob73 · Post by **loubob73** » Tue Mar 27, 2007 6:22 pm

Yeah, that works. Thanks for the help Tekno

trixmoto · Post by **trixmoto** » Wed Mar 28, 2007 3:50 am

Better would be to error catch the value, like this...

Code: Select all

See psyxonova's post below

N.B. Also Int tends to work better than CInt.

Azaniah · Post by **Azaniah** » Wed Mar 28, 2007 9:07 am

Appers to be something wrong with their web service.

http://ws.audioscrobbler.com/1.0/artist ... imilar.xml

The match element appears to be broken. Strangely their test Metallica one works ok.

psyXonova · Post by **psyXonova** » Wed Mar 28, 2007 9:43 am

For some strange reason, LAST.FM serves some xmls with the <match> element empty... That's why problem occurs

QUICKFIX (haven't tried it but it should work): go at line 297 in ScrobblerDJ.vbs and replace

Code: Select all

                If CInt(XElmnt.ChildNodes.Item(2).Text) > MinMatch Then
                    XDict.Add i, XElmnt.ChildNodes.Item(0).Text
                End If

with

Code: Select all

  If XElmnt.ChildNodes.Item(2).Text <> "" Then
                If CInt(XElmnt.ChildNodes.Item(2).Text) > MinMatch Then
                    XDict.Add i, XElmnt.ChildNodes.Item(0).Text
                End If
	    Else 
                 XDict.Add i, XElmnt.ChildNodes.Item(0).Text
	    End If

Guest · Post by **Guest** » Thu Mar 29, 2007 4:25 am

I get this error trying to run this script (it was working fine for a day or so)

error #13 - Microsoft VBScript runtime error
type mismatch: "CInt"
File: "C:\Program Files\Media Monkey\Scripts\ScrobblerDJ.vbs",Line: 297, Column 16

harpagornis · Post by **harpagornis** » Thu Mar 29, 2007 5:13 am

check the post above

ScrobblerDJ v1.26, Let your music free!!!

Weird

OK Then

script