English > Scripts and Templates
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
--- 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