English > Scripts and Templates

Allmovie Script

<< < (11/11)

Ivek23:
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:
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: ---procedure ParseMovie(MovieURL : String; HTML : String);
var
 curPos, EndPos : Integer;
 Name, Role, URL, TmpStr, TmpStr1, TmpStr2 : String;
begin


--- End code ---

AND


--- 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 := '';  
            
 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);



--- End code ---

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]

Ivek23:
Attention to important:

AllMovie script do not work anymore.

Ivek23:

--- Quote from: rick.ca on July 13, 2011, 08:18:38 am ---The AllMovie site has been replaced by AllRovi. See AllRovi movie script.

--- End quote ---

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.

Navigation

[0] Message Index

[*] Previous page