AllMovie.com_new movie script

English > Scripts and Templates

<< < (21/22) > >>

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

--- Quote from: Ivek23 on October 16, 2015, 06:06:23 pm ---
--- Quote from: afrocuban on October 16, 2015, 04:13:00 pm ---Hello Ivek23,

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

Thank you in advance.
--- End quote ---

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: --- //~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);
--- End code ---

The year has also done the same way as Title.

--- Code: --- // ~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 + ')');
--- End code ---

If this is not what we would like, then please give an example to make it easier to explain and help.
--- End quote ---

even this does not

--- Quote from: Ivek23 on October 16, 2015, 07:28:30 pm ---Try like this:

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

This is how it should be in the script:

--- Code: --- //~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 + ')');
--- End code ---

I did not tested, but it should work.
--- End quote ---

but this should however be fine

--- Code: --- //~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);
--- End code ---

This is how it should be in the script:

--- Quote from: Ivek23 on October 16, 2015, 07:28:30 pm ---Try like this:

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

This is how it should be in the script:

--- Code: --- //~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 + ')');
--- End code ---

--- End quote ---

afrocuban:
Ivek,

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

Wish you all the best.

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

Ivek23:

--- Quote from: afrocuban on October 17, 2015, 10:18:55 am ---Ivek,

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

Wish you all the best.

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

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

Ivek23:

--- Quote from: Ivek23 on October 26, 2017, 07:07:23 am ---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
--- End quote ---

--- Quote from: Ivek23 on October 15, 2017, 08:45:43 am ---For all guests:

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

Ivek23:

--- Quote from: Ivek23 on November 27, 2023, 07:12:46 pm ---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
--- End quote ---

Navigation

[0] Message Index

[#] Next page

[*] Previous page

Go to full version