Author Topic: Allmovie Script  (Read 39660 times)

0 Members and 2 Guests are viewing this topic.

Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #40 on: February 07, 2011, 09:20:04 pm »
What and how should it be done that with a movie title as seen on sshot-2 and sshot-5 came on the movie title page such as Blade Runner (1982, Ridley Scott) http://www.allmovie.com/work/blade-runner-5994

Or there might be similar as in procedure ParseCredits or procedure ParseCast.

Thanks for the hint or help.

BTW:
This post http://www.videodb.info/forum_en/index.php/topic,1877.msg12090.html#msg12090

Quote
Example 1.) :

Result:


On this page http://www.allmovie.com/work/the-matrix-177524 so, where is just Similar Works has a score of zero downloads,but where, in addition Similar Works and Other Related Works is the result of only the transfer of Similar Works data in folder Other Related Works.

Says result is on sshot-1 and sshot-2 Whereas in quote is not complete or a real result.
Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #41 on: February 10, 2011, 08:49:18 am »
An appendix to this Post http://www.videodb.info/forum_en/index.php/topic,1877.msg12062.html#msg12062

Quote
Obviously it will be necessary to manually enter this address

http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910

you must manually enter the url.


Previously, I have never tested an script in a different manner as that mentioned above.

I am now, this tested and this one statement above is not true completely, because this script in this post http://www.videodb.info/forum_en/index.php/topic,1877.msg12063.html#msg12063  works quite like Rick.ca AllMovie+ script or AllMovie+ -Ivek23- script or original AllMovie script .
Opens the same window as the AllMovie script and the same choice DVD title as for the selection Movie Title.
Script works well only in Languages and Subtitles put data into the same custom Languages folder, the problem is because I have not found number of eligible solutions therefore, it would only Subtitles put the data in custom field called Subtitles folder.

In AllMovie DVD Test 1 script in this post http://www.videodb.info/forum_en/index.php/topic,1877.msg12063.html#msg12063 some errors without which the script (unfortunately I did not find a different solution) is not functioning as it should.

Returns for Subtitles and put the data in custom field called Subtitles folder but rather the right Subtitles Languages, or everyone.In some places it above all.
In the Region DVD Sides and not numbers but signs of some sort of code but it may be subject to re-start AllMovie DVD test script.
If it is missing one of these two mentioned (Region and DVD Sides) but there remains a part of sort code and must be manually removed.
Here also works Features and AMG DVD ID.
Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #42 on: February 12, 2011, 11:32:31 am »
I tried to get a solution for Chapters for my AllMovie DVD script.

Example for cahill-us-marshall-commemorative-packaging Chapters:

This code
Code: [Select]

procedure ParseChapters(HTML : String);
var
 curPos : Integer;
 TmpStr, TmpStr1, TmpStr2, TmpStr3 : String;
begin
 curPos := Pos('<div id="results-table">', HTML);
 if curPos < 1 then
  Exit;
   
 
 //Chapters
 curPos := PosFrom('<td class="large-list-title" style="padding-top: 13px;padding-bottom: 1px;">Side #1 --</td>', HTML, curPos);
 TmpStr := TextBetween(HTML, '<td colspan="2">', '</td>', True, curPos);
 TmpStr1 := StringReplace(TmpStr, '<td colspan="2">', '—', True, True, False);
 TmpStr2 := StringReplace(TmpStr1, ' </td> ', '—', True, True, False);
 TmpStr3 := StringReplace(TmpStr2, '<td colspan="2"></td>', '—', True, True, False);
 AddCustomFieldValueByName('Chapters', TmpStr3);
end;


I see only this one information

Quote

1. Chapter 1 [6:39]


while there is a greater number of such data.

What would it take to change that passed all the information there.

Thanks
Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #43 on: February 12, 2011, 09:00:13 pm »
http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910/chapters

Quote

I see only this one information

Quote

1. Chapter 1 [6:39]



Quote

while there is a greater number of such data.


Quote

Disc #1 -- Cahill: United States Marshall
1. Chapter 1 [6:39]
2. Chapter 2 [3:52]
3. Chapter 3 [4:43]
4. Chapter 4 [3:48]
5. Chapter 5 [3:54]
6. Chapter 6 [3:58]
7. Chapter 7 [3:31]
8. Chapter 8 [2:51]
9. Chapter 9 [2:09]
10. Chapter 10 [4:49]
11. Chapter 11 [4:16]
12. Chapter 12 [4:24]
13. Chapter 13 [3:05]
14. Chapter 14 [2:55]
15. Chapter 15 [3:34]
16. Chapter 16 [3:15]
17. Chapter 17 [3:13]
18. Chapter 18 [2:25]
19. Chapter 19 [2:21]
20. Chapter 20 [3:23]
21. Chapter 21 [4:09]
22. Chapter 22 [2:56]
23. Chapter 23 [4:10]
24. Chapter 24 [3:33]
25. Chapter 25 [4:22]
26. Chapter 26 [3:33]
27. Chapter 27 [4:09]
28. Chapter 28 [2:01]

Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #44 on: February 13, 2011, 07:40:49 pm »
I tried to get a solution for Chapters for my AllMovie DVD script.

Example for cahill-us-marshall-commemorative-packaging Chapters:

This code
Code: [Select]

procedure ParseChapters(HTML : String);
var
 curPos : Integer;
 TmpStr, TmpStr1, TmpStr2, TmpStr3 : String;
begin
 curPos := Pos('<div id="results-table">', HTML);
 if curPos < 1 then
  Exit;
   
 
 //Chapters
 curPos := PosFrom('<td class="large-list-title" style="padding-top: 13px;padding-bottom: 1px;">Side #1 --</td>', HTML, curPos);
 TmpStr := TextBetween(HTML, '<td colspan="2">', '</td>', True, curPos);
 TmpStr1 := StringReplace(TmpStr, '<td colspan="2">', '—', True, True, False);
 TmpStr2 := StringReplace(TmpStr1, ' </td> ', '—', True, True, False);
 TmpStr3 := StringReplace(TmpStr2, '<td colspan="2"></td>', '—', True, True, False);
 AddCustomFieldValueByName('Chapters', TmpStr3);
end;


I see only this one information

Quote

1. Chapter 1 [6:39]


while there is a greater number of such data.

What would it take to change that passed all the information there.

Thanks


I found a solution for Chapters

Code

Code: [Select]
procedure ParseChapters(HTML : String);
var
 curPos : Integer;
 TmpStr, TmpStr1, TmpStr2, TmpStr3, TmpStr4, TmpStr5 : String;
begin
 curPos := Pos('<div id="results-table">', HTML);
 if curPos < 1 then
  Exit;
   

 //Chapters
curPos := PosFrom('<td class="large-list-title" style="padding-top: 13px;padding-bottom: 1px;">''</td>', HTML, curPos); 
TmpStr := TextBetween(HTML, '<td class="large-list-title" style="padding-top: 13px;padding-bottom: 1px;">', '</td>', True, curPos);
 TmpStr1 := StringReplace(TmpStr, '<td class="large-list-title" style="padding-top: 13px;padding-bottom: 1px;">',  '', True, True, False); 
 TmpStr2 := TextBetween(HTML, '<td colspan="2">', '</table>', True, curPos);
 TmpStr3 := StringReplace(TmpStr2, '<td colspan="2">', '—', True, True, False);
 TmpStr4 := StringReplace(TmpStr3, ' </td> ', '—', True, True, False); 
 TmpStr5 := StringReplace(TmpStr4, '<td colspan="2"></td></table>', '—', True, True, False); 
    if (TmpStr1 = '') AND (TmpStr5 <> '') then
  AddCustomFieldValueByName('Chapters', + TmpStr5);
    if (TmpStr1 <> '') AND (TmpStr5 <> '')then
  AddCustomFieldValueByName('Chapters', + TmpStr1 + ''
                                        + '                                                  '   
    + '                                                  '     + '                                                  '                                                                                   
    + '                                                  '     + '      '                                                                                      + TmpStr5 + '');
end;



Results

Quote

Side #1 --                                                                                                                                                                                                              1. The First Move [8:52]                                                                                                                                                                                                                        2. Ducks in a Row [11:56]                                                                                                                                                                                                                        3. Is This a Date? [9:28]                                                                                                                                                                                                                        4. He Dumped Me [8:13]                                                                                                                                                                                                                        5. New Year's [5:09]                                                                                                                                                                                                                        6. Morning After [5:29]                                                                                                                                                                                                                        7. On the Doorstep [10:41]                                                                                                                                                                                                                        8. Heading North [5:18]                                                                                                                                                                                                                        9. Sales Pitch [6:11]                                                                                                                                                                                                                        10. Six Years Too Late [9:00]                                                                                                                                                                                                                        11. Where's Oliver [10:04]                                                                                                                                                                                                                        12. End Credits [9:19]


This is Web Site Result

Quote
Side #1 --
1. The First Move [8:52]
2. Ducks in a Row [11:56]
3. Is This a Date? [9:28]
4. He Dumped Me [8:13]
5. New Year's [5:09]
6. Morning After [5:29]
7. On the Doorstep [10:41]
8. Heading North [5:18]
9. Sales Pitch [6:11]
10. Six Years Too Late [9:00]
11. Where's Oliver [10:04]
12. End Credits [9:19]

Annex
Photos

[attachment deleted by admin]
Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #45 on: February 16, 2011, 07:24:39 pm »
On the web page http://www.allmovie.com/dvd/little-house-on-the-prairie-special-edition-movie-box-5-discs-102549 I am for this one This Set Contains found this code:

//This Set Contains
AddCustomFieldValueByName('This Set Contains', HTMLValues(HTML,
               '<td class="large-list-title" style="padding-top: 13px;padding-bottom: 1px;">This Set Contains</td>', '</table>',
                    '<li>', '</li>',
                   ', ', EndPos));

and we transferred

Little House on the Prairie: Look Back to Yesterday (1983), Little House on the Prairie: The Last Farewell (1984), Little House on the Prairie: Bless All the Dear Children (1984)

such information from this site which is fine. I do have a question, how would the code be changed so that these data information such as this one Little House on the Prairie: Look Back to Yesterday (1983) become a link to the title but not such as it is now and is read-only.


[attachment deleted by admin]
Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #46 on: February 18, 2011, 09:17:29 am »
On the web page http://www.allmovie.com/dvd/little-house-on-the-prairie-special-edition-movie-box-5-discs-102549 I am for this one This Set Contains found this code:

//This Set Contains
AddCustomFieldValueByName('This Set Contains', HTMLValues(HTML,
               '<td class="large-list-title" style="padding-top: 13px;padding-bottom: 1px;">This Set Contains</td>', '</table>',
                    '<li>', '</li>',
                   ', ', EndPos));

and we transferred

Little House on the Prairie: Look Back to Yesterday (1983), Little House on the Prairie: The Last Farewell (1984), Little House on the Prairie: Bless All the Dear Children (1984)

such information from this site which is fine. I do have a question, how would the code be changed so that these data information such as this one Little House on the Prairie: Look Back to Yesterday (1983) become a link to the title but not such as it is now and is read-only.


I thought this how to insert a url address that would link the same as the url for the movie search.
Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #47 on: February 22, 2011, 11:42:02 am »

I'll just add here this notice.

On AllMovie web pages have since 19.2.2011 evening big problems with links to their database. Approximately 90% of these links to movie information does not work and this appears the following notice:

Quote

A Database Error Has Occurred.

We're sorry, but we appear to be having some problems with our database.
Please check back later. We apologize for the inconvenience. Thank you for your patience.


However, if the connection happens then work on certain links might also operate mostly not. Usually the problem is already at the opening Cast tab.

In writing this post I trying to open about 10 links to movie information but she has just opened a link in this movie title

http://www.allmovie.com/work/not-another-teen-movie-255993

I wrote this because the problems might be just with me or have the same problems for other users.

Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #48 on: February 22, 2011, 12:09:05 pm »

I'll just add here this notice.

On AllMovie web pages have since 19.2.2011 evening big problems with links to their database. Approximately 90% of these links to movie information does not work and this appears the following notice:

Quote

A Database Error Has Occurred.

We're sorry, but we appear to be having some problems with our database.
Please check back later. We apologize for the inconvenience. Thank you for your patience.


However, if the connection happens then work on certain links might also operate mostly not. Usually the problem is already at the opening Cast tab.

In writing this post I trying to open about 10 links to movie information but she has just opened a link in this movie title

http://www.allmovie.com/work/not-another-teen-movie-255993

I wrote this because the problems might be just with me or have the same problems for other users.



Meanwhile, regarding the matter apparently already edited so the above notice in previous post no longer applies.

BTW:
Perhaps such a notice will appear again in the future and will note this may have also occurred.
Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #49 on: March 04, 2011, 06:15:31 am »
As already mentioned in this post  http://www.videodb.info/forum_en/index.php/topic,1877.msg12116#msg12116  I found this code

Code: [Select]
procedure ParseChapters(HTML : String);
var
 curPos, EndPos : Integer;
 TmpStr, TmpStr1, TmpStr2, TmpStr3, TmpStr4, TmpStr5 : String;
begin
 curPos := Pos('<div id="results-table">', HTML);
 if curPos < 1 then
  Exit;
  

//Chapters
curPos := PosFrom('<td class="large-list-title" style="padding-top: 13px;padding-bottom: 1px;">''</td>', HTML, curPos);  
TmpStr := TextBetween(HTML, '<td class="large-list-title" style="padding-top: 13px;padding-bottom: 1px;">', '</td>', True, curPos);
 TmpStr1 := StringReplace(TmpStr, '<td class="large-list-title" style="padding-top: 13px;padding-bottom: 1px;">',  '', True, True, False);  
 TmpStr2 := TextBetween(HTML, '<td colspan="2">', '</table>', True, curPos);
 TmpStr3 := StringReplace(TmpStr2, '<td colspan="2">', '—', True, True, False);
 TmpStr4 := StringReplace(TmpStr3, ' </td> ', '—', True, True, False);  
 TmpStr5 := StringReplace(TmpStr4, '<td colspan="2"></td></table>', '—', True, True, False);  
    if (TmpStr1 = '') AND (TmpStr5 <> '') then
  AddCustomFieldValueByName('Chapters', + TmpStr5);
    if (TmpStr1 <> '') AND (TmpStr5 <> '')then
  AddCustomFieldValueByName('Chapters', + TmpStr1 + ''
                                        + '                                                  '  
   + '                                                  '    + '                                                  '                                                                                    
   + '                                                  '    + '      *'                                                                                    + TmpStr5 + ' *');
end;


which transfers only the first part describes (for example, to be called Disc #1 line), for instance, at this web page http://www.allmovie.com/dvd/little-house-on-the-prairie-special-edition-movie-box-5-discs-102549/chapters however, several part described (Disc # 1 Disc # 2 Disc # 3 ....) which is above described code is not transferred.
Interested in what and how to modify the code to transfer all the parts which are there described.
« Last Edit: March 06, 2011, 06:30:20 am by Ivek23 »
Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #50 on: March 05, 2011, 10:07:21 am »
I have a question for the span AKA

For example:
At this address http://www.allmovie.com/work/l-dove-non-batte-il-sole-85455 for AKA and downloaded data as shown in the pictures so I am interested in how to remove vertical line or a empty space between two words in the same row


[attachment deleted by admin]
Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #51 on: March 06, 2011, 02:55:49 pm »
I finally found a solution for the described Similar Works and Other Related Works in this post http://www.videodb.info/forum_en/index.php/topic,1877.msg12090.html#msg12090

For ParseMovie
Code: [Select]
procedure ParseMovie(MovieURL : String; HTML : String);
var
 curPos, EndPos : Integer;
 Name, Role, URL, TmpStr, TmpStr1, TmpStr2 : String;
begin


AND

Code: [Select]

//Features (Similar Works)
 curPos := PosFrom('<td colspan="2" class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">Similar Works</td>', HTML, EndPos);

TmpStr := '';  
            
 EndPos := curPos;
 curPos := PosFrom('http://www.allmovie.com/work/', HTML, curPos);
 while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin
  EndPos := PosFrom('">', HTML, curPos);
  
  URL := Copy(HTML, curPos, EndPos - curPos);
  
  curPos := EndPos + 2;
  EndPos := PosFrom('</a>', HTML, curPos);

  Name := Copy(HTML, curPos, EndPos - curPos);
  
  curPos := PosFrom('<em>', HTML, EndPos);
  if curPos > 0 then begin
   curPos := curPos + 4;
   EndPos := PosFrom('</em>', HTML, curPos);
  
   Role := Trim(Copy(HTML, curPos, EndPos - curPos));
  end else begin
   Role := '';  
   curPos := EndPos;
  end;
  
  AddMoviePerson(Name, '', Role, URL, ctActors);
  
  if TmpStr <> '' then
   TmpStr := TmpStr + #13;  
  if URL <> '' then
   TmpStr := TmpStr + '<link url="' + URL + '">';
  TmpStr := TmpStr + Name;
  if Role <> '' then
   TmpStr := TmpStr + ' - ' + Role ;
  if URL <> '' then
   TmpStr := TmpStr + '</link>';

  if curPos > 0 then
   curPos := PosFrom('http://www.allmovie.com/work/', HTML, curPos)
  else
   Exit;  
 end;

  AddCustomFieldValueByName('Similar Works', TmpStr);


//Features (Other Related Works)
 curPos := PosFrom('<td colspan="2" class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">Other Related Works</td>',HTML, EndPos);

 TmpStr := '';  
            
 EndPos := curPos;
 curPos := PosFrom('http://www.allmovie.com/work/', HTML, curPos);
 while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin
  EndPos := PosFrom('">', HTML, curPos);
  
  URL := Copy(HTML, curPos, EndPos - curPos);
  
  curPos := EndPos + 2;
  EndPos := PosFrom('</a>', HTML, curPos);
  
  Name := Copy(HTML, curPos, EndPos - curPos);
  
  curPos := PosFrom('<em>', HTML, EndPos);
  if curPos > 0 then begin
   curPos := curPos + 4;
   EndPos := PosFrom('</em>', HTML, curPos);
  
   Role := Trim(Copy(HTML, curPos, EndPos - curPos));
  end else begin
   Role := '';  
   curPos := EndPos;
  end;
  
  AddMoviePerson(Name, '', Role, URL, ctActors);
  
  if TmpStr <> '' then
   TmpStr := TmpStr + #13;  
  if URL <> '' then
   TmpStr := TmpStr + '<link url="' + URL + '">';
  TmpStr := TmpStr + Name;
  if Role <> '' then
   TmpStr := TmpStr + ' - ' + Role;
  if URL <> '' then
   TmpStr := TmpStr + '</link>';

  if curPos > 0 then
   curPos := PosFrom('http://www.allmovie.com/work/', HTML, curPos)
  else
   Exit;  
 end;

 AddCustomFieldValueByName('Other Related Works', TmpStr);



The result is the same as procedure ParseCredits or procedure ParseCast and clicking on the specific address that this leads to the following address web page movie.

To demonstrate here are also added pictures

[attachment deleted by admin]
« Last Edit: March 06, 2011, 02:59:09 pm by Ivek23 »
Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #52 on: May 03, 2011, 02:47:23 pm »
Attention to important:

AllMovie script do not work anymore.
Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD


Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 2667
    • View Profile
Re: Allmovie Script
« Reply #53 on: July 13, 2011, 04:44:07 pm »
The AllMovie site has been replaced by AllRovi. See AllRovi movie script.

All questions and answers are out there now.
The AllMovie site has been replaced by AllRovi.
See AllRovi movie script for Scripts and Templates board.
Post it now in AllRovi movie script for Support board.

« Last Edit: August 06, 2011, 01:35:08 pm by Ivek23 »
Ivek23
Win 10 64bit (32bit)   PVD v0.9.9.21, PVD v1.0.2.7, PVD v1.0.2.7 + MOD