Personal Video Database
English => Development => Scripts and Templates => Topic started by: Ivek23 on April 15, 2010, 08:13:02 pm
-
The AllMovie site has been replaced by AllRovi.
See AllRovi movie script (http://www.videodb.info/forum_en/index.php/topic,2487.msg12988.html#msg12988) for Scripts and Templates board. (http://www.videodb.info/forum_en/index.php/board,9.0.html)
Post it now in AllRovi movie script (http://www.videodb.info/forum_en/index.php/topic,2496.msg13093.html#msg13093) for Support board. (http://www.videodb.info/forum_en/index.php/board,1.0.html)
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 (http://www.allmovie.com/dvd/releases/dr-no-14575)
as
DVD releases for:
It would be very interesting I hope that more of such advice.
-
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...
//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.
-
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
-
I think it would be interesting to have such information for those who do not have the original movies on DVD or other media.
-
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 (http://translate.google.com/translate?hl=en&sl=en&tl=sr&u=http%3A%2F%2Fwww.allmovie.com%2Fdvd%2F100-girls-19609), if that's a consideration. ;)
-
Wanted to say
You mean you want a script that
also at this link
http://www.allmovie.com/dvd/100-girls-19609
of course if it were possible.
-
Here
//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 (http://www.allmovie.com/dvd/100-girls-19609)
what needs to be corrected that even if this will work.
-
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.
-
Obviously it will be necessary to manually enter this address
http://www.allmovie.com/dvd/100-girls-19609 (http://www.allmovie.com/dvd/100-girls-19609)
you must manually enter the url.However, this would then
//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.
-
you must manually enter the url.
Where? ???
It might help if you explained what your are trying to do, and why.
-
I will explain the Movie Title The Matrix:
Longer way:
The first use URL:
http://www.allmovie.com/work/the-matrix-177524 (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
//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 (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
//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.
-
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).
-
How would the script work
//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.
-
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.
-
Here I managed to Description (http://www.allmovie.com/dvd/amadeus-408) the script.
Would need a small help Features (http://www.allmovie.com/dvd/amadeus-408) code for Features on the same page.
-
I have a question:
Movie title Cahill U.S. Marshal you can not find AllMovie.com other than DVD Search Results for: this (http://www.allmovie.com/search/all/cahill+u.s.+marshal).
Redirect is this (http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910).
I wonder if the such cases was possible special AllMovie+ DVD script.
-
What is your question? ???
-
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.
-
What is your question? ???
A special AllMovie+ DVD script for this site (http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910)
-
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.
-
OK.I wondered, as I have in future for himself end edit with the assistance of
DVD releases for My MoviesDVD Database with such concrete data.
-
I wonder how would in AllMovie + (Ivek23) added Movie budget from AllMovie.com (Die Another Day (http://www.allmovie.com/work/die-another-day-267158)).Try I already more variants however,no success.
Please be only for code.
-
To avoid a new topic I will ask here:
I hope this is possible:
How to CAST (Actors) section of AllMovie.com was particularly in custom items or if all that this do.
-
Would it be possible in future AllMovie script to add Cast and Awards tab in such form as it today Production Credits tab.
-
Cast Tab is a solution Here (http://www.videodb.info/forum_en/index.php?topic=1993.0).
-
I have a question:
Would it be possible (if at all possible), how to make the code for Similar Works and Other Related Works for example at this site: http://www.allmovie.com/work/the-matrix-177524
Maybe even both codes in a custom field, for example in the field Awards.
Thanks for the reply and effort in advance.
-
Similar Works and Other Related Works for example at this site: http://www.allmovie.com/work/the-matrix-177524
I tried the code (/ / Review, / / Features (DVD releases) and / / Description) but no success.
I am very interested in it that would be visible in the script, but I have no idea how to do it.
Similarly, on IMDB.com under Movie connections (http://www.imdb.com/title/tt0133093/movieconnections), but it is shown differently on both sides.
-
I tried the code (/ / Review, / / Features (DVD releases) and / / Description) but no success.
I did it just change the custom field to another custom field, not the text in the second custom field.
-
I have suggestion for AllMovie script, if possible added to the script profile option
(Film) Awards and links to similar or other similar works (films) with the addition of the year and film director.
Individuals would have the option, of course, if you wish to make visible in a custom field.
Thanks.
-
I wonder how and what to change(of course if there is to change something) in AllMovie script to AllMovie poster image can be added for example in the Custom section and the rest of us poster image would not change.
-
Here is my modified AllMovie+ -Ivek23- script (http://www.videodb.info/forum_en/index.php?topic=2130.0)
-
What is your question? ???
A special AllMovie+ DVD script for this site (http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910)
I'm at work its AllMovie DVD script and it would ask for help.
For this
I'm interested in this:
Street Date,Screen Format,Sound,Studio
but I can not find solution so I could get help with this.
At this address next cahill-us-marshall-commemorative-packaging (http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910) is all what is listed above there also visible.
Thanks
-
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.
It is true that the need to manually enter the url address but the choice of movie titles (although here in this title really does, because the only, elsewhere there are more titles, or even some direct to dvd movie site) what movie
you choose.
-
Here's the script AllMovie DVD Test and AllMovie DVD Test 1 for testing and corrections. For help with testing and I also added two skin made for this script.
Extend, this
It is true that the need to manually enter the url address but the choice of movie titles (although here in this title really does, because the only, elsewhere there are more titles, or even some direct to dvd movie site) what movie
you choose.
BTW:
I'm not an expert in writing scripts (or plugin) or read the source code for the web page but only an amateur enthusiast movies.
[attachment deleted by admin]
-
In cahill-us-marshall-commemorative-packaging (http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910) the Street Date Source code
<tr>
<td colspan="3" class="artist">
<table border="0" cellpadding="0" cellspacing="0">
<tbody><tr><td><div id="left-sidebar-title"><span>Street Date</span></div></td></tr>
<tr><td><img src="http://images.allmediaguide.com/spacer.gif" height="1" width="1"></td></tr>
<tr><td class="formed-sub">May 22, 2007</td></tr>
</tbody></table>
</td>
</tr>
</tr>
the script but I have used this code
//Street Date
AddCustomFieldValueByName('Street Date', HTMLValues(HTML,
'<span>Street Date</span>', '</table>',
'<li>', '</li>',
', ', EndPos));
or this code
//Street Date
AddCustomFieldValueByName('Street Date', HTMLValues(HTML,
'<span>Street Date</span>', '</table>',
'<li>', '</li>',
', ', EndPos));
EndPos := PosFrom('class="formed-sub"', HTML, curPos);
but not one or the other code is not working properly (other data transfers, but not for Street Date).
What did I do wrong?
-
In cahill-us-marshall-commemorative-packaging (http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910) the Street Date Source code <tr>
<td colspan="3" class="artist">
<table border="0" cellpadding="0" cellspacing="0">
<tbody><tr><td><div id="left-sidebar-title"><span>Street Date</span></div></td></tr>
<tr><td><img src="http://images.allmediaguide.com/spacer.gif" height="1" width="1"></td></tr>
<tr><td class="formed-sub">May 22, 2007</td></tr>
</tbody></table>
</td>
</tr>
</tr>
the script but I have used this code
//Street Date
AddCustomFieldValueByName('Street Date', HTMLValues(HTML,
'<span>Street Date</span>', '</table>',
'<li>', '</li>',
', ', EndPos));
or this code
//Street Date
AddCustomFieldValueByName('Street Date', HTMLValues(HTML,
'<span>Street Date</span>', '</table>',
'<li>', '</li>',
', ', EndPos));
EndPos := PosFrom('class="formed-sub"', HTML, curPos);
but not one or the other code is not working properly (other data transfers, but not for Street Date).
What did I do wrong?
Solution:
The above-mentioned codes I replaced it with this here.
//Street Date
AddCustomFieldValueByName('Street Date', HTMLValues(HTML,
'<span>Street Date</span>', '</table>',
'<td class="formed-sub">', '</td>',
', ', EndPos));
Instead, '<li>', '</li>', I switched to this '<td class="formed-sub">', '</td>', and work.
-
I found a solution to the AMG Work ID http://www.allmovie.com/work/the-matrix-177524 or AMG DVD ID http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910
Code is added under Description or Features (DVD releases)
//Description
curPos := PosFrom('<td align="left" class="title">Plot Synopsis</td>', HTML, EndPos);
TmpStr := TextBetween(HTML, '<td colspan="2"><p>', '</p></td>', True, curPos);
TmpStr1 := StringReplace(TmpStr, ' -- ', '—', True, True, False);
TmpStr2 := StringReplace(TmpStr1, '--', '—', True, True, False);
AddFieldValue(mfDescription, TmpStr2);
//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
AddCustomFieldValueByName('Feature', '<link url=' + TmpStr1 + '>DVD Releases</link>');
//AMG Work ID
AddCustomFieldValueByName('AMG WID', HTMLValues(HTML,
'<span>AMG Work ID</span>', '</table>',
'<td class="formed-sub"><pre>', '</pre></td>',
', ', EndPos));
end;
or
//AMG DVD ID
AddCustomFieldValueByName('AMG DVD ID', HTMLValues(HTML,
'<span>AMG DVD ID</span>', '</table>',
'<td class="formed-sub"><pre>', '</pre></td>',
', ', EndPos));
then work script normal elsewhere the script is not working normally.Path data in custom field.
-
AMG DVD ID
http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910
-
I have a question:
Would it be possible (if at all possible), how to make the code for Similar Works and Other Related Works for example at this site: http://www.allmovie.com/work/the-matrix-177524
Maybe even both codes in a custom field, for example in the field Awards.
Thanks for the reply and effort in advance.
Partly I found the code for the Similar Works and Other Related Works but fails to find a solution so please help.
Here are examples of what the partial results, I came.
Example 1.) :
Code:
//Features (Similar Works)
curPos := PosFrom('<td colspan="2" class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">', HTML, EndPos);
TmpStr := TextBetween(HTML, '<td colspan="2" class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">', '>Similar Works</td>', False, curPos);
TmpStr1 := StringReplace(TmpStr, '» <a href=', '', True, True, False);
If TmpStr1 <> '' then
AddCustomFieldValueByName('Similar Works', TmpStr1);
//Features (Other Related Works)
curPos := PosFrom('<td colspan="2" class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">', HTML, EndPos);
TmpStr := TextBetween(HTML, '<td colspan="2" class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">', '>Other Related Works</td>', False, curPos);
TmpStr1 := StringReplace(TmpStr, '» <a href=', '', True, True, False);
If TmpStr1 <> '' then
AddCustomFieldValueByName('Other Related Works', TmpStr1);
Result:
Links to other sites The dedication to my favorite movie! The Matrix Reloaded The Album The Matrix Community The official website <td colspan="2" class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;"
or
Links to other sites The dedication to my favorite movie! The Matrix Reloaded The Album The Matrix Community The official website Similar Works Blade Runner (1982, Ridley Scott) Total Recall (1990, Paul Verhoeven) Logan's Run (1976, Michael Anderson) Johnny Mnemonic (1995, Robert Longo) Dark City (1998, Alex Proyas) 12:01 (1993, Jack Sholder) Demon Seed (1977, Donald Cammell) Metropolis (1927, Fritz Lang) The Aries Computer The Fifth Element (1997, Luc Besson) <td colspan="2" class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;"[
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.
Example 2.) :
Code:
//Features (Similar Works)
curPos := PosFrom('<td colspan="2" class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">Similar Works</td>',HTML, EndPos);
AddCustomFieldValueByName('Similar Works', TextBetween(HTML,'<td colspan="2" class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">', '</td>', True, curPos));
//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);
AddCustomFieldValueByName('Other Related Works', TextBetween(HTML,'<td colspan="2" class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">', '</td>', True, curPos));
end;
Result:
Similar Works
or
Other Related Works
Example 3.) :
Code:
//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 := TextBetween(HTML, '<td>', '</td>', False, curPos);
TmpStr1 := StringReplace(TmpStr, '» <a href=', '', True, True, False);
If TmpStr1 <> '' then
AddCustomFieldValueByName('Similar Works', TmpStr1);
//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 := TextBetween(HTML, '<td align="right" width="150">', '<td>', False, curPos);
TmpStr1 := TextBetween(HTML, '<td>', '</td>', False, curPos);
TmpStr1 := StringReplace(TmpStr, ' <td align=', '', True, True, False);
TmpStr2 := StringReplace(TmpStr1, '<td>', '', True, True, False);
TmpStr2 := StringReplace(TmpStr1, '» <a href=', '', True, True, False);
If TmpStr2 <> '' then
AddCustomFieldValueByName('Other Related Works', TmpStr2);
Result:
Blade Runner (1982, Ridley Scott)
or
Is followed by:
Here are transferred only the first type of data.
[attachment deleted by admin]
-
Picture Part 2
[attachment deleted by admin]
-
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 (http://www.allmovie.com/work/blade-runner-5994) (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
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.
-
An appendix to this Post http://www.videodb.info/forum_en/index.php/topic,1877.msg12062.html#msg12062
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 (http://www.videodb.info/forum_en/index.php/topic,1232.msg4393.html#msg4393) or AllMovie+ -Ivek23- script (http://www.videodb.info/forum_en/index.php/topic,2130.0.html) or original AllMovie script (http://www.videodb.info/download.php?ftype=1&file=allmovie.zip).
Opens the same window as the AllMovie script (http://www.videodb.info/download.php?ftype=1&file=allmovie.zip) 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.
-
I tried to get a solution for Chapters for my AllMovie DVD script.
Example for cahill-us-marshall-commemorative-packaging (http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910/chapters) Chapters:
This code
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
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
-
http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910/chapters
I see only this one information
1. Chapter 1 [6:39]
while there is a greater number of such data.
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]
-
I tried to get a solution for Chapters for my AllMovie DVD script.
Example for cahill-us-marshall-commemorative-packaging (http://www.allmovie.com/dvd/cahill-us-marshall-commemorative-packaging-161910/chapters) Chapters:
This code
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
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
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
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
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]
-
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]
-
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.
-
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:
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.
-
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:
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.
-
As already mentioned in this post http://www.videodb.info/forum_en/index.php/topic,1877.msg12116#msg12116 I found this code
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.
-
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]
-
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
procedure ParseMovie(MovieURL : String; HTML : String);
var
curPos, EndPos : Integer;
Name, Role, URL, TmpStr, TmpStr1, TmpStr2 : String;
begin
AND
//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]
-
Attention to important:
AllMovie script do not work anymore.
-
The AllMovie site has been replaced by AllRovi. See AllRovi movie script (http://www.videodb.info/forum_en/index.php/topic,2487.msg12988.html#msg12988).
All questions and answers are out there now.
The AllMovie site has been replaced by AllRovi.
See AllRovi movie script (http://www.videodb.info/forum_en/index.php/topic,2487.msg12988.html#msg12988) for Scripts and Templates board. (http://www.videodb.info/forum_en/index.php/board,9.0.html)
Post it now in AllRovi movie script (http://www.videodb.info/forum_en/index.php/topic,2496.msg13093.html#msg13093) for Support board. (http://www.videodb.info/forum_en/index.php/board,1.0.html)