English > Scripts and Templates
AllMovie.com_new movie script
rick.ca:
Both this and the updated AllRovi script work great. Thanks very much for the work you do on these and other scripts, Ivek.
Ivek23:
--- Quote from: rick.ca on December 17, 2012, 02:32:34 am ---Both this and the updated AllRovi script work great. Thanks very much for the work you do on these and other scripts, Ivek.
--- End quote ---
Thank you, Rick.
I will do more tests to see if it will be something in need of repair, then also available via the auto-update system.
Ivek23:
Here is the final AllMovie.com_new script.
Script AllMovie.com_final is attached.
[attachment deleted by admin]
Ivek23:
--- Quote ---
--- Quote ---This script has now been released and is available via the program's auto-update system. Run Help > Check for updates and choose AllMovie.com_new from the list.
--- End quote ---
--- Quote ---Post any comments or questions to AllMovie.com_new Script is can here.
--- End quote ---
--- End quote ---
Ivek23:
Anyone who wants to change the current date and time updates, here is a solution, example is for AllMovie.com_new movie script:
I did not like the last part of the code for
--- Code: ---//Date ~Updated~ (choose simple or verbose version)
//AddCustomFieldValueByName('Updated', DateToStr(CurrentDateTime)); // Simple
//AddCustomFieldValueByName('Updated', DateToStr(CurrentDateTime) + ' at ' + TimeToStr(CurrentDateTime)); // Verbose
AddCustomFieldValueByName('Updated', DateToStr(CurrentDateTime) + ' at ' + TimeToStr(CurrentDateTime) + ' • ' + SCRIPT_NAME + ' ' + SCRIPT_VERSION); // Annoying
//Get ~mfURL~ or ~URL~
--- End code ---
Date was previously seen such:
--- Code: ---2013-01-13 at 14:17:50
--- End code ---
So I switched over to that part of the code
--- Code: ---procedure ParseMovie(MovieURL : String; HTML : String);
var
curPos, endPos, topPos, L, H, R : Integer;
Date, Name, URL, TmpStr, TmpStr1, TmpStr2, TmpStr3, TmpStr4, TmpStr5 : String;
DateParts: TWideArray;
begin
//Date ~Updated~ (choose simple or verbose version)
Date := DateToStr(CurrentDateTime);
if Date <> '' then
begin
ExplodeString(Date, DateParts, '-');
Date := DateParts[2] +'.'+ DateParts[1] +'.'+ DateParts[0];
AddCustomFieldValueByName('Updated', Date);
//AddCustomFieldValueByName('Updated', Date + ' at ' + TimeToStr(CurrentDateTime)); // Verbose
AddCustomFieldValueByName('Updated', Date + ' at ' + TimeToStr(CurrentDateTime) + ' • ' + SCRIPT_NAME + ' ' + SCRIPT_VERSION); // Annoying
end else
LogMessage('date not found');
//AddCustomFieldValueByName('Updated', DateToStr(CurrentDateTime)); // Simple
//AddCustomFieldValueByName('Updated', DateToStr(CurrentDateTime) + ' at ' + TimeToStr(CurrentDateTime)); // Verbose
//AddCustomFieldValueByName('Updated', DateToStr(CurrentDateTime) + ' at ' + TimeToStr(CurrentDateTime) + ' • ' + SCRIPT_NAME + ' ' + SCRIPT_VERSION); // Annoying
//Get ~mfURL~ or ~URL~
--- End code ---
Date now looks like this:
--- Code: ---13.01.2013 at 14:17:50
--- End code ---
Navigation
[0] Message Index
[#] Next page
[*] Previous page
Go to full version