Sample AMG Search script - Revision history

Ludek at 09:29, 19 January 2018

2018-01-19T09:29:14Z

← Older revision		Revision as of 09:29, 19 January 2018
Line 36:		Line 36:
	' [SearchAMG]		' [SearchAMG]
	' FileName=SearchAMG.vbs		' FileName=SearchAMG.vbs
	~~' ProcName=SearchAMG~~
	' Order=10		' Order=10
	' DisplayName=Search All Music Guide		' DisplayName=Search All Music Guide

RedX: Added warning about amg

2007-12-29T16:52:20Z

Added warning about amg

← Older revision		Revision as of 16:52, 29 December 2007
Line 1:		Line 1:
			==Attention==
			'''Maybe this script should be changed to one using a website that allows this kind of action. ''AMG does not.'''''

			----

	This script demonstrates how to plug-in into MediaMonkey Web Search dialog. It searches AMG web a lets user tag some basic fields. Don't forget that it's rather a sample of what [[Search scripts]] can do than fully working script.		This script demonstrates how to plug-in into MediaMonkey Web Search dialog. It searches AMG web a lets user tag some basic fields. Don't forget that it's rather a sample of what [[Search scripts]] can do than fully working script.

Steegy: Made code just look a little bit more obvious

2007-11-11T23:16:45Z

Made code just look a little bit more obvious

← Older revision		Revision as of 23:16, 11 November 2007
Line 219:		Line 219:
	If pos > 0 Then		If pos > 0 Then
	Set AColl = itm.getElementsByTagName("a")		Set AColl = itm.getElementsByTagName("a")
			MyList = ""
			For Each itm2 In AColl
			If MyList <> "" Then MyList = MyList & ";"
			MyList = MyList & itm2.innerText
			Next
	ListCnt = ListCnt + 1		ListCnt = ListCnt + 1
	Select Case ListCnt		Select Case ListCnt
	Case 1		Case 1
	~~For Each itm2 In AColl~~		Genres = MyList
	~~If Genres <> "" Then~~ Genres = ~~Genres & ";"~~
	~~Genres = Genres & itm2.innerText~~
	~~Next~~
	Case 2		Case 2
	~~For Each itm2 In AColl~~		Styles = MyList
	~~If Styles <> "" Then~~ Styles = ~~Styles & ";"~~
	~~Styles = Styles & itm2.innerText~~
	~~Next~~
	Case 3		Case 3
	~~For Each itm2 In AColl~~		Moods = MyList
	~~If Moods <> "" Then~~ Moods = ~~Moods & ";"~~
	~~Moods = Moods & itm2.innerText~~
	~~Next~~
	Case 4		Case 4
	~~For Each itm2 In AColl~~		Themes = MyList
	~~If Themes <> "" Then~~ Themes = ~~Themes & ";"~~
	~~Themes = Themes & itm2.innerText~~
	~~Next~~
	End Select		End Select
	End If		End If

Steegy: Fixed year problem when result given in date format

2007-11-11T22:57:23Z

Fixed year problem when result given in date format

← Older revision		Revision as of 22:57, 11 November 2007
Line 204:		Line 204:
	For Each itm2 In TDColl		For Each itm2 In TDColl
	If itm2.className = "sub-text" Then		If itm2.className = "sub-text" Then
	ReleaseYear = itm2.innerText		ReleaseYear = Right(itm2.innerText, 4)
	Exit For		Exit For
	End If		End If

Steegy: Added release year, genres, styles, moods and themes

2007-11-11T22:50:38Z

Added release year, genres, styles, moods and themes

Show changes

Jiri: Reverted edits by Steegy (Talk); changed back to last version by Jiri

2007-11-10T23:12:24Z

Reverted edits by Steegy (Talk); changed back to last version by Jiri

Show changes

Steegy: Added remark about wiki problem, and added/removed spaces

2007-11-02T10:46:59Z

Added remark about wiki problem, and added/removed spaces

Show changes

Jiri: Updated source code to reflect some changes on AMG servers

2007-08-30T17:28:21Z

Updated source code to reflect some changes on AMG servers

← Older revision		Revision as of 17:28, 30 August 2007
Line 52:		Line 52:

	' The following HTML is taken from AMG web pages - so that we don't have to load the search page and can post the query directly		' The following HTML is taken from AMG web pages - so that we don't have to load the search page and can post the query directly
	html = "<form name=""search"" action=""http://~~www~~.~~allmusicguide~~.com/cg/amg.dll"" method=""post"">"		' The following line will probably need some better way of retrieving server name from AMG. Using www.allmusicguide.com doesn't work at this moment.
			html = "<form name=""search"" action=""http://wm08.allmusic.com/cg/amg.dll"" method=""post"">"
	html = html & "<input type=""hidden"" name=""P"" value=""amg"" />"		html = html & "<input type=""hidden"" name=""P"" value=""amg"" />"
	html = html & "<p><input type=""text"" name=""sql"" id=""search_txt"" />"		html = html & "<p><input type=""text"" name=""sql"" id=""search_txt"" />"
Line 107:		Line 108:

	Set Doc2 = WB2Intf.Document		Set Doc2 = WB2Intf.Document
	Set DivResults = Doc2.~~getElementById("albumsearchresults")~~
			Set DivResults = Doc2.body

	Set Results = SDB.NewStringList		Set Results = SDB.NewStringList
	Set FoundLinks = SDB.NewStringList		Set FoundLinks = SDB.NewStringList
	If IsObject(DivResults) Then		If IsObject(DivResults) And Not IsNull(DivResults) Then

	Set AColl = DivResults.getElementsByTagName("A")		Set AColl = DivResults.getElementsByTagName("A")
	For Each itm In AColl		For Each itm In AColl
	Set Imgs = itm.getElementsByTagName("img")		Set Imgs = itm.getElementsByTagName("img")
	If ~~left~~(itm.href,Len("~~http://www.allmusicguide~~.com/cg/amg.dll?p=amg&sql=10:")) = "~~http://www.allmusicguide~~.com/cg/amg.dll?p=amg&sql=10:" And Imgs.length=0 Then		pos = InStr( CStr(itm.href), ".com/")
	Results.Add itm.innerText		If pos>0 Then
	FoundLinks.Add itm.href		href = Mid( itm.href, pos)
			If left(href,Len(".com/cg/amg.dll?p=amg&sql=10:")) = ".com/cg/amg.dll?p=amg&sql=10:" And Imgs.length=0 Then
			Results.Add itm.innerText
			FoundLinks.Add itm.href
			End If
	End If		End If
	Next		Next
Line 157:		Line 162:
	For Each itm In AColl		For Each itm In AColl
	Set Imgs = itm.getElementsByTagName("img")		Set Imgs = itm.getElementsByTagName("img")
	If ~~left~~(itm.href,Len("~~http://www.allmusicguide~~.com/cg/amg.dll?p=amg&sql=33:")) = "~~http://www.allmusicguide~~.com/cg/amg.dll?p=amg&sql=33:" And Imgs.length=0 Then		pos = InStr( CStr(itm.href), ".com/")
	Tracks.Add itm.innerText		If pos>0 Then
			href = Mid( itm.href, pos)
			If left(href,Len(".com/cg/amg.dll?p=amg&sql=33:")) = ".com/cg/amg.dll?p=amg&sql=33:" And Imgs.length=0 Then
			Tracks.Add itm.innerText
			End If
	End If		End If
	If itm.className="subtitle" Then		If itm.className="subtitle" Then

Steegy: added link to search scripts documentation

2007-05-07T20:07:46Z

added link to search scripts documentation

← Older revision		Revision as of 20:07, 7 May 2007
Line 1:		Line 1:
	This script demonstrates how to plug-in into MediaMonkey Web Search dialog. It searches AMG web a lets user tag some basic fields. Don't forget that it's rather a sample of what Search scripts can do than fully working script.		This script demonstrates how to plug-in into MediaMonkey Web Search dialog. It searches AMG web a lets user tag some basic fields. Don't forget that it's rather a sample of what [[Search scripts]] can do than fully working script.

Jiri: Fixed source code

2007-04-10T14:02:21Z

Fixed source code

← Older revision		Revision as of 14:02, 10 April 2007
Line 122:		Line 122:
	Next		Next

	SDB.Tools.WebSearch.SetSearchResults ~~SearchID,~~ Results		SDB.Tools.WebSearch.SetSearchResults Results
	If Results.Count>0 Then		If Results.Count>0 Then
	SDB.Tools.WebSearch.ResultIndex = 0		SDB.Tools.WebSearch.ResultIndex = 0
Line 188:		Line 188:
	Else		Else
	' Some results were found, notify MediaMonkey		' Some results were found, notify MediaMonkey
	SDB.Tools.WebSearch.SmartUpdateTracks ~~-1,~~ Tracks		SDB.Tools.WebSearch.SmartUpdateTracks Tracks
	For i=0 To SDB.Tools.WebSearch.NewTracks.Count-1		For i=0 To SDB.Tools.WebSearch.NewTracks.Count-1
	SDB.Tools.WebSearch.NewTracks.Item(i).ArtistName = ArtistTitle		SDB.Tools.WebSearch.NewTracks.Item(i).ArtistName = ArtistTitle