English > Scripts and Templates
Allmovie Script
Ivek23:
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.
--- End quote ---
Says result is on sshot-1 and sshot-2 Whereas in quote is not complete or a real result.
Ivek23:
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.
--- End quote ---
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:
I tried to get a solution for Chapters for my AllMovie DVD script.
Example for cahill-us-marshall-commemorative-packaging Chapters:
This code
--- 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;
--- End code ---
I see only this one information
--- Quote ---
1. Chapter 1 [6:39]
--- End quote ---
while there is a greater number of such data.
What would it take to change that passed all the information there.
Thanks
Ivek23:
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]
--- End quote ---
--- End quote ---
--- Quote ---
while there is a greater number of such data.
--- End quote ---
--- 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]
--- End quote ---
Ivek23:
--- Quote from: Ivek23 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: ---
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;
--- End code ---
I see only this one information
--- Quote ---
1. Chapter 1 [6:39]
--- End quote ---
while there is a greater number of such data.
What would it take to change that passed all the information there.
Thanks
--- End quote ---
I found a solution for Chapters
Code
--- 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;
--- End code ---
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]
--- End quote ---
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]
--- End quote ---
Annex
Photos
[attachment deleted by admin]
Navigation
[0] Message Index
[#] Next page
[*] Previous page
Go to full version