Personal Video Database

But when I look at this, it seems rather silly. If Ivek would just concede my Description and Review are much prettier than his, we could do away with this confusing option.

Description and Review to be only this
AddCustomFieldValueByName('Review', TmpStr2 + #13 + '—' + TmpStr3);
and this AddFieldValue(mfDescription, TmpStr2 + #13 + '—' + TmpStr3);
Remove about this one part
if RICK_CA then
...
 else
AddCustomFieldValueByName('Review', '  ~~  ' + TmpStr4 + '  ~~  ' + #13 + TmpStr2 + #13 + ' - ' + TmpStr5 );

and this
if RICK_CA then
...
 else
AddFieldValue(mfDescription, '  ~~  ' + TmpStr4 + '  ~~  ' + #13 + TmpStr2 + #13 + ' - ' + TmpStr3 );


If the Releases link is not wanted, mfFeatures can be disabled in  Overwrite fields..., so it's not necessary for that.

I agree, but 'procedure ParseDVDRelease' drop in the script like this
(*
procedure ParseDVDReleases(HTML : String);
var
 curPos, EndPos : Integer;
 TmpStr : String;
 Name, Role, Years, Disc, URL : String;
begin
 curPos := Pos('<div class="tabset-content main-tab-pane">', HTML);
 if curPos < 1 then
  Exit;

  TmpStr := '';
  
  EndPos := curPos;
  EndPos := PosFrom('<td class="first">', HTML, curPos);
  curPos := PosFrom('<span>', HTML, EndPos) + 6;
  EndPos := PosFrom('</span>', HTML, curPos);
  Disc := Trim(Copy(HTML, curPos, EndPos - curPos));  
    
  EndPos := curPos;
  curPos := PosFrom('http://www.allrovi.com/movies/movie/', 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('>', HTML, EndPos);
   if curPos > 0 then begin
    curPos := curPos + 2;
    EndPos := PosFrom('</div>', HTML, curPos);
  
   //modified by rick.ca 07/11/2011 to remove unwanted tag
    Role := Copy(Trim(Copy(HTML, curPos + 13, EndPos - curPos - 13)), 20, EndPos - curPos - 19);
   end else begin
    Role := '';  
    curPos := EndPos;
   end;

  EndPos := curPos;
  EndPos := PosFrom('<td>', HTML, curPos);
  curPos := PosFrom('<td>', HTML, EndPos) + 4;
  EndPos := PosFrom('</td>', HTML, curPos);
  Years := Trim(Copy(HTML, curPos, EndPos - curPos));
 
 //modified by rick.ca 07/19/2011 to include only 'Name' in link
   if TmpStr <> '' then
    TmpStr := TmpStr + #13;
   if URL <> '' then
    TmpStr := TmpStr + '<link url="' + URL + '">';
   TmpStr := TmpStr + Name + '</link>';
   if Role <> '' then
    TmpStr := TmpStr + '  •  ' + Role;
   if Years  <> '' then
    TmpStr := TmpStr + '  •  ' +  Years;

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

  AddCustomFieldValueByName('DVDs RoviLink', TmpStr);
 end;
*)
if anyone would like details for the 'Releases' page.

I'm also curious why you need to save a custom Title. Is that because you use mfTitle for titles translated to you native language

Not quite so, but the particular movie title is title written in the original title as it is my movie title.
Example of what I mean by that:
My movie title is A Fistful Of Dynamite (A Fistful of Dynamite Australia (imdb display title) / UK / USA (alternative title)), original movie title is Giu la testa (1971).

Quote

With a similar code would also have movie title also recovered in the "Review or Releases".

Sorry, I don't understand. Do we need to make further changes?

Only if the location was just a "Review" or "Releases" as was the case for the "Cast & Crew".

Quote from: Ivek23 on July 31, 2011, 08:12:01 pm

This one is not true with this code

But that's not an official part of the script yet, is it?  

It is true that this part of the revised Rick.ca code, since the earlier part of his code, which was transferred there last theme is the "more" button.

So I'd have to go in and replace that section every time a new version was released, yes?

Unfortunately yes, because otherwise you script will not work exactly right.

 I also don't like that it puts "Similarity" among the themes.

Yes, all the theme, which they have written there are also transferred, as well as in the "Similarity" button are there links to Movies.

I think it would be easier if the script handled old URLs automatically.

Yeah, I know it would be easier, but for now, this solution may be a good, until Nostra finds time to help solve the problem about this.

1. )
//Genres  
 //modified by rick.ca 07/30/2011 to add custom field
 endPos := topPos;
 TmpStr := HTMLValues(HTML,
'<dt>genres</dt>', '</dd>',
'">', '</a></li>',
',  ', endPos);
 AddFieldValue(mfGenre, TmpStr)
 AddCustomFieldValueByName('Genres', TmpStr)
This code does not work for me - does not transfer data info.


2. )
//Genres  
 //modified by rick.ca 07/30/2011 to add custom field

 TmpStr := HTMLValues(HTML,
'<dt>genres</dt>', '</dd>',
'">', '</a></li>',
',  ', endPos);
 AddFieldValue(mfGenre, TmpStr)
 AddCustomFieldValueByName('Genres', TmpStr)
While this works for me - the correct data transfer standard info box in the custom field is doubling the first word (example: Drama, Drama, Romance).



3. )
//Genres  
 //modified by rick.ca 07/30/2011 to add custom field
 
 TmpStr := HTMLValues2(HTML,
'<dt>genres</dt>', '</dd>',
'<li>', '</li>',
',  ', EndPos);
 AddFieldValue(mfGenre, TmpStr)
AddCustomFieldValueByName('Genres', TmpStr)
This is working properly - the correct data transfer standard info box and in the custom field (example: Drama, Romance).

This movie 10 Things I Hate About You (1999) also has a button "more" there, now that this is already correct, it would not be bad to add the option is what is hidden under the "more" button.

BTW:
It should be Synopsis move the location of the AMG ID,

Code: [Select]

//AMG ID
 AddCustomFieldValueByName('AMG WID', HTMLValues(HTML,
                             '<dt>AMG ID</dt>', '</dd>',
                '<pre>', '</pre>',
                ', ', EndPos));


//Description
//modified by Ivek23 and rick.ca 07/09/2011
 curPos := PosFrom('<span>', HTML, curPos);
 endPos := PosFrom('</span>', HTML, curPos);
 TmpStr5 := TextBetween(HTML, '<span>', '</span>', True, curPos);

 curPos := PosFrom('<span>by', HTML, curPos);
 endPos := PosFrom('</span>', HTML, curPos);
 if RICK_CA then
TmpStr3 := TextBetween(HTML, '<span>by ', '</span>', True, curPos)
 else
TmpStr3 := TextBetween(HTML, '<span>', '</span>', True, curPos);

 curPos := PosFrom('<strong>', HTML, curPos);
 endPos := PosFrom('</strong>', HTML, curPos);
 TmpStr4 := TextBetween(HTML, '<strong>', '</strong>', True, curPos);

 curPos := PosFrom('<p>', HTML, curPos);
 endPos := PosFrom('</p>', HTML, curPos);
 TmpStr := Copy(HTML, curPos, EndPos - curPos);
 TmpStr1 := StringReplace(TmpStr, ' -- ', '—', True, True, False);
 TmpStr2 := StringReplace(TmpStr1, ' --- ', '—', True, True, False);
 TmpStr := StringReplace(TmpStr2, '--', '—', True, True, False);
 TmpStr1 := StringReplace(TmpStr, #13#13#13#13, #13#10#13#10, True, True, False);
 TmpStr2 := RemoveTagsEx(TmpStr1);

 if TmpStr4 = 'synopsis' then
if RICK_CA then
AddFieldValue(mfDescription, TmpStr2 + #13 + '—' + TmpStr3)
else
AddFieldValue(mfDescription, '  ~~  ' + TmpStr4 + '  ~~  ' + #13 + TmpStr2 + #13 + ' - ' + TmpStr3 )          
 else
LogMessage('No Synopsis available');

end;
it will be fine, because I have done so (as well as original AllMovie script Description was at the end) and I have no problems in the functioning of the script and when the later will not more problems.

Edit: .... Description was at the end above procedure ParseSearchResults).

Do it like this as described here, and you'll see what happens then (btw: the previous version of the script before THIS change what you do, make a copy of your script and save it to a new folder,if anything it would be okay as it should be that you got a copy of the script is still available).

That did the trick in the vast majority of cases, but the problem still pops up on rare occasions (Bounty Huntress 2, for example).

Try this code
//Themes (Category)
 //modified by rick.ca 07/09/2011
 //modified by Ivek23 07/30/2011
 TmpStr := HTMLValues(HTML,
'data-typeOp=', '</div>',
'">', '</button>',
', ', EndPos);

if GET_THEMES then
AddFieldValue(mfCategory, TmpStr);
 AddCustomFieldValueByName('Themesr', TmpStr)

This movie 10 Things I Hate About You (1999) also has a button "more" there, now that this is already correct, it would not be bad to add the option is what is hidden under the "more" button.

BTW:
It should be Synopsis move the location of the AMG ID, //AMG ID
 AddCustomFieldValueByName('AMG WID', HTMLValues(HTML,
                             '<dt>AMG ID</dt>', '</dd>',
                '<pre>', '</pre>',
                ', ', EndPos));


//Description
//modified by Ivek23 and rick.ca 07/09/2011
 curPos := PosFrom('<span>', HTML, curPos);
 endPos := PosFrom('</span>', HTML, curPos);
 TmpStr5 := TextBetween(HTML, '<span>', '</span>', True, curPos);

 curPos := PosFrom('<span>by', HTML, curPos);
 endPos := PosFrom('</span>', HTML, curPos);
 if RICK_CA then
TmpStr3 := TextBetween(HTML, '<span>by ', '</span>', True, curPos)
 else
TmpStr3 := TextBetween(HTML, '<span>', '</span>', True, curPos);

 curPos := PosFrom('<strong>', HTML, curPos);
 endPos := PosFrom('</strong>', HTML, curPos);
 TmpStr4 := TextBetween(HTML, '<strong>', '</strong>', True, curPos);

 curPos := PosFrom('<p>', HTML, curPos);
 endPos := PosFrom('</p>', HTML, curPos);
 TmpStr := Copy(HTML, curPos, EndPos - curPos);
 TmpStr1 := StringReplace(TmpStr, ' -- ', '—', True, True, False);
 TmpStr2 := StringReplace(TmpStr1, ' --- ', '—', True, True, False);
 TmpStr := StringReplace(TmpStr2, '--', '—', True, True, False);
 TmpStr1 := StringReplace(TmpStr, #13#13#13#13, #13#10#13#10, True, True, False);
 TmpStr2 := RemoveTagsEx(TmpStr1);

 if TmpStr4 = 'synopsis' then
if RICK_CA then
AddFieldValue(mfDescription, TmpStr2 + #13 + '—' + TmpStr3)
else
AddFieldValue(mfDescription, '  ~~  ' + TmpStr4 + '  ~~  ' + #13 + TmpStr2 + #13 + ' - ' + TmpStr3 )          
 else
LogMessage('No Synopsis available');

end;
it will be fine, because I have done so (as well as original AllMovie script Description was at the end) and I have no problems in the functioning of the script and when the later will not more problems.

Edit: .... Description was at the end above procedure ParseSearchResults).

Quote

Is someone else has noticed that the Google cache with some movies about a week before work OK as needed, now Google cache is now properly no longer works as it should be working.

Considering it's a cache, I would expect it to eventually be updated to recognize these pages are no longer "valid"—they've been redirected to new pages at Rovi.

Thanks for the reply.

Quote

We were unable to get the robots.txt document to display this page.
The gateway to the live web is not available. Please try again later.

...I guess Rovi might have done something to the site that stops this from working, or it's a temporary server problem.

Will see ...

This URL http://web.archive.org/web/20101209192655/http://www.allmovie.com/
or just does not work currently or do not work anymore, because this URL http://web.archive.org/web/20101209192655/http://www.allrovi.com/  or http://web.archive.org/web/20101209192655/http://www.allmusic.com/  is operating normally.

AllMovie fans will find the attached list of links interesting. Remove the TXT extension and open it in a browser. Now if I could only get the script to save these instead of just the terms...

Thank you for this

Version 10 attached (and to top post). Changes:

• added GET_DURATION option to write 'Run time' to mfDuration
• added Ivek's 'Rovi Awards' link
• added 'Attributes' (values pulled from 'Characteristics')

and this

Could I interest you in AllMovie Mood Links instead?

Why not, it would be interesting looking at Moods field.

Switch turns the idea to me, but I did not even find how to do this to the Characteristics additional import those word concepts in Attributes custom field, which were in AllMovie the Attributes category.