2481
Scripts and Templates / Re: Export template to view the internal "Database Record ID"
« on: July 09, 2010, 01:36:46 pm »
Thank you for this one exports Database Record ID.
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.
With me is the same as using in XP Pro SP 3.QuoteEvery template using UTF8BOM generates three characters (the byte order mark) at the beginning of the exported file.
So that's why I was getting "?»?" at the beginning of my files. I'm glad I'm not alone.
URL {#StringReplace '{%value=url}' 'http://www.imdb.com/title/' ''}
I will get full url address to IMDB,URL tt0147800/and now is just like that..
http://www.allmovie.com/work/10-things-i-hate-about-you-177526
http://www.moviemeter.nl/film/714
http://www.mymovies.it/dizionario/recensione.asp?id=32867
http://www.zelluloid.de/filme/index.php3?id=664
Images:
----------------------------------------------------------
Screenshots: {%value=screenshots params="full" template="pages\screens.ptm"}
Front cover: {%value=froncover}
CD cover: {%value=cdcover}
Poster: {%value=poster}
that I got into film images folder Front Cover,CD cover and several poster images. Now I have a single poster image in images folder, I would like I have the all images for a single movie.I tried the code (/ / Review, / / Features (DVD releases) and / / Description) but no success.I did it just change the custom field to another custom field, not the text in the second custom field.
Similar Works and Other Related Works for example at this site: http://www.allmovie.com/work/the-matrix-177524I tried the code (/ / Review, / / Features (DVD releases) and / / Description) but no success.
procedure ParseCast(HTML : String);
var
curPos, EndPos : Integer;
Name, Role, URL : String;
begin
curPos := Pos('<div id="results-table">', HTML);
if curPos < 1 then
Exit;
//Actors
EndPos := curPos;
curPos := PosFrom('http://www.allmovie.com/artist/', HTML, curPos);
while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin
EndPos := PosFrom('">', HTML, curPos);
URL := Copy(HTML, curPos, EndPos - curPos);
curPos := EndPos + 2;
EndPos := PosFrom('</a>', HTML, curPos);
Name := Copy(HTML, curPos, EndPos - curPos);
curPos := PosFrom('<em>', HTML, EndPos);
if curPos > 0 then begin
curPos := curPos + 4;
EndPos := PosFrom('</em>', HTML, curPos);
Role := Trim(Copy(HTML, curPos, EndPos - curPos));
end else begin
Role := '';
curPos := EndPos;
end;
AddMoviePerson(Name, '', Role, URL, ctActors);
if curPos > 0 then
curPos := PosFrom('http://www.allmovie.com/artist/', HTML, curPos)
else
Exit;
end;
end;
I replaced it with this codeprocedure ParseCast(HTML : String);
var
curPos, EndPos : Integer;
TmpStr : String;
Name, Role, URL : String;
begin
curPos := Pos('<div id="results-table">', HTML);
if curPos < 1 then
Exit;
TmpStr := '';
EndPos := curPos;
curPos := PosFrom('http://www.allmovie.com/artist/', HTML, curPos);
while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin
EndPos := PosFrom('">', HTML, curPos);
URL := Copy(HTML, curPos, EndPos - curPos);
curPos := EndPos + 2;
EndPos := PosFrom('</a>', HTML, curPos);
Name := Copy(HTML, curPos, EndPos - curPos);
curPos := PosFrom('<em>', HTML, EndPos);
if curPos > 0 then begin
curPos := curPos + 4;
EndPos := PosFrom('</em>', HTML, curPos);
Role := Trim(Copy(HTML, curPos, EndPos - curPos));
end else begin
Role := '';
curPos := EndPos;
end;
if TmpStr <> '' then
TmpStr := TmpStr + #13;
if URL <> '' then
TmpStr := TmpStr + '<link url="' + URL + '">';
TmpStr := TmpStr + Name;
if Role <> '' then
TmpStr := TmpStr + ' - ' + Role;
if URL <> '' then
TmpStr := TmpStr + '</link>';
if curPos > 0 then
curPos := PosFrom('http://www.allmovie.com/artist/', HTML, curPos)
else
Exit;
end;
AddCustomFieldValueByName('Actors', TmpStr);
end;
//Get URL
EndPos := Pos('">Overview</a>', HTML);
if EndPos > 0 then begin
curPos := PrevPos('<a href="', HTML, EndPos);
AddFieldValue(mfURL, Copy(HTML, curPos + 9, EndPos - curPos - 9));
end else
AddFieldValue(mfURL, MovieURL);
//Get URL
EndPos := Pos('">Overview</a>', HTML);
if EndPos > 0 then begin
curPos := PrevPos('<a href="', HTML, EndPos);
AddFieldValue(mfURL, Copy(HTML, curPos + 9, EndPos - curPos - 9));
end else
//AddFieldValue(mfURL, MovieURL); // Changed to:
AddCustomFieldValueByName('Url', '<link url="' + MovieURL + '">' + MovieURL + '</link>');
AddFieldValue(mfURL, MovieURL); // Changed to:
AddCustomFieldValueByName('AMG Url', MovieURL);
changed to originalAddFieldValue(mfURL, MovieURL);
//Get URL
EndPos := Pos('">Overview</a>', HTML);
if EndPos > 0 then begin
curPos := PrevPos('<a href="', HTML, EndPos);
AddFieldValue(mfURL, Copy(HTML, curPos + 9, EndPos - curPos - 9));
end else
//AddFieldValue(mfURL, MovieURL); // Changed to:
AddCustomFieldValueByName('Url', '<link url="' + MovieURL + '">' + MovieURL + '</link>');
If you remove AddFieldValue(mfURL, MovieURL);, the URL will not be added to the URL field and the script will not be able to update the record without searching for it again.
//Get URL
EndPos := Pos('">Overview</a>', HTML);
if EndPos > 0 then begin
curPos := PrevPos('<a href="', HTML, EndPos);
AddFieldValue(mfURL, Copy(HTML, curPos + 9, EndPos - curPos - 9));
end else
//AddFieldValue(mfURL, MovieURL); // Changed to:
AddCustomFieldValueByName('Url', '<link url="' + MovieURL + '">Url For Movie</link>');
works properly but can not display AllMovie Url. //Get URL
EndPos := Pos('">Overview</a>', HTML);
if EndPos > 0 then begin
curPos := PrevPos('<a href="', HTML, EndPos);
AddFieldValue(mfURL, Copy(HTML, curPos + 9, EndPos - curPos - 9));
end else
//AddFieldValue(mfURL, MovieURL); // Changed to:
AddCustomFieldValueByName('Url', '<link url="' + MovieURL + '">' + MovieURL + '</link>');
is working properly and it appears that AllMovie Url.If you remove AddFieldValue(mfURL, MovieURL);, the URL will not be added to the URL field and the script will not be able to update the record without searching for it again. I suppose you could modify the script to use the new field, but I don't have a clue how to do that.
To display a URL as a hyperlink, use a memo field.
I suppose you could modify the script to use the new field, but I don't have a clue how to do that.
If you remove AddFieldValue(mfURL, MovieURL);, the URL will not be added to the URL field and the script will not be able to update the record without searching for it again.
To display a URL as a hyperlink, use a memo field.Only by hand not automatically.
Hi all.A similar problem is described here.
I think PVD could be the answer to all my movie database prayers, thx.
I got some problems though.
In people mode when sorting by date in tree view, PVD shows me the date folders in the left window, fine.
But I can't expand any of them, and when I try to expand the top folder, I get this error:
conversion error from string "13-06-2010" Overflow occurred during data type conversion. Error Code 14.
I also get the "cannot read" memory error in viddb.exe when exiting PVD 0.9.9.21 (all updated)
This only happens, when using TheMovieDB
But when storing media on HD, I am streaming to xbox, so I think this way may not work.Sorry, this (xbox) unfortunately I have no experiences.
I am thinking of having movies in one directory and a total reliance on PVD for managing them.
( I am interested in knowing how others store their media on Hard drives and how they then
catalog them in PVD).
to an external hard disk arranged by category. //Get URL
EndPos := Pos('">Overview</a>', HTML);
if EndPos > 0 then begin
curPos := PrevPos('<a href="', HTML, EndPos);
AddFieldValue(mfURL, Copy(HTML, curPos + 9, EndPos - curPos - 9));
end else
//AddFieldValue(mfURL, MovieURL); // Changed to:
AddCustomFieldValueByName('AMG Url', '<link url="' + MovieURL + '">Url For Movie</link>');
or//Get URL
EndPos := Pos('">Overview</a>', HTML);
if EndPos > 0 then begin
curPos := PrevPos('<a href="', HTML, EndPos);
AddFieldValue(mfURL, Copy(HTML, curPos + 9, EndPos - curPos - 9));
end else
//AddFieldValue(mfURL, MovieURL); // Changed to:
AddCustomFieldValueByName('Url', '<link url="' + MovieURL + '">Url For Movie</link>');
//Get URL
EndPos := Pos('">Overview</a>', HTML);
if EndPos > 0 then begin
curPos := PrevPos('<a href="', HTML, EndPos);
AddFieldValue(mfURL, Copy(HTML, curPos + 9, EndPos - curPos - 9));
end else
//AddFieldValue(mfURL, MovieURL); // Changed to:
AddCustomFieldValueByName('AMG Url', MovieURL);
//Get URL
EndPos := Pos('">Overview</a>', HTML);
if EndPos > 0 then begin
curPos := PrevPos('<a href="', HTML, EndPos);
AddFieldValue(mfURL, Copy(HTML, curPos + 9, EndPos - curPos - 9));
end else
//AddFieldValue(mfURL, MovieURL); // Changed to:
AddCustomFieldValueByName('Url', '<link url="' + MovieURL + '">Url For Movie</link>');
like this added together, I have tested ,work, //Get URL
EndPos := Pos('">Overview</a>', HTML);
if EndPos > 0 then begin
curPos := PrevPos('<a href="', HTML, EndPos);
AddFieldValue(mfURL, Copy(HTML, curPos + 9, EndPos - curPos - 9));
end else
//AddFieldValue(mfURL, MovieURL); // Changed to:
.AddCustomFieldValueByName('AMG Url', '<link>'+ MovieURL + TmpStr1 + '</link>');
.