[EN+others] NEW SCRIPTS REQUESTS : CLICK HERE TO DO THEM

[iZVerg]

Please, can someone write script for http://www.world-art.ru/

+1 (Animation section)

Super necessary script for russian anime fans. Please, create it!!!!

[teflonmyk]

Can someone make scripts for movixo.com and sugardvd.com?

[Delta]

Can someone tell me how to modify the combined ofdb-imdb script to include the latest changes to the imdb script.

(current ofdb-imdb does not import actors since the change, imdb update obviously does)

Greetings Delta

[antp]

The changes made to IMDB scripts are quite simple and easy to locate.
The old part was made in comment, i.e. betweeb (* and *)
So if the ODFB-IMDB script used the same structure as IMDB for the actors, you can easily copy the part that changed.

[gerol]

@ant:
thankyou for your great, great program. It is one of the best freeware programs.

@delta

you must change the part

Code: Select all

// Actors
  LineNr := FindLine('Cast overview', Page, 0);
  if LineNr = -1 then
    LineNr := FindLine('cast overview', Page, 0);
  if LineNr = -1 then
    LineNr := FindLine('Credited cast', Page, 0);
  if LineNr = -1 then
    LineNr := FindLine('Complete credited cast', Page, 0);
  if LineNr > -1 then
  begin
    FullValue := '';
    Line := Page.GetString(LineNr);
    repeat
      BeginPos := Pos('<td valign="top">', Line);
      if BeginPos > 0 then
      begin
        Delete(Line, 1, BeginPos);
        Line := copy(Line, 25, Length(Line));
        BeginPos := pos('">', Line) + 2;
        EndPos := pos('</a>', Line);
        if EndPos = 0 then
          EndPos := Pos('</td>', Line);
        Value := copy(Line, BeginPos, EndPos - BeginPos);
        if (Value <> '(more)') and (Value <> '') then
        begin
          BeginPos := pos('.... </td><td valign="top">', Line);
          if BeginPos > 0 then
          begin
            EndPos := pos('</td></tr>', Line);
            BeginPos := BeginPos + 27;
            Value2 := copy(Line, BeginPos, EndPos - BeginPos);
            if Value2 <> '' then
            begin
              Value := Value + ' (als ' + Value2 + ')';
            end;
          end;
          if FullValue <> '' then
            FullValue := FullValue + ', ';
          FullValue := FullValue + Value;
        end;
        EndPos := Pos('</td></tr>', Line);
        Delete(Line, 1, EndPos);
      end else
      begin
        Line := '';
      end;
    until Line = '';
    HTMLDecode(FullValue);
    SetField(fieldActors, FullValue);
  end;

to:

Code: Select all

  // Actors
  LineNr := FindLine('Cast overview', Page, 0);
  if LineNr = -1 then
    LineNr := FindLine('cast overview', Page, 0);
  if LineNr = -1 then
    LineNr := FindLine('Credited cast', Page, 0);
  if LineNr = -1 then
    LineNr := FindLine('Complete credited cast', Page, 0);
  if LineNr > -1 then
  begin
    FullValue := '';
    Line := Page.GetString(LineNr);
    repeat
      BeginPos := Pos('<td valign="middle">', Line);
      if BeginPos > 0 then
      begin
        Delete(Line, 1, BeginPos);
        Line := copy(Line, 25, Length(Line));
        BeginPos := pos('">', Line) + 2;
        EndPos := pos('</a>', Line);
        if EndPos = 0 then
          EndPos := Pos('</td>', Line);
        Value := copy(Line, BeginPos, EndPos - BeginPos);
        if (Value <> '(more)') and (Value <> '') then
        begin
          BeginPos := pos('.... </td><td valign="middle">', Line);
          if BeginPos > 0 then
          begin
            EndPos := pos('</td></tr>', Line);
            BeginPos := BeginPos + 30;
            Value2 := copy(Line, BeginPos, EndPos - BeginPos);
            if Value2 <> '' then
            begin
              Value := Value + ' (als ' + Value2 + ')';
            end;
          end;
          if FullValue <> '' then
            FullValue := FullValue + ', ';
          FullValue := FullValue + Value;
        end;
        EndPos := Pos('</td></tr>', Line);
        Delete(Line, 1, EndPos);
      end else
      begin
        Line := '';
      end;
    until Line = '';
    HTMLDecode(FullValue);
    SetField(fieldActors, FullValue);
  end;

[antp]

Thanks, I've put the updated script on www.antp.be/temp/scripts (but I did not test that)

[sBeaver]

Hi,
Can someone make scripts for
http://animeclick.nipogames.com/ ?
I think It is the biggest italian site about anime.
tnx

p.s. there is an How-To about scripting for AntMovie?

[gerol]

Hi,

I think, you must patch OFDb - IMDb (DE) again, because the script will not work any longer, if the search-result of OFDb is only one movie (with more than one movie everything is ok). The reason is funny: The script is not able to find the strings <a href='view.php?page=film&fid= and '>, if there ist only one movie displayed, although the OFDB-Page contains both strings. I even used copy and paste to put these strings in the script: no effect. You must search for <a href="view.php?page=film&fid= and ">.
On the other hand: If you search for <a href="view.php?page=film&fid= and "> and the search-result is more than one movie, you get no result. In this case you must search for <a href='view.php?page=film&fid= and '> (as in the current version of the script). I cannot explain this, because in both cases the source-code of the HTML-Page is the same.
Nevertheless I patched the function AddMoviesTitles and now it works in both cases.

You must replace the part

Code: Select all

function AddMoviesTitles(Page: TStringList; var LineNr: Integer) : string;
var
  Line: string;
  MovieTitle, MovieAddress: string;
  StartPos, EndPos, NumTitles: Integer;
begin
  result := '';
  Line := Page.GetString(LineNr);
  NumTitles := 0;
  repeat
    StartPos := pos('<a href=''view.php?page=film&fid=', Line);
    if StartPos > 0 then
    begin
      Delete(Line, 1, StartPos + 8);
      MovieAddress := copy(Line, 1, pos('''>', Line) - 1);
      StartPos := pos('''>', Line) +2;
      MovieTitle := copy(Line, StartPos, pos('</a>', Line) - StartPos);
      HTMLRemoveTags(MovieTitle);
      NumTitles := NumTitles + 1;
      PickTreeAdd(MovieTitle , 'http://www.ofdb.de/' + MovieAddress);
    end;
  until (StartPos < 1);
  if NumTitles = 1 then result := 'http://www.ofdb.de/' + MovieAddress;
end;

with

Code: Select all

function AddMoviesTitles(Page: TStringList; var LineNr: Integer) : string;
var
  Line: string;
  MovieTitle, MovieAddress: string;
  StartPos, EndPos, NumTitles: Integer;
  Multi: boolean;
begin
  Multi := true;
  result := '';
  Line := Page.GetString(LineNr);
  NumTitles := 0;
  repeat
    StartPos := pos('<a href=''view.php?page=film&fid=', Line);
    if StartPos < 1 then
      begin
      StartPos := pos('<a href="view.php?page=film&fid=', Line);
      Multi := false;
      end;
    if StartPos > 0 then
    begin
      Delete(Line, 1, StartPos + 8);
      MovieAddress := copy(Line, 1, pos('''>', Line) - 1);
      if Multi = false then MovieAddress := copy(Line, 1, pos('">', Line) - 1);
      StartPos := pos('''>', Line) + 2;
      if Multi = false then StartPos := pos('">', Line) + 2;
      MovieTitle := copy(Line, StartPos, pos('</a>', Line) - StartPos);
      HTMLRemoveTags(MovieTitle);
      NumTitles := NumTitles + 1;
      PickTreeAdd(MovieTitle, 'http://www.ofdb.de/' + MovieAddress);
    end;
  until (StartPos < 1);
  if NumTitles = 1 then result := 'http://www.ofdb.de/' + MovieAddress;
end;

[antp]

Thanks.

[moepi]

Hello dears,

I already tried on the french side of the forum but i got no answer so...

Please could anyone be so gentle as to create or point me to the scripts for the following sites.

http://www.cinema.de/
http://www.filmevona-z.de/
http://www.kino.de/vorschalt/lptkvorschalt.php4
http://www.ofdb.de/images/design2/topl.gif
http://www.tiscali.de/kino/kino_center.php

As I am luxembourgish I deal with many German films, and I would really like to import the data, especially the scenarios from these sites.

Thanks for the help and Bye

[hornero]

hi,
You could create script for searches of books?

Thanks for your collaboration.

Sites:
ibs.it
www.libreriauniversitaria.it/c_search
www.bol.it/libri
www.casadellibro.com
www.amare.com
www.iberlibro.com

[parabrisas]

somebody can do a script for http://www.dvdpt.com/ ???

I was thankful =)

cumps. []

[Sorin]

Hello!

I need a litlle modification for imdb scripts. I suppose this would be very easy for ours script masters. So...

In section "Multiple Values Category" i need:

3 -> Take first TWO value for Category


Thanks!

[moonlight666]

Does someone have informations about a script for ROTTENTOMATOES.com ..
It would be great ..
It's for my music DVD, I think it's the best site for that !!

Thx

[starlight70]

May I request any kind soul out there who can help me to write/modify script so that I can import from IMDB the detail on the box office sales too. It is usually at .../business.

Thank you so much!

[cdmaster]

please I want so much this bulgarian script...www.kino.dir.bg

[ToastSavy]

Hi,
Ant Movie Catalog is a great little program. I only wish there was a script for Amazon UK. Please, please, please could someone create one.
Thank you.

-Toasty-

[damaper]

I need help to make a script for http://www.pipocaonline.com.br/
(pt)

[DawMatt]

Hi,

Any chance someone could build a script for the Online TV Database? http://tvdb.zsori.com/ Should be easier to work against than tv.com .

Thanks,
Matt

[linx05]

Hi guys. I've done a search but could not find any scripts nor requests for these four.

EzyDVD
Atlantic DVD
JB-Hifi
Sanity

The first two are the most important ones as they are proper DVD sites in Australia. Thanks.

Regards