2541
Support / Re: Where is PVD Skin Engine Manual
« on: April 25, 2010, 08:29:52 am »
Thank you for this.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
//Aka
AddFieldValue(mfAka, TextBetween(HTML, '<span>AKA</span>', '</table>', True, curPos));
//Box office
curPos := PosFrom('<span>Box office</span>', HTML, EndPos);
if curPos > 0 then begin
curPos := PosFrom('<li>', HTML, curPos) + 5;
EndPos := PosFrom('</li>', HTML, curPos);
TmpStr := Copy(HTML, curPos, EndPos - curPos);
curPos := Pos('/', TmpStr);
if curPos > 0 then
Delete(TmpStr, curPos, Length(TmpStr) - curPos + 1);
curPos := Pos(':', TmpStr);
if curPos > 0 then
Delete(TmpStr, curPos, Length(TmpStr) - curPos + 1);
AddCustomFieldValueByName('Money', TmpStr);
end;
//Features (DVD releases)
curPos := PosFrom('<td class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">', HTML, EndPos);
TmpStr := TextBetween(HTML, '<td class="large-list-title" style="padding-top: 13px; padding-bottom: 1px;">', '>View DVD Releases</a></td>', False, curPos);
TmpStr1 := StringReplace(TmpStr, '» <a href=', '', True, True, False);
If TmpStr1 <> '' then
AddFieldValue(mfFeatures, '<link url=' + TmpStr1 + '>DVD Releases</link>');
//DVD Rating
AddCustomFieldValueByName('DVD rating', '0');
curPos := PosFrom('<img src="/img/st_r', HTML, EndPos);
if curPos > 0 then begin
curPos := PosFrom('alt="', HTML, curPos) + 5;
EndPos := PosFrom(' ', HTML, curPos);
AddCustomFieldValueByName('DVD rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));
end else
curPos := EndPos;
//Feature Rating
AddCustomFieldValueByName('Feature rating', '0');
curPos := PosFrom('<img src="/img/st_r', HTML, EndPos);
if curPos > 0 then begin
curPos := PosFrom('alt="', HTML, curPos) + 5;
EndPos := PosFrom(' ', HTML, curPos);
AddCustomFieldValueByName('Feature rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));
//DVD Rating
AddCustomFieldValueByName('DVD rating', '0');
curPos := PosFrom('<img src="/img/st_r', HTML, EndPos);
if curPos > 0 then begin
curPos := PosFrom('alt="', HTML, curPos) + 5;
EndPos := PosFrom(' ', HTML, curPos);
AddCustomFieldValueByName('DVD rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));
end else
curPos := EndPos;
//Feature Rating
AddCustomFieldValueByName('Feature rating', '0');
curPos := PosFrom('<img src="/img/st_r', HTML, EndPos);
if curPos > 0 then begin
curPos := PosFrom('alt="', HTML, curPos) + 5;
EndPos := PosFrom(' ', HTML, curPos);
AddCustomFieldValueByName('Feature rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));
//DVD Rating
AddCustomFieldValueByName('DVD rating', '0');
curPos := PosFrom('<img src="/img/st_r', HTML, EndPos);
if curPos > 0 then begin
curPos := PosFrom('alt="', HTML, curPos) + 5;
EndPos := PosFrom(' ', HTML, curPos);
AddCustomFieldValueByName('DVD rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));
end else
curPos := EndPos;
//Feature Rating
AddCustomFieldValueByName('Feature rating', '0');
curPos := PosFrom('<img src="/img/st_r', HTML, EndPos);
if curPos > 0 then begin
curPos := PosFrom('alt="', HTML, curPos) + 5;
EndPos := PosFrom(' ', HTML, curPos);
AddCustomFieldValueByName('Feature rating', FloatToStr(StrToFloat(Copy(HTML, curPos, EndPos - curPos)) * 2));
You mean you want a script thatalso at this link
http://www.allmovie.com/dvd/100-girls-19609of course if it were possible.
If I ever do want use it for it's intended purpose, I'm sure I'll be happy to replace the link with the actual feature information for the DVD I own.
Next to it is pvd_movie_tabs extra + Modified the xml and txt and pictures Modified Skin
I have Modified with the help of this here AllMovie + (Ivek23)
//Duration
curPos := PosFrom('">', HTML, EndPos) + 2;
EndPos := PosFrom(' ', HTML, curPos);
AddFieldValue(mfDuration, Copy(HTML, curPos, EndPos - curPos));
LogMessage('Duration:' + Copy(HTML, curPos, EndPos - curPos));
//Duration
curPos := PosFrom('">', HTML, EndPos) + 2;
EndPos := PosFrom(' ', HTML, curPos);
AddCustomFieldValueByName('Original Duration', Copy(HTML, curPos, EndPos - curPos));
LogMessage('Duration:' + Copy(HTML, curPos, EndPos - curPos));