AllMovie.com_new movie script

[Ivek23]

OK, now I understand what and how the thing looked like. I'm sorry, last night I did not 100% of the stuff because I night vision a little teases (I see worse because the eyes are too tired).

OK, now could be the right solution:

not this one

Hello Ivek23,

Is there a way NOT to import year as a part of Title, just Title?

Thank you in advance.

Why?
That's already in the script is done so that the Title-free year in the normal field as well as in the "Title" custom field.

Code: [Select]

//~mfTitle~ or ~Title~

 curPos := Pos('<title>', HTML) + Length('<title>');
 if Pos(') - ', HTML) > 0 then
endPos := PosFrom(') - ', HTML, curPos)-6
 else
endPos := PosFrom(' -  | ', HTML, curPos);
TmpStr1 := Copy(HTML, curPos, endPos - curPos);
AddFieldValue(mfTitle, TmpStr1);
AddFieldValue(mfOrigTitle, TmpStr1);
Title := Copy(HTML, curPos, endPos - curPos);
Title1 := Copy(HTML, curPos, endPos - curPos);

 if Pos(') - ', HTML) > 0 then
endPos := PosFrom(') - ', HTML, curPos)+1
 else
endPos := PosFrom(' -  | ', HTML, curPos);
TmpStr1 := Copy(HTML, curPos, endPos - curPos);
AddCustomFieldValueByName('Title', TmpStr1);
The year has also done the same way as Title.

Code: [Select]

// ~mfYear~ or ~Year~
 
 curPos := Pos('<span class="release-year">', HTML) + Length('<span class="release-year">');
 if Pos('</span>        </h2>', HTML) > 0 then
endPos := PosFrom('</span>        </h2>', HTML, curPos);
TmpStr2 := Copy(HTML, curPos, endPos - curPos);

  if TmpStr2 = '0' then
TmpStr2 := '';
TmpStr2 := StringReplace(TmpStr2, '(', '', True, True, True);
TmpStr2 := StringReplace(TmpStr2, ')', '', True, True, True);
AddFieldValue(mfYear, TmpStr2);
AddCustomFieldValueByName('Year', TmpStr2);

  if TmpStr2 = '' then
TmpStr2 := 'year unknown';
 LogMessage(' Parsing: ' + TmpStr1 + '(' + TmpStr2 + ')');
If this is not what we would like, then please give an example to make it easier to explain and help.

even this does not

Try like this:

AddCustomFieldValueByName('Title', TmpStr1 + '(' + TmpStr2 + ')');

This is how it should be in the script:

Code: [Select]

//~mfTitle~ or ~Title~

 curPos := Pos('<title>', HTML) + Length('<title>');
 if Pos(') - ', HTML) > 0 then
endPos := PosFrom(') - ', HTML, curPos)-6
 else
endPos := PosFrom(' -  | ', HTML, curPos);
TmpStr1 := Copy(HTML, curPos, endPos - curPos);
AddFieldValue(mfTitle, TmpStr1);
AddFieldValue(mfOrigTitle, TmpStr1);
Title := Copy(HTML, curPos, endPos - curPos);
Title1 := Copy(HTML, curPos, endPos - curPos);

 if Pos(') - ', HTML) > 0 then
endPos := PosFrom(') - ', HTML, curPos)+1
 else
endPos := PosFrom(' -  | ', HTML, curPos);
TmpStr1 := Copy(HTML, curPos, endPos - curPos);
//AddCustomFieldValueByName('Title', TmpStr1);
.
.
.
 // ~mfYear~ or ~Year~
 
 curPos := Pos('<span class="release-year">', HTML) + Length('<span class="release-year">');
 if Pos('</span>        </h2>', HTML) > 0 then
endPos := PosFrom('</span>        </h2>', HTML, curPos);
TmpStr2 := Copy(HTML, curPos, endPos - curPos);

  if TmpStr2 = '0' then
TmpStr2 := '';
TmpStr2 := StringReplace(TmpStr2, '(', '', True, True, True);
TmpStr2 := StringReplace(TmpStr2, ')', '', True, True, True);
AddFieldValue(mfYear, TmpStr2);
// AddCustomFieldValueByName('Year', TmpStr2);

  if TmpStr2 = '' then
TmpStr2 := 'year unknown';
 LogMessage(' Parsing: ' + TmpStr1 + '(' + TmpStr2 + ')');

AddCustomFieldValueByName('Title', TmpStr1 + '(' + TmpStr2 + ')');
I did not tested, but it should work.

but this should however be fine

Code: [Select]

//~mfTitle~ or ~Title~

 curPos := Pos('<title>', HTML) + Length('<title>');
 if Pos(') - ', HTML) > 0 then
endPos := PosFrom(') - ', HTML, curPos)-6
 else
endPos := PosFrom(' -  | ', HTML, curPos);
TmpStr1 := Copy(HTML, curPos, endPos - curPos);
AddFieldValue(mfTitle, TmpStr1);
AddFieldValue(mfOrigTitle, TmpStr1);
Title := Copy(HTML, curPos, endPos - curPos);
Title1 := Copy(HTML, curPos, endPos - curPos);

// if Pos(') - ', HTML) > 0 then
// endPos := PosFrom(') - ', HTML, curPos)+1
// else
// endPos := PosFrom(' -  | ', HTML, curPos);
// TmpStr1 := Copy(HTML, curPos, endPos - curPos);
AddCustomFieldValueByName('Title', TmpStr1);
This is how it should be in the script:

Try like this:

AddCustomFieldValueByName('Title', TmpStr1 + '(' + TmpStr2 + ')');

This is how it should be in the script:

Code: [Select]

//~mfTitle~ or ~Title~

 curPos := Pos('<title>', HTML) + Length('<title>');
 if Pos(') - ', HTML) > 0 then
endPos := PosFrom(') - ', HTML, curPos)-6
 else
endPos := PosFrom(' -  | ', HTML, curPos);
TmpStr1 := Copy(HTML, curPos, endPos - curPos);
AddFieldValue(mfTitle, TmpStr1);
AddFieldValue(mfOrigTitle, TmpStr1);
Title := Copy(HTML, curPos, endPos - curPos);
Title1 := Copy(HTML, curPos, endPos - curPos);

// if Pos(') - ', HTML) > 0 then
// endPos := PosFrom(') - ', HTML, curPos)+1
// else
// endPos := PosFrom(' -  | ', HTML, curPos);
// TmpStr1 := Copy(HTML, curPos, endPos - curPos);
AddCustomFieldValueByName('Title', TmpStr1);
.
.
.
 // ~mfYear~ or ~Year~
 
 curPos := Pos('<span class="release-year">', HTML) + Length('<span class="release-year">');
 if Pos('</span>        </h2>', HTML) > 0 then
endPos := PosFrom('</span>        </h2>', HTML, curPos);
TmpStr2 := Copy(HTML, curPos, endPos - curPos);

  if TmpStr2 = '0' then
TmpStr2 := '';
TmpStr2 := StringReplace(TmpStr2, '(', '', True, True, True);
TmpStr2 := StringReplace(TmpStr2, ')', '', True, True, True);
AddFieldValue(mfYear, TmpStr2);
// AddCustomFieldValueByName('Year', TmpStr2);

  if TmpStr2 = '' then
TmpStr2 := 'year unknown';
 LogMessage(' Parsing: ' + TmpStr1 + '(' + TmpStr2 + ')');

[afrocuban]

Ivek,

Great tip and work as usual! Thank you so much for being there for us! 

Wish you all the best.

Note: This is to relate to this forum topic, if someone is interested in with it.

[Ivek23]

Ivek,

Great tip and work as usual! Thank you so much for being there for us! 

Wish you all the best.

Note: This is to relate to this forum topic, if someone is interested in with it.

Thank you, good to hear that now everything is fine and that it works.

[Ivek23]

Important news:

AllMovie.com_new script don't work anymore and AllMovie.com is the next Web site that is passed to a secure https:// connection.

AllMovie.com works with AllMovie.com_new_HTTPS script version 1.1.2.6 or  AllMovie.com_new_HTTPS script version 1.1.2.5 again.

For more information, read this topic Proxomitron - next https solution for PVD in the Development section and Allmovie.com https topic in the
Support section

For all guests:

You can find a link to download the script in AllMovie.com_new_HTTPS Movie Links topic.

[Ivek23]

Here is the url link to the new AllMovie.com HTTPS script beta for PVD MOD versions.

http://www.videodb.info/forum_en/index.php/topic,4109.msg21882.html#msg21882

[Ivek23]

Announcement:

AllMovie.com[EN][HTTPS] script don't work anymore.

Cause:

The massive changes in the source code of movies web pages.

All AllMovie.com_new scripts also don't work anymore.

Some items can no longer be found because they have been removed. The new look of the AllMovie.com website is also, if you ask me, generally desperate and unlikable.

The AllMovie.com[EN][HTTPS] script will also no longer be updated due to massive changes to the AllMovie.com website source code and certain changes can no longer be added to the script.

[afrocuban]

Thanks Ivek. I just found out so, and I knew I could expect such a message from you here, understandably. Thanks for your work on this script so far, it was great while it lasted!

[Ivek23]

Thanks Ivek. I just found out so, and I knew I could expect such a message from you here, understandably. Thanks for your work on this script so far, it was great while it lasted!

Welcome.