Ayuda filmaffinity

[darkemi20]

Buenas.... Primero que nada... Este soft es lo mas que vi...

Ahora, a ver si alguien me puede... ayudar..

Con el scripts de http://www.filmaffinity.com/ que me funciona perfecto... Tengo un solo problema... y debe ser una boludes pero no puedo sacar como hacerlo...

En el reparto = Actors me lo devuelve al catalogo separado... uno debajo del otro y me gustaria que me lo de como el de IMDB separados por coma... como puedo hacer?

Gracias amigos...

[bad4u]

Con el scripts de http://www.filmaffinity.com/ que me funciona perfecto... Tengo un solo problema... y debe ser una boludes pero no puedo sacar como hacerlo...

En el reparto = Actors me lo devuelve al catalogo separado... uno debajo del otro y me gustaria que me lo de como el de IMDB separados por coma... como puedo hacer?

I don't know spanish, but if I got it right.. you want actors list on filmaffinity script separated by comma instead of linebreaks, do you ?

If so, simply search these lines on the script

Code: Select all

    Actors := TextBetween (Line, '">', '</a>') + #13#10;
   while Pos ('stype=cast', Line) > 0 do
            Actors := Actors + TextBetween (Line, '"> ', '</a>') + #13#10;

and then change them to

Code: Select all

    Actors := TextBetween (Line, '">', '</a>');
   while Pos ('stype=cast', Line) > 0 do
            Actors := Actors + ', ' + TextBetween (Line, '"> ', '</a>');

[darkemi20]

Thx....

I have other problem...

before

Trey Parker
Matt Stone
Michael Dean Jacobs
Dian Bachar
Robyn Lynne
Ron Jeremy

After

Trey Parker
, Matt Stone
, Michael Dean Jacobs
, Dian Bachar
, Robyn Lynne
, Ron Jeremy

I have solution?

For

Trey Parker, Dian Bachar, Robyn Lynne Raab, Michael Dean Jacobs, Ron Jeremy, Andrew Kemler, David Dunn, Matt Stone, Toddy Walters, Chasey Lain, Juli Ashton, Masao Maki, Joseph Arsenault, Jeff Schubert, Desi Singh

?_?

thx....

sorry bad english...

[bad4u]

You did not delete the '+ #13#10' from the code :

Code: Select all

Actors := TextBetween (Line, '">', '</a>') + #13#10;

must be

Code: Select all

Actors := TextBetween (Line, '">', '</a>');

Same with the other line. #13#10 in the code means a linebreak.

sorry bad english...

No need to feel sorry.. for sure it's better than my spanish

[darkemi20]

Yeah.... Very thx...

[z3us]

Hi.
I have another question about this script ( filmaffinity ):
The summary of films contains genre e.g (300):
"GÉNERO Y CRÍTICA Aventuras. Acción. Bélico. Cómic / SINOPSIS: Adaptación del cómic de Frank Miller (autor del cómic de "Sin City") sobre la famosa batalla de las Termópilas"

"Aventuras. Acción. Bélico. Cómic" is the genre, and it is repeated in the Category and in the Description fields. The structure in Description field is always this:
Genres / SINOPSIS: Description

Is it possible to delete genres from the description field?
TY

I copy the part of the script I think have to be modified (I dont know how):

Code: Select all

  // Critic
  LineNr := FindLine('GÉNERO Y CRÍTICA', Page, 0);
  if LineNr <> -1 then
  begin
    iL := 6;
    Line := Page.GetString(LineNr + iL);
    LineAux := Page.GetString(LineNr + iL+1);
   
    while LineAux<>'</tr>' do
    begin
        Line := Line+LineAux;
        iL := iL+1;
        LineAux := Page.GetString(LineNr + iL+1);
    end;
   
    HTMLDecode(Line);
    Line := StringReplace(Line, '<br />', #13#10);
    Item := TextBetween (Line, '<td valign="top">','</td>');
    Item := StringReplace (Item, 'á','á');
    Item := StringReplace (Item, 'é','é');
    Item := StringReplace (Item, 'í','í');
    Item := StringReplace (Item, 'ó','ó');
    Item := StringReplace (Item, 'ú','ú');
    Item := StringReplace (Item, 'Á','Á');
    Item := StringReplace (Item, 'É','É');
    Item := StringReplace (Item, 'Í','Í');
    Item := StringReplace (Item, 'Ó','Ó');
    Item := StringReplace (Item, 'Ú','Ú');
    Item := StringReplace (Item, '"','');
    Item := StringReplace (Item, 'ñ','ñ');
    Item := StringReplace (Item, '¿','¿');
    SetField(fieldDescription, Trim(Item));
  end;


   // Category
  LineNr := FindLine('GÉNERO Y CRÍTICA', Page, 0);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr + 6);
    Item := TextBetween (Line, ' / ', ' / ');
   if Length(Item)> 100 then
     begin
        Line := Page.GetString(LineNr + 6);
        Item := TextBetween (Line, '<td valign="top">', ' /');
     end;
    HTMLDecode(Item);
    SetField(fieldCategory, Trim (Item));
   
  end;

[bad4u]

Is it possible to delete genres from the description field?

Sure.

FilmAffinity (ES) version 2.33: http://www.bad4u.741.com/full/FilmAffin ... 8ES%29.ifs (copy link into a NEW browser window !)