MediaMonkey forum

Posted: **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.

Posted: **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?

Posted: **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.

Posted: **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.

Posted: **Tue Mar 27, 2007 3:39 pm**

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

Posted: **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.

Posted: **Tue Mar 27, 2007 4:20 pm**

seems to be working again.

Posted: **Tue Mar 27, 2007 4:22 pm**

Anonymous wrote:seems to be working again.

I'm still getting errors

Posted: **Tue Mar 27, 2007 5:07 pm**

Workin for me. for sure

did you do the copy and paste Teknojnky suggested?

Posted: **Tue Mar 27, 2007 6:22 pm**

Yeah, that works. Thanks for the help Tekno

Posted: **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.

Posted: **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.

Posted: **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

Posted: **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

Posted: **Thu Mar 29, 2007 5:13 am**

check the post above

MediaMonkey forum

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

Weird

OK Then

script