AllMovie.com_new movie script

English > Scripts and Templates

<< < (15/22) > >>

Ivek23:

--- Quote from: Ivek23 on May 04, 2013, 06:43:52 am ---I fixed search in Bing_SearchMulti_All script. Script now find search results for both AllMovie as well as for AllRovi.
--- End quote ---

I fixed search results for Bing_SearchMulti_AllMovie script - version 0.0.0.3
Script find now search result for AllMovie. Script displays URLs in the search results, but does not transfer anything.

Bing_SearchMulti_AllMovie script is attached.

Ivek23:

--- Quote from: Ivek23 on May 04, 2013, 03:20:39 pm ---I tried to manipulate the AllMovie_simple script with Bing search results, it has been successful and script it works.
--- End quote ---

AllMovie.com_simple_Bing_Search script - version 0.1.1.0

AllMovie.com_simple_Bing_Search script transfer the info on the movie title, year, rating and poster.

AllMovie.com_simple_Bing_Search script is attached.

Ivek23:
AllMovie.com_new script
v 0.1.2.0.

Have been made some changes in search results, namely, that it is now to find a movie title, which is not listed on the first page of search results, but on the other sides.

Changes in the AllMovie.com_new script:

--- Code: ---//Script data
SCRIPT_VERSION = '0.1.2.0';
SCRIPT_NAME = 'AllMovie.com_new';
SCRIPT_DESC = '[EN] Get Movie Information from AllMovie.com_new page';
SCRIPT_LANG = $09; //English
SCRIPT_TYPE = stMovies;

BASE_URL = 'http://www.allmovie.com';
RATING_NAME = 'AllMovie';
// SEARCH_STR = 'http://www.allmovie.com/search/movies/%s';
CODE_PAGE = 65001; //Use 0 for Autodetect

//User Options
GET_ACTORS = True; //Set to False to ensure ~ctActors~ not added even if 'Overwrite fields' setting allows
GET_DURATION = True; //Set to False to ensure ~mfDuration~ not set even if 'Overwrite fields' setting allows
//Note the program will overwrite this with the actual media duration in any case
GET_POSTER = True; //Set to False if posters not wanted (or to handle bad image URL causing HTTP 404 error)
GET_RATING = True; //Set to False to ensure ~mfRating~ not set even if 'Overwrite setting' fields setting allows
GET_THEMES = True; //Set to False to ensure ~mfCategory~ not added even if 'Overwrite fields' setting allows

//Global variables
var
ELI, I : Integer;
MovieName, PageSite : String;
Mode : Byte;
ExtraLinks : array [smCast..smPoster] of String;
TabMovieName, TabNumber, TabPageSite, TabPage : TwideArray;
--- End code ---

--- Code: ---//function GetDownloadURL : AnsiString;
//begin
// if (Mode = smSearch) then
// Result := SEARCH_STR
// else
// Result := ExtraLinks[Mode];
//end;

function GetDownloadURL : AnsiString;
Var
URLSearch,URLSearch1,URLSearch2: String;
begin
//Get Name of movie to search :
MovieName := GetFieldValue(2);
Explodestring(MovieName,TabMovieName,#32);
MovieName := #43;
For I:=low(TabMovieName) to High(TabMovieName) do
Begin
MovieName := MovieName + TabMovieName[I] + #43;
end;

URLSearch1 := 'http://www.allmovie.com/search/movies/'+MovieName+'/all/10';
LogMessage('URL page recherche : '+ URLSearch1);
URLSearch := 'http://www.allmovie.com/search/movies/'+MovieName;
LogMessage('URL page recherche : '+ URLSearch);

if (Mode = smSearch) then
Result := URLSearch1
else
Result := ExtraLinks[Mode];
if (Mode = smSearch) then
Result := URLSearch
else
Result := ExtraLinks[Mode];
end;
--- End code ---

--- Code: ---procedure ParseSearchResults(HTML : String);
var
curPos, endPos : Integer;
Title, Year, URL, director : String;
begin
//List of other site number where search page :
TabNumber := ['10', '20', '30', '40', '50', '60', '70', '80', '90', '100'];
//List of other page site number where search page :
TabPage := ['2', '3', '4', '5', '6', '7', '8', '9', '10','11'];

curPos := Pos('<div id="search-results" class="all">', HTML);
// curPos := Pos('div class="results-section movies">', HTML);
if curPos < 1 then
Exit;

LogMessage('Parsing search results...');

curPos := PosFrom('<a href="http://www.allmovie.com/movie/', HTML, curPos);
while curPos > 0 do begin
endPos := PosFrom('" class="tool-tip" data-objectid="', HTML, curPos);
URL := Copy(HTML, curPos + 9, endPos - curPos - 9);

curPos := PosFrom('">', HTML, curPos)+2;
endPos := PosFrom('</a>', HTML, curPos);
Title := Copy(HTML, curPos, endPos - curPos);

curPos := PosFrom('</a>', HTML, curPos)+24;
endPos := PosFrom('</dt>', HTML, curPos);
Year := RemoveTags(Trim(Copy(HTML, curPos, endPos - curPos)), false);

curPos := PosFrom('">', HTML, curPos)+2;
endPos := PosFrom('</a></dd>', HTML, curPos);
director := RemoveTags(Trim(Copy(HTML, curPos, endPos - curPos)), false);

AddSearchResult(Title+' '+Year, '', '', URL, '');
curPos := PosFrom('<a href="http://www.allmovie.com/movie/', HTML, curPos);
end;

//Get Name of movie to search :
MovieName := GetFieldValue(2);
Explodestring(MovieName,TabMovieName,#32);
MovieName := '';
For I:=low(TabMovieName) to High(TabMovieName) do
Begin
MovieName := MovieName + #43 + TabMovieName[I];
end;
//Add Links to Page with other sites in TabNumber:
For I := Low(TabNumber) to High(TabNumber) do
Begin
URL := 'http://www.allmovie.com/search/movies/'+MovieName+'/all/' + TabNumber[I];
//AddSearchResult('Search in '+MovieName+' on AllMovie.com ',TabNumber[I],'',URL,'');
end;
Begin
URL := 'http://www.allmovie.com/search/movies/'+MovieName+'/all/';
AddSearchResult('Search in '+MovieName+' on AllMovie.com ','Page 1','',URL,'');
end;
//List of other page site number where search page :
// PageSite := GetFieldValue(0);
// Explodestring(PageSite,TabPageSite,#32);
// PageSite := '';
For I := Low(TabPage) to High(TabPage) do
Begin
//PageSite := PageSite+TabPage[I];
URL := 'http://www.allmovie.com/search/movies/'+MovieName+'/all/' + TabNumber[I];
AddSearchResult('Search in '+MovieName+' on AllMovie.com ','Page '+TabPage[I],'',URL,'');
//AddSearchResult('Search in '+MovieName+' on AllMovie.com '+TabPage[I],TabNumber[I],'',URL,'');
//AddSearchResult('Search in '+MovieName+' on AllMovie.com ',TabPage[I],'',URL,'');
end;
// Begin
// URL := 'http://www.allmovie.com/search/movies/'+MovieName+'/all/';
// AddSearchResult('Search in '+MovieName+' on AllMovie.com ','1','',URL,'');
// end;

end;
--- End code ---

Notice:
The new version of the script is added to the Download page.

UtNut:

I love this script, I can now see 11 page numbers being displayed...
Many thanks.

Ivek23:

--- Quote from: UtNut on March 03, 2015, 06:03:13 pm ---
I love this script, I can now see 11 page numbers being displayed...
Many thanks.
--- End quote ---

Thank you, of course, I'm also glad your positive feedback.

Navigation

[0] Message Index

[#] Next page

[*] Previous page

Go to full version