Script: FilmAffinity [ES] (Easy Script)

[Ivek23]

Thank very much, Ivek23 for maintaining the program  .

You are Welcome and thank you.

Attached the new version.

Thank you for the new version.

[jippo]

I have a problem.

[Am-rA]

Ivek thank people like you is what makes it good that Internet is to remain standing 

[Ivek23]

Ivek thank people like you is what makes it good that Internet is to remain standing 

Thanks, Am-rA

[Ivek23]

I have a problem.

The solution to this problem is decorated.

I fixed this problem:

This is added to the code:

Code: [Select]

ItemList:=StringReplace(ItemList,'<div class="credits">','',True,True,False);            //WEB_SPECIFIC
    ItemList:=StringReplace(ItemList,'<span>','',True,True,False);            //WEB_SPECIFIC
    ItemList:=StringReplace(ItemList,'</span>','',True,True,False);            //WEB_SPECIFIC
ItemList:=StringReplace(ItemList,'</div>','',True,True,False);            //WEB_SPECIFIC
Corrected code is such now:

Code: [Select]

         //Get ~Writers~ (Only name in Web from !name! list).
         curPos:=Pos('<dt>Guión</dt>',HTML);                                          //WEB_SPECIFIC
         if 0<curPos then begin
            curPos:=curPos+Length('<dt>Guión</dt>');                                  //WEB_SPECIFIC
            curPos:=PosFrom('<dd>',HTML,curPos)+Length('<dd>');                       //WEB_SPECIFIC
            endPos:=PosFrom('</dd>',HTML,curPos);                                     //WEB_SPECIFIC
            ItemList:=Copy(HTML,curPos,endPos-curPos);
ItemList:=StringReplace(ItemList,'<div class="credits">','',True,True,False);            //WEB_SPECIFIC
    ItemList:=StringReplace(ItemList,'<span>','',True,True,False);            //WEB_SPECIFIC
    ItemList:=StringReplace(ItemList,'</span>','',True,True,False);            //WEB_SPECIFIC
ItemList:=StringReplace(ItemList,'</div>','',True,True,False);            //WEB_SPECIFIC
            LogMessage('           Parse results List Writers:'+ItemList+'||');
            curPos:=1;                                                                 //WEB_SPECIFIC
            endPos:=PosFrom(', ',ItemList,curPos);                                    //WEB_SPECIFIC
            if 0=endPos then ItemValue:=Copy(ItemList,curPos,1+Length(ItemList)-curPos);
            While 0<endPos do begin
               ItemValue:=Copy(ItemList,curPos,endPos-curPos);
               AddMoviePerson(ItemValue,'','','',ctWriters);
               LogMessage('      Get results Writers:'+ItemValue+'||');
               curPos:=endPos+Length(', ');                                           //WEB_SPECIFIC
               endPos:=PosFrom(', ',ItemList,curPos);                                 //WEB_SPECIFIC
               if 0=endPos then ItemValue:=Copy(ItemList,curPos,1+Length(ItemList)-curPos);
            end;
            AddMoviePerson(ItemValue,'','','',ctWriters);
            LogMessage('      Get results Writers:'+ItemValue+'||');
          end;
         //Get ~Composers~ (Only name in Web from !name! list).
         curPos:=Pos('<dt>Música</dt>',HTML);                                      //WEB_SPECIFIC
         if 0<curPos then begin
            curPos:=curPos+Length('<dt>Música</dt>');                                 //WEB_SPECIFIC
            curPos:=PosFrom('<dd>',HTML,curPos)+Length('<dd>');                       //WEB_SPECIFIC
            endPos:=PosFrom('</dd>',HTML,curPos);                                     //WEB_SPECIFIC
            ItemList:=Copy(HTML,curPos,endPos-curPos);
ItemList:=StringReplace(ItemList,'<div class="credits"><span>','',True,True,False);            //WEB_SPECIFIC
    ItemList:=StringReplace(ItemList,'</span></div>','',True,True,False);            //WEB_SPECIFIC         
            LogMessage('           Parse results List Composers:'+ItemList+'||');
            curPos:=1;                                                                 //WEB_SPECIFIC
            endPos:=PosFrom(', ',ItemList,curPos);                                    //WEB_SPECIFIC
            if 0=endPos then ItemValue:=Copy(ItemList,curPos,1+Length(ItemList)-curPos);
            While 0<endPos do begin
               ItemValue:=Copy(ItemList,curPos,endPos-curPos);
               AddMoviePerson(ItemValue,'','','',ctComposers);
               LogMessage('      Get results Composers:'+ItemValue+'||');
               curPos:=endPos+Length(', ');                                           //WEB_SPECIFIC
               endPos:=PosFrom(', ',ItemList,curPos);                                 //WEB_SPECIFIC
               if 0=endPos then ItemValue:=Copy(ItemList,curPos,1+Length(ItemList)-curPos);
            end;
            AddMoviePerson(ItemValue,'','','',ctComposers);
            LogMessage('      Get results Composers:'+ItemValue+'||');
          end;
.
.
.
      //Get ~studio~ (several values in a comma separated list)
      curPos:=Pos('<dt>Productora</dt>',HTML);                                  //WEB_SPECIFIC
      if 0<curPos then begin
         curPos:=curPos+Length('<dt>Productora</dt>');                          //WEB_SPECIFIC
         curPos:=PosFrom('<dd>',HTML,curPos)+Length('<dd>');                    //WEB_SPECIFIC
         endPos:=PosFrom('</dd>',HTML,curPos);                                  //WEB_SPECIFIC
         ItemList:=Copy(HTML,curPos,endPos-curPos);
         ItemList:=StringReplace(ItemList,';',',',True,True,False);             //WEB_SPECIFIC. For Conuntry coproductions.
         ItemList:=StringReplace(ItemList,' /',',',True,True,False);            //WEB_SPECIFIC
         ItemList:=StringReplace(ItemList,'<div class="credits"><span>','',True,True,False);            //WEB_SPECIFIC
ItemList:=StringReplace(ItemList,'</span></div>','',True,True,False);            //WEB_SPECIFIC
         AddFieldValueXML('studio',ItemList);
         LogMessage('      Get results studio:'+ItemList+'||');
      end;
As well as the situation in the version of the script, and otherwise it is wrong

Code: [Select]

//Script data
  SCRIPT_VERSION  = '0.2.1.3';and this is correct

Code: [Select]

//Script data
  SCRIPT_VERSION  = '0.2.1.4';

I fixed the Description code because the script writer did not follow my correction in the previous version of the script.

Description doesn't work fine if it is empty.

Yes, I am aware of this problem, unfortunately, it is currently I can not fix.

Yeah, now I managed to fix it. Now it should work properly.

Check the attached script.

Old code

Code: [Select]

      //Get ~description~
      curPos:=Pos('<dt>Sinopsis</dt>',HTML)+Length('<dt>Sinopsis</dt>');                                  //WEB_SPECIFIC
      curPos:=PosFrom('<dd itemprop="description">',HTML,curPos)+Length('<dd itemprop="description">');   //WEB_SPECIFIC
      endPos:=PosFrom('</dd>',HTML,curPos);                                                               //WEB_SPECIFIC
      ItemValue:=Copy(HTML,curPos,endPos-curPos);       
      ItemValue:=StringReplace(ItemValue,'(FILMAFFINITY)','',True,True,False);                            //WEB_SPECIFIC
      ItemValue:=RemoveTags(ItemValue,False);
      AddFieldValueXML('description',ItemValue);
      LogMessage('      Get result description:'+ItemValue+'||');     
New code

Code: [Select]

      //Get ~description~
      curPos:=Pos('<dt>Sinopsis</dt>',HTML);                                  //WEB_SPECIFIC
      if 0<curPos then begin
         curPos:=curPos+Length('<dt>Sinopsis</dt>');                          //WEB_SPECIFIC
      curPos:=PosFrom('<dd itemprop="description">',HTML,curPos)+Length('<dd itemprop="description">');   //WEB_SPECIFIC
      endPos:=PosFrom('</dl>',HTML,curPos);                                                               //WEB_SPECIFIC
      ItemValue:=Copy(HTML,curPos,endPos-curPos);       
      ItemValue:=StringReplace(ItemValue,'(FILMAFFINITY)','',True,True,False);                            //WEB_SPECIFIC
      ItemValue:=RemoveTags(ItemValue,False);
      AddFieldValueXML('description',ItemValue);
      LogMessage('      Get result description:'+ItemValue+'||');
      end;
Check the attached script.

[jippo]

Problems with composer.

[Ivek23]

Problems with composer.

I fixed the problems.

Check the attached script.

[jippo]

The script doesnt work me.

Filmaffinity changes his search.

[Ivek23]

The script doesnt work me.

Filmaffinity changes his search.

On the link below please report the error.

Contact Web: http://contactbyweb.com/vvv-easy

[VVV_Easy_Programing]

Sorry  , I had not seen so many emails (I added in the script the link of a contact Web for quick alert)
Thank very much, Ivek23 for maintaining the program  .

I have consolidated the Ivek23 version and fix the search new API

CHANGE LOG (06/06/2016):
            V 0.2.1.6   VVV: Adjust WEB_SPECIFIC to new API (Problems with search with several results).
            V 0.2.1.5   Ivek23: Adjust WEB_SPECIFIC to new API (Problems with composer).
Attached the new version.

FilmAffinity_New_Releases.psf
Need: Search in FilmAffinity DVD rental films the movies with a rating higher of 6 and number of votes greater than 2000.
Problem to solve: Select from a web list and then gets information (for instance, number of votes) of those movies.
Characteristics of Script: A script of multiple passes. Search the list page (stored in the first access) and while the list is parsed, gets the pages from the good movies to get more information (searches similar to "FilmAffinity_[ES]"). All is saved to a file. If GET_ONLY_NOT_PVdB = True, gets only the movies not present in PVdB (but PVdb_CSVDB_FILE is needed). Although not very smart, use global variables for better understanding.

Attached the new version too.

(Edito: New versions down)

[Ivek23]

Thank very much, Ivek23 for maintaining the program  .

Welcome and thanks for the new version.

I have consolidated the Ivek23 version and fix the search new API

CHANGE LOG (06/06/2016):
            V 0.2.1.6   VVV: Adjust WEB_SPECIFIC to new API (Problems with search with several results).
            V 0.2.1.5   Ivek23: Adjust WEB_SPECIFIC to new API (Problems with composer).
Attached the new version.

[VVV_Easy_Programing]

Update:

CHANGE LOG (17/09/2016):
            V 0.2.1.7   VVV: Adjust WEB_SPECIFIC to new API (Problems with search with several results: Choice of order, No poster).
Attached the new version.

(Edito: New versions down)

[Ivek23]

Update:

CHANGE LOG (17/09/2016):
            V 0.2.1.7   VVV: Adjust WEB_SPECIFIC to new API (Problems with search with several results: Choice of order, No poster).
Attached the new version.

Thanks for the new version.

[jippo]

This script needs an update.

[VVV_Easy_Programing]

Update:

CHANGE LOG (25/09/2016):
            V 1.1.0.0   VVV: Use the RemoveTags function for scrap. New "CleanBeginEndSpaces" user function.
 Attached the new version.

Thanks  jippo (jdr___@hotmail.com) by the alert.

(Edito: New versions down)

[Ivek23]

Update:

CHANGE LOG (25/09/2016):
            V 1.1.0.0   VVV: Use the RemoveTags function for scrap. New "CleanBeginEndSpaces" user function.
 Attached the new version.

Thanks  jippo (jdr___@hotmail.com) by the alert.

Thanks.

[VVV_Easy_Programing]

Update:

CHANGE LOG (20/10/2016):
            V 1.2.0.0   VVV: Clean code with TextBetWeen (RemoveTags not needed) and ExplodeString functions. Use of TWideArray variable type.
                             Use 'Trim' PDV funtion in place of "CleanBeginEndSpaces" user function. 

Attached the new version.

(Edito: New versions down)

[jippo]

The script doesn't work.

It doesn't import nothing.

[VVV_Easy_Programing]

Update:

CHANGE LOG (29/10/2016):
            V 1.3.0.0   VVV: Managed redirected film pages in search mode. Added search stored URL (if present) in 'GetDownloadURL' function.
Attached the new version.

Thanks  jippo (jdr___@hotmail.com) for the alert.

(Edito: New versions down)

[Am-rA]

  tnks