FilmAffinity

[maravic]

Muchísimas Gracias por la actualización del script!!!!

[cinecampillos]

He descubierto que con el script actual no se recupera el nombre de la productora por lo que habría que hacer un nuevo cambio en el script.

Code: Select all

// Productor
  LineNr := FindLine(UTF8Encode('<dt>Productora</dt>'), Page, LineNr);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr + 1);
    Item := DeleteTags(TextBetween(Line, '<dd>', '</dd>'));
    Item := LineDecode(Item);
    SetField(fieldProducer, Item);
  end;

Sustituir por:

Code: Select all

// Productor
  LineNr := FindLine(UTF8Encode('<dt>Productora</dt>'), Page, LineNr);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr + 1);
    Item := DeleteTags(TextBetween(Line, '<span>', '</div>'));
    Item := LineDecode(Item);
    SetField(fieldProducer, Item);
  end;

Como puede verse en la línea donde está la función DeleteTags hay dos parámetros equivocados.

[masterchipo]

Es totalmente cierto y no lo había notado.
Edito: al amigo @antp que actualice el script. Falla la productora, lo deja en blanco.

[antp]

Thanks, updated as 3.10

[masterchipo]

Perdón, pero sigue fallando el script, productor y compositor.
Ya no completa ninguno de los dos items.
Ni siquiera con el cambio posteado de mofificación
Gracias

[m2s]

Perdón, pero sigue fallando el script, productor y compositor.
Ya no completa ninguno de los dos items.
Ni siquiera con el cambio posteado de mofificación
Gracias

Sí que falla el productor, que funcionaba bien hasta hace una semana.
El compositor, a mí me funciona correctamente.

[Albher]

Code: Select all

// Productor
  LineNr := FindLine(UTF8Encode('<dt>Productora</dt>'), Page, LineNr);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr + 1);
    Item := DeleteTags(TextBetween(Line, '<span>', '</div>'));
    Item := LineDecode(Item);
    SetField(fieldProducer, Item);
  end;

A mi me ha funcionado cambiar +1 por +2

Code: Select all

// Productor
  LineNr := FindLine(UTF8Encode('<dt>Productora</dt>'), Page, LineNr);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr + 2);
    Item := DeleteTags(TextBetween(Line, '<span>', '</div>'));
    Item := LineDecode(Item);
    SetField(fieldProducer, Item);
  end;

[antp]

Thanks, updated

[m2s]

Code: Select all

// Productor
  LineNr := FindLine(UTF8Encode('<dt>Productora</dt>'), Page, LineNr);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr + 1);
    Item := DeleteTags(TextBetween(Line, '<span>', '</div>'));
    Item := LineDecode(Item);
    SetField(fieldProducer, Item);
  end;

A mi me ha funcionado cambiar +1 por +2

Code: Select all

// Productor
  LineNr := FindLine(UTF8Encode('<dt>Productora</dt>'), Page, LineNr);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr + 2);
    Item := DeleteTags(TextBetween(Line, '<span>', '</div>'));
    Item := LineDecode(Item);
    SetField(fieldProducer, Item);
  end;

Muchas gracias!

[masterchipo]

A mí no me funcionaba.
A pertir del nuevo script 3.11 entonces sí.
Muchas gracias ahora todo ha vuelto a la normalidad