Author Topic: Allmovie Script (Read 51169 times)

Ivek23 · « **on:** April 15, 2010, 08:13:02 pm »

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.

I have a question (the initiative) to AllMovie script:
Would it be possible to add this script from AllMovie.com:
View DVD Releases
View DVD Releases
as
DVD releases for:

It would be very interesting I hope that more of such advice.

rick.ca · « **Reply #1 on:** April 16, 2010, 04:13:48 am »

For things like this that don't have much to do with other information in the database, I would prefer to import a link to the page. Also, the page is a simple list of releases. But each item in the list is linked to further information. So if I want that, I'm going to be browsing the site anyway. So I modified my script by adding the following after the Description (aka "plot synopsis") section...

Code: [Select]

//Features (DVD releases)
curPos := PosFrom('<td class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">', HTML, EndPos);
TmpStr := TextBetween(HTML, '<td class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">', '>View DVD Releases</a></td>', False, curPos); 
TmpStr1 := StringReplace(TmpStr, '» <a href=', '', True, True, False);
If TmpStr1 <> '' then
AddFieldValue(mfFeatures, '<link url=' + TmpStr1 + '>DVD Releases</link>');

This does seem to work, although there's surely a better way to code it. Sadly, even though it's used throughout, I'm clueless about the role curPos and EndPos in the script.

This creates a link using the program's hyperlink function in the Features field. This is a good solution for me because I don't otherwise use the field, it's a type in which hyperlinks can be used, and it just seems logical to me. I'll even leave it in the media information section of my skin. It's not about the existing media, but a link to information about available releases. If I ever do want use it for it's intended purpose, I'm sure I'll be happy to replace the link with the actual feature information for the DVD I own.

Ivek23 · « **Reply #2 on:** April 16, 2010, 06:20:28 am »

Quote

If I ever do want use it for it's intended purpose, I'm sure I'll be happy to replace the link with the actual feature information for the DVD I own.

I would ask, therefore, actual feature information.
But I would also welcome the script for additional information AllMovie DVD release, as are they:
100 Girls:

(http://www.allmovie.com/dvd/releases/100-girls-249188)
http://www.allmovie.com/dvd/100-girls-19609

Ivek23 · « **Reply #3 on:** April 16, 2010, 06:25:28 am »

I think it would be interesting to have such information for those who do not have the original movies on DVD or other media.

rick.ca · « **Reply #4 on:** April 16, 2010, 07:01:04 am »

Quote

I would ask, therefore, actual feature information.

You mean you want a script that will allow you to choose one DVD from the list and import information presented on three separate tabs? AFAK, it's not possible do an item selection with a script. In any case, I don't see the point. You're not going to be able to do anything with the information in PVD other than read it. Why not use a link and read it in a browser? From there, you'll also find it much easier to translate the results, if that's a consideration.

Ivek23 · « **Reply #5 on:** April 16, 2010, 07:08:38 am »

Wanted to say

Quote

You mean you want a script that

also at this link

Quote

http://www.allmovie.com/dvd/100-girls-19609

of course if it were possible.

Ivek23 · « **Reply #6 on:** April 18, 2010, 02:39:43 pm »

Here

Code: [Select]

 //DVD Rating
 AddCustomFieldValueByName('DVD rating', '0');
 curPos := PosFrom('<img src="/img/st_r', HTML, EndPos);
 if curPos > 0 then begin
  curPos := PosFrom('alt="', HTML, curPos) + 5;
  EndPos := PosFrom(' ', HTML, curPos);
  
  AddCustomFieldValueByName('DVD rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));  
   
 end else 
  curPos := EndPos;

//Feature Rating
 AddCustomFieldValueByName('Feature rating', '0');
 curPos := PosFrom('<img src="/img/st_r', HTML, EndPos);
 if curPos > 0 then begin
  curPos := PosFrom('alt="', HTML, curPos) + 5;
  EndPos := PosFrom(' ', HTML, curPos);
  
  AddCustomFieldValueByName('Feature rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));

from this link
http://www.allmovie.com/dvd/100-girls-19609

what needs to be corrected that even if this will work.

rick.ca · « **Reply #7 on:** April 18, 2010, 06:06:41 pm »

First, you would somehow have to get to that page. That might be easy if there is only one DVD for a move, but usually there are many. As I said before, I don't believe user-interaction to select one DVD is possible with a script.

Ivek23 · « **Reply #8 on:** April 18, 2010, 06:44:10 pm »

Obviously it will be necessary to manually enter this address

http://www.allmovie.com/dvd/100-girls-19609

you must manually enter the url.However, this would then

Code: [Select]

 //DVD Rating
 AddCustomFieldValueByName('DVD rating', '0');
 curPos := PosFrom('<img src="/img/st_r', HTML, EndPos);
 if curPos > 0 then begin
  curPos := PosFrom('alt="', HTML, curPos) + 5;
  EndPos := PosFrom(' ', HTML, curPos);
  
  AddCustomFieldValueByName('DVD rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));  
   
 end else 
  curPos := EndPos;

//Feature Rating
 AddCustomFieldValueByName('Feature rating', '0');
 curPos := PosFrom('<img src="/img/st_r', HTML, EndPos);
 if curPos > 0 then begin
  curPos := PosFrom('alt="', HTML, curPos) + 5;
  EndPos := PosFrom(' ', HTML, curPos);
  
  AddCustomFieldValueByName('Feature rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));

should work.I will inform how it works.

rick.ca · « **Reply #9 on:** April 18, 2010, 11:51:29 pm »

Quote

you must manually enter the url.

Where?

It might help if you explained what your are trying to do, and why.

Ivek23 · « **Reply #10 on:** April 19, 2010, 07:25:29 am »

I will explain the Movie Title The Matrix:

Longer way:

The first use URL:
http://www.allmovie.com/work/the-matrix-177524

to get to this page,then go to DVD Releases View,(http://www.allmovie.com/dvd/releases/the-matrix-177524)

Easier way:
Through this

Code: [Select]

//Features (DVD releases)
curPos := PosFrom('<td class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">', HTML, EndPos);
TmpStr := TextBetween(HTML, '<td class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">', '>View DVD Releases</a></td>', False, curPos); 
TmpStr1 := StringReplace(TmpStr, '» <a href=', '', True, True, False);
If TmpStr1 <> '' then
AddFieldValue(mfFeatures, '<link url=' + TmpStr1 + '>DVD Releases</link>');

I get through this

<link url="http://www.allmovie.com/dvd/releases/the-matrix-177524">DVD Releases</link>
directly to this page DVD releases for:

then choose a title such as this one Matrix (Sep 21, 1999 Warner Home Video) Feature confirm the movie title Matrix and I get to this page the url http://www.allmovie.com/dvd/matrix-4529

Copy this url in PVD to rest url and then can I get rating for DVD Rating and Feature Rating,and this

Code: [Select]

 //DVD Rating
 AddCustomFieldValueByName('DVD rating', '0');
 curPos := PosFrom('<img src="/img/st_r', HTML, EndPos);
 if curPos > 0 then begin
  curPos := PosFrom('alt="', HTML, curPos) + 5;
  EndPos := PosFrom(' ', HTML, curPos);
  
  AddCustomFieldValueByName('DVD rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));  
   
 end else 
  curPos := EndPos;

//Feature Rating
 AddCustomFieldValueByName('Feature rating', '0');
 curPos := PosFrom('<img src="/img/st_r', HTML, EndPos);
 if curPos > 0 then begin
  curPos := PosFrom('alt="', HTML, curPos) + 5;
  EndPos := PosFrom(' ', HTML, curPos);
  
  AddCustomFieldValueByName('Feature rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));

when I run my on new modified AllMovie + (Ivek23) script.

rick.ca · « **Reply #11 on:** April 19, 2010, 11:10:49 am »

Adding the DVD page to the URL field will result in the script using that instead of the main movie page. So you'll get your DVD ratings, but also overwrite the movie description with the DVD description. And the script will no longer be able to update the movie information (except for some fields which are the same and in the same position on both pages).

Ivek23 · « **Reply #12 on:** April 19, 2010, 02:45:08 pm »

How would the script work

Code: [Select]

 //Aka
 AddFieldValue(mfAka, TextBetween(HTML, '<span>AKA</span>', '</table>', True, curPos)); 

 //Box office 
 curPos := PosFrom('<span>Box office</span>', HTML, EndPos);
 if curPos > 0 then begin
  curPos := PosFrom('<li>', HTML, curPos) + 5;
  EndPos := PosFrom('</li>', HTML, curPos); 
  
  TmpStr := Copy(HTML, curPos, EndPos - curPos);
  curPos := Pos('/', TmpStr);
  if curPos > 0 then
   Delete(TmpStr, curPos, Length(TmpStr) - curPos + 1);
  curPos := Pos(':', TmpStr);
  if curPos > 0 then
   Delete(TmpStr, curPos, Length(TmpStr) - curPos + 1); 
  AddCustomFieldValueByName('Money', TmpStr); 
 end;

if this or something like that remove away.

I hope it's okay and it works.

rick.ca · « **Reply #13 on:** April 19, 2010, 06:30:18 pm »

Quote

I hope it's okay and it works.

As stated in the heading and explained in the preamble, the purpose of this table is only to document the "CUSTOM AND NON-STANDARD FIELD MAPPINGS" used in the script. AKA and Box office are standard fields included in the original script. I don't use them, but I assume they work fine.

Ivek23 · « **Reply #14 on:** April 21, 2010, 01:11:24 pm »

Here I managed to Description the script.

Would need a small help Features code for Features on the same page.

Ivek23 · « **Reply #15 on:** April 29, 2010, 08:52:36 pm »

I have a question:

Movie title Cahill U.S. Marshal you can not find AllMovie.com other than DVD Search Results for: this.
Redirect is this.

I wonder if the such cases was possible special AllMovie+ DVD script.

rick.ca · « **Reply #16 on:** April 29, 2010, 09:07:49 pm »

What is your question?

Ivek23 · « **Reply #17 on:** April 29, 2010, 10:01:52 pm »

I'm interested in this:
Genre / Type,Street Date,Screen Format,Sound,Studio
because this
Year,Run Time,Work Rating,Countries,Color Type,Genres,
I have to AllMovie + (Ivek23).

I hope this is possible,(Genre / Type,Street Date,Screen Format,Sound,Studio) because I Since would added in script AllMovie+(Ivek23).
Thanks.

Ivek23 · « **Reply #18 on:** April 30, 2010, 05:50:19 am »

Quote from: rick.ca on April 29, 2010, 09:07:49 pm

What is your question?

A special AllMovie+ DVD script for this site

rick.ca · « **Reply #19 on:** April 30, 2010, 06:48:22 am »

Quote

A special AllMovie+ DVD script for this site

Sorry, I have no interest in such a thing. And, as I explained before, I don't believe it's even feasible.

News:

Author Topic: Allmovie Script (Read 51169 times)