2001
Scripts and Templates / Re: Tatort Episoden DE
« on: December 19, 2011, 07:48:16 pm »
Nice and good work.
Show Posts
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.
2002
Scripts and Templates / Re: Filmstarts_DE (movie,screens.,poster)
« on: December 19, 2011, 07:47:19 pm »
Nice work.
2003
Scripts and Templates / Re: Zelluloid.de (Movies)
« on: December 19, 2011, 07:46:51 pm »
Nice work.
2004
Development / Re: Script for egafd.com
« on: December 19, 2011, 07:45:16 pm »
I can not connect Birthday and TabCountry info data into a single, into a single piece of code to connect to the Birthplace box transferred data for the country and year of birth together.
Should look something like as attached code:
You can somehow arrange to make this work, nice please.
Should look something like as attached code:
Code: [Select]
if (Birthday <> '') AND (TabCountry[I] <> '') then
AddFieldValue(pfBirthplace, Birthday + ' b. ' + TabCountry[I]);
I := High(TabCountry);orCode: [Select]
if (Birthplace <> '') AND (TabCountry[I] <> '') then
AddFieldValue(pfBirthplace, Birthplace + ' b. ' + TabCountry[I]);
I := High(TabCountry);You can somehow arrange to make this work, nice please.
2005
Development / Re: Script for egafd.com
« on: December 19, 2011, 06:07:45 pm »
Countries that are currently required for TabCountry :
Code: [Select]
TabCountry := ['Austrian', 'Belgian', 'Brazilian', 'Bulgarian', 'Belarusian', 'Canadian'
, 'Cuban', 'Colombian', 'Czech', 'Dutch', 'Danish', 'English', 'Estonian'
, 'Ecuadorian', 'French', 'German', 'Greek', 'Hungarian', 'Indian'
, 'Italian', 'Kyrgyzstan', 'Latvian', 'Lithuanian', 'Maori', 'Moldovan'
, 'Netherlands', 'Norwegian', 'Portuguese', 'Polish', 'Romanian', 'Russian'
, 'Slovak', 'Spanish', 'Swiss', 'Swedish', 'Venezuelan', 'Ukrainian'
, 'Yugoslavian', 'French-Canadian', 'French (Algerian origin)'
, 'French, Moroccan origin', 'French (Moroccan origin)', 'French of Vietnamese origin'
, 'French, Vietnamese origin,', 'Russian / Kyrgyzstan', 'Yugoslavian/French'
, 'exit'];
2006
Development / Re: Script for egafd.com
« on: December 19, 2011, 02:16:18 pm »
Code for birthday and birthplace :Code: [Select]procedure ParsePeople(URL : String; HTML : String);
///////////////////////////////////////////////////////////////////////////////////////////////////
var curpos, endpos, PosStart, PosEnd, debug_Pos1 : Integer; //
actPosstart, actposstart2, actPosStart3, actposend, UrlposStart, UrlposEnd, difPos : Integer;//
Pseudo, Born, Lien, URL1, Name, Title, Year, Av, Role, Notes, Note, tmpYear, OrigT : String;
posBorn, Country, Birthday : string;
I, counter : integer; //
///////////////////////////////////////////////////////////////////////////////////////////////////
begin
AddFieldValue(pfGenre, 'EGAFD');
// URL: //
Addfieldvalue(pfURL,URL);
// BORN: //
curpos := Pos('<th>Notes</th>', HTML);
endpos := curpos;
While (curpos > 0) AND (curpos < Posfrom('</tr>', HTML, EndPos)) do begin
endpos := curpos;
PosStart := PosFrom('<td><ul class="list"><li>', HTML, endpos);
PosEnd := PosFrom('</li></ul></td>', HTML, PosStart);
Born := Trim(Copy(HTML, (PosStart + 25), (PosEnd - PosStart - 25)));
Born := Uppercase(Copy(Born,0,1)) + Copy(Born,2, length(Born)-1) + #13;
//LogMessage('BORN :' + Born);
curpos := posfrom('<td><ul class="list"><li>', HTML, posend);
//AddFieldValue(pfBirthplace, Born);
LogMessage('BORN :' + Born);
end;
/// BirthDay:
ExplodeString(Born, PartBorn, #46);
If High(partBorn) > 0 then
Begin
logmessage('birhtday commence')
For I := Low(partBorn) to High(partBorn) do
Begin
PartBorn[I] := Trim(partBorn[I]);
End;
For I := Low(partBorn) to High(partBorn) do
Begin
If (Lowercase(partBorn[I]) = 'b') OR (Copy(partBorn[I], length(partBorn[I])-2,3) = ', b') then
BirthDay := '01/01/' + Copy(partBorn[I+1], 0, 4);
end;
end;
If BirthDay <> '' then AddFieldValue(pfBirthday, BirthDay);
// Birthplace:
TabCountry := ['Hungarian', 'French', 'Russian', 'Norwegian' , 'Austrian', 'Spanish', 'Bulgarian'
, 'English', 'German', 'Belgian', 'Canadian', 'Danish', 'Italian', 'Greek'
, 'Portuguese', 'Polish', 'Kyrgyzstan', 'Czech', 'exit'];
I := 0;
For I := Low(TabCountry) to High(Tabcountry) do
Begin
If Pos((copy(TabCountry[I], 1 ,Length(TabCountry[I])-1)),Born) > 0 then
Begin
Addfieldvalue(pfBirthPlace, TabCountry[I]);
I := High(TabCountry);
end;
End;
// AKA: //
curpos := Pos('<th>Pseudonyms</th>', HTML);
endpos := curpos;
While (curpos > 0) AND (curpos < Posfrom('<th>Films</th>', HTML, EndPos)) do begin
endpos := curpos;
PosStart := PosFrom('class="acta">', HTML, endpos);
PosEnd := PosFrom('</span>', HTML, PosStart);
Pseudo := Trim(Copy(HTML, (PosStart + 13), (PosEnd - PosStart - 13)));
LogMessage('AKA :' + Pseudo);
curpos := posfrom('class="acta">', HTML, posend);
AddFieldValue(pfAltnames, Pseudo);
end;
//////////
// BIO: //
curpos := Pos('<th>Films</th>', HTML);
LogMessage('Films readout');
if curPos > 0 then begin
Lien := '----- Filmographie (EGAFD) -----' + #09;
EndPos := curPos;
while (curPos > 0) AND (curPos < PosFrom('</ul>', HTML, EndPos)) do begin
EndPos := curPos; // Set last position to actual position
/// Get URL: ///
UrlPosStart := PosFrom('<a href="', HTML, EndPos); // search for url start
UrlPosEnd := PosFrom('" class="', HTML, UrlPosStart); // search for url end
URL1 := BASE_URL + Copy(HTML, UrlPosStart + 9, (UrlPosEnd - UrlPosStart - 9) );
LogMessage(URL1);
/// Get Name: ///
actPosStart := PosFrom('<a href="', HTML, EndPos); // search for url start;
actPosStart2 := PosFrom('">', HTML, actPosStart)
actPosEnd:=PosFrom('</a>', HTML, actPosStart2); // search for url end
Name := Trim(Copy(HTML, (actPosStart2 + 2), (actPosEnd - actPosStart2 - 2) ));
LogMessage(Name);
debug_pos1:=Pos('(',Name);
if debug_pos1 >0 then
Name := Copy(Name,0,debug_pos1-1);
LogMessage(Name);
/// Get Title (for movies): ///
actPosStart := PosFrom('<a href="', HTML, EndPos); // search for url start;
actPosStart2 := PosFrom('">', HTML, actPosStart)
actPosEnd:=PosFrom('</a>', HTML, actPosStart2); // search for url end
Title := Trim(Copy(HTML, (actPosStart2 + 2), (actPosEnd - actPosStart2 - 2) ));
LogMessage(Title);
debug_pos1:=Pos('(',Title);
if debug_pos1 >0 then
Title := Copy(Title,0,debug_pos1-1);
LogMessage(Title);
/// If Original: ///
actposstart := actposEnd + 5;
actposstart := PosFrom('">', HTML, actposstart) + 2;
actPosEnd := PosFrom('</', HTML, actPosstart) - 1;
If copy(HTML, actposstart, 3) = 'alt' then
OrigT := Copy(HTML, (actPosstart + 22),(actPosEnd-actPosStart-21))
else
OrigT := Title;
/// Notes: ///
actPosStart := PosFrom('<a href="', HTML, EndPos);
actPosStart2 := PosFrom('</a>', HTML, actPosStart);
Av := Trim(Copy(HTML, (actposstart2 + 5), 1));
logmessage('AV : ' + Av);
If Av = '<' then begin
actposStart2 := (actposstart2 + 5); //Step to go after "</a>"
actposstart3 := PosFrom('>', HTML, actposStart2);
actposend := PosFrom('<', HTML, actposstart3);
Notes := Trim(Copy(HTML, (actposstart3 +1), (actposend - actposStart3 - 1)));
logmessage('Notes :' + Notes);
end;
debug_pos1:=Pos('(',Notes);
if debug_pos1 >0 then
Year:= Copy(Notes,0,debug_pos1-1);
LogMessage(Notes);
/// Get Year & Note: ///
tmpYear := Copy(Notes, 0, 2);
logMessage('tmpYear :' + tmpYear);
Case tmpYear of
'c.' : Begin
Year := Copy(Notes,4,4);
Note := '';
end;
'19', '20' : Begin
If Copy(Notes,0,5) = 's' {OR Copy(Notes,0,5) = '?'} then begin
Year := Copy(Notes,0,5);
Note := Copy(Notes,7, Length(Notes)-6);
end
else begin
Year := Copy(Notes,0,4);
Note := Copy(Notes,6, Length(Notes)-5);
end;
If Copy(Notes,0,5) = '?' then begin
Year := Copy(Notes,0,5);
Note := Copy(Notes,7, Length(Notes)-6);
end
else begin
Year := Copy(Notes,0,4);
Note := Copy(Notes,6, Length(Notes)-5);
end;
end;
else begin
Year := '';
Note := Notes;
end;
end;
logmessage('Year :' + Year);
logmessage('Note :' + Note);
/// Get Role: ///
difpos := (PosFrom('<i>', HTML, (actposEnd-1))+4) - actposend;
logmessage('DIFFERENCE : ' + intToStr(difpos));
If difpos > 0 then begin
If difpos < 200 then begin
actPosStart := PosFrom('<i>', HTML, (actposend-1)) + 4;
actPosEnd:=PosFrom('</i></li>', HTML, actPosStart) - 1;
Role := Trim(Copy(HTML, actposStart, (actPosEnd - actPosStart)));
Role := StringReplace(Role, ';', ' - ', true, false, true);
Role := StringReplace(Role, '/', ' - ', true, false, true);
if Pos(', ', Role) = 1 then Delete(Role, 1, 2);
LogMessage('Role: ' + Role);
debug_pos1:=Pos('(',Role);
if debug_pos1 >0 then
Role:= Copy(Role,0,debug_pos1-1);
LogMessage(Role);
end;
end;
{AddPersonMovie(Trim(OrigT), '', '', Year, LowerCase(URL1), ctActors);} //Add movie in database
/// Total Line: ///
If Lien <> '' then
Lien := Lien + #13;
If URL1 <> '' then begin
If OrigT <> Title then
Lien := Lien + Name
else
Lien := Lien + '<link url="' + URL1 + '">' + Name + '</link>';
end;
If Year <> '' then
Lien := Lien + ' • ' + Year;
If Note <> '' then
Lien := Lien + ' • ' + Note;
If Role <> '' then
Lien := Lien + ' • ' + Role;
LogMessage('LIEN :' + Lien);
curPos := PosFrom('<a href="', HTML, actPosEnd);
end;
//////////
if (Lien <> '') AND (Born = '') then
AddFieldValue(pfBio, Lien);
if (Lien <> '') AND (Born <> '') then
AddFieldValue(pfBio, Born + #13#10 + Lien);
end;
// Photo:
curPos :=Pos('src="/actresses/id/',HTML);
if curPos > 0 then begin
EndPos := PosFrom('" width', HTML, curPos);
PhotoURL := BASE_URL + Copy(HTML, curPos + 5, EndPos - curPos - 5);
LogMessage('URL de la photo: '+ PhotoURL);
{PhotoURL := HTMLToText (PhotoURL);}
AddImageURL(4, PhotoURL);
end
else begin
PhotoURL := '';
end;
end;
In this code for this part of code script does not work:
Code: [Select]
procedure ParsePeople(URL : String; HTML : String);
///////////////////////////////////////////////////////////////////////////////////////////////////
var curpos, endpos, PosStart, PosEnd, debug_Pos1 : Integer; //
actPosstart, actposstart2, actPosStart3, actposend, UrlposStart, UrlposEnd, difPos : Integer;//
Pseudo, Born, Lien, URL1, Name, Title, Year, Av, Role, Notes, Note, tmpYear, OrigT : String;
posBorn, Country, Birthday : string;
I, counter : integer; //
///////////////////////////////////////////////////////////////////////////////////////////////////
When I replace this piece of code with this part of code script now work:
Code: [Select]
procedure ParsePeople(URL : String; HTML : String);
///////////////////////////////////////////////////////////////////////////////////////////////////
var curpos, endpos, PosStart, PosEnd, debug_Pos1 : Integer; //
actPosstart, actposstart2, actPosStart3, actposend, UrlposStart, UrlposEnd, difPos : Integer;//
Pseudo, Born, Lien, URL1, Name, Title, Year, Av, Role, Notes, Note, tmpYear, OrigT : String;
posBorn, Country, Birthday : string;
I, counter : integer;
PartBorn, PartBorn3 : Twidearray;
PartBorn2, TabCountry : twidearray;//
///////////////////////////////////////////////////////////////////////////////////////////////////
2007
Development / Re: Script for egafd.com
« on: December 19, 2011, 12:39:17 pm »
Welcome back.
Moreover, this also partially true, but there is also a solution to this problem that I have found these days in zelluloid_person script as an extra link, a link to the Comment field.
So it could be better info download certain information in the comment box where more so than not, they really belong there.
zelluloid_person script download link
I tried to declare "mfComment = 16;" but no data are transfered!
QuoteMy problem is to write "notes" in field comment and not in field description!
I tried to declare "mfComment = 16;" but no data are transfered!
As the first "mfComment" not yet exist and does not work yet.
Moreover, this also partially true, but there is also a solution to this problem that I have found these days in zelluloid_person script as an extra link, a link to the Comment field.
So it could be better info download certain information in the comment box where more so than not, they really belong there.
zelluloid_person script download link
2009
Scripts and Templates / Re: Kino + Video DE
« on: December 18, 2011, 12:34:51 pm »
kino+video DE movie script does not work, because in procedure checkParsedType these errors:
Parsed_Type not added the following line: URLstr, U_1, U_2: String;
this isParsed is construed at all wrong and I tried to add any of these items,
[attachment deleted by admin]
Parsed_Type not added the following line: URLstr, U_1, U_2: String;
this isParsed is construed at all wrong and I tried to add any of these items,
Code: [Select]
URLs: array of String;
URLstr, U_1, U_2: String;
P: Integer;However, we still reports error in the script.[attachment deleted by admin]
2010
Development / Re: Script for egafd.com
« on: December 17, 2011, 03:47:06 pm »
I added MPAA, I cleaned the script redundant parts of the code whose parts are not necessary for the proper functioning of the script.
egafd_mod10 script for movie attached
[attachment deleted by admin]
egafd_mod10 script for movie attached
[attachment deleted by admin]
2011
Development / Re: Script for egafd.com
« on: December 16, 2011, 04:40:23 pm »
Changes for egafd_mod9 script for movie :
egafd_mod9 script for movie attached
[attachment deleted by admin]
- Corrected DVD code, it now adds DVD information, where information is added to the movie title (by the end of the movie title)
- Country and Studio code I edited so that now the Country and Studio info data are both united in one whole and transferred in Tags box.
egafd_mod9 script for movie attached
[attachment deleted by admin]
2012
Support / Year, Country, Duration for in the movie or people script
« on: December 13, 2011, 06:47:37 pm »
Sorry if already posted the same topic.
I help edit the script (for people), but they are certain problems about data transfer for the year.
I know it helps me a part of this code for example
but it is quite time-consuming work by Whereas this piece of code re-need to write at least a hundred times.
It is necessary to insert all years between 1900 and 2000 .
I wonder if this is possible to edit in a different and more simple way.
I help edit the script (for people), but they are certain problems about data transfer for the year.
I know it helps me a part of this code for example
Code: [Select]
if Pos('1978', TmpStr) > 0 then TmpStr1 := TmpStr1 + 'b. 1978';
TmpStr := StringReplace(TmpStr, '1978', '', true, true, true);
but it is quite time-consuming work by Whereas this piece of code re-need to write at least a hundred times.
It is necessary to insert all years between 1900 and 2000 .
I wonder if this is possible to edit in a different and more simple way.
2013
Development / Re: Script for egafd.com
« on: December 13, 2011, 09:42:09 am »Sorry for birthday or birthplace, i'm not at home for the moment, so i have not VDB for making test, i work only with script file.
No problem, we will wait that you will soon come home again.
2014
Development / Re: Script for egafd.com
« on: December 13, 2011, 07:50:09 am »For country only can you post a link?
For country only link:
http://www.egafd.com/actresses/details.php/id/v00279
http://www.egafd.com/actresses/details.php/id/t00019
http://www.egafd.com/actresses/details.php/id/s00066
http://www.egafd.com/actresses/details.php/id/r00044
http://www.egafd.com/actresses/details.php/id/o00009
http://www.egafd.com/actresses/details.php/id/n00518
http://www.egafd.com/actresses/details.php/id/n00130
http://www.egafd.com/actresses/details.php/id/n00047
http://www.egafd.com/actresses/details.php/id/k00333
http://www.egafd.com/actresses/details.php/id/j00106
http://www.egafd.com/actresses/details.php/id/j00041
http://www.egafd.com/actresses/details.php/id/i00028
http://www.egafd.com/actresses/details.php/id/g00361
http://www.egafd.com/actresses/details.php/id/g00339
http://www.egafd.com/actresses/details.php/id/g00077
http://www.egafd.com/actresses/details.php/id/g00320
http://www.egafd.com/actresses/details.php/id/f00059
http://www.egafd.com/actresses/details.php/id/e00056
http://www.egafd.com/actresses/details.php/id/a00750
For link, where the partial incorrectly data transfer for example like this:
http://www.egafd.com/actresses/details.php/id/v00195
series, b. 1978
http://www.egafd.com/actresses/details.php/id/r00061
origin, b. 1976
French, Algerian origin, b. 1976
http://www.egafd.com/actresses/details.php/id/l00281
breast. b. 1980
Hungarian. ..... breast. b. 1980
http://www.egafd.com/actresses/details.php/id/l00129
arm. b. 1982
Hungarian blonde, tattoo upper right arm. b. 1982
http://www.egafd.com/actresses/details.php/id/f00165
resident, b. 1969
Congolese (Brazzaville), French resident, b. 1969
http://www.egafd.com/actresses/details.php/id/d00042
origin, b. 1968
French, Moroccan origin, b. 1968
http://www.egafd.com/actresses/details.php/id/c00453
arm. b. 1980
Hungarian, tattoo right shoulder / upper arm. b. 1980
http://www.egafd.com/actresses/details.php/id/a00493
blade. b. 1984
French. tattoos .... blade. b. 1984
http://www.egafd.com/actresses/details.php/id/a00672
blade. b. 1980
Spanish, tattoos .... blade. b. 1980
http://www.egafd.com/actresses/details.php/id/a00266
shoulder. b. 1983
French. .... shoulder. b. 1983
For link, which do not transfer any data for example like this:
http://www.egafd.com/actresses/details.php/id/t00012
French-Canadian
http://www.egafd.com/actresses/details.php/id/s00841
Hungarian,
http://www.egafd.com/actresses/details.php/id/p00088
French, black African ethnic origin
http://www.egafd.com/actresses/details.php/id/n00033
Ukrainian, b. 1973 or 1977?
http://www.egafd.com/actresses/details.php/id/m01654
Bulgarian,
http://www.egafd.com/actresses/details.php/id/m00170
Hungarian,
http://www.egafd.com/actresses/details.php/id/m00671
mature, French
http://www.egafd.com/actresses/details.php/id/l01065
probably Hong Kong Chinese
http://www.egafd.com/actresses/details.php/id/l00073
French brunette,
http://www.egafd.com/actresses/details.php/id/l00056
French (Breton)
http://www.egafd.com/actresses/details.php/id/l00103
French,
http://www.egafd.com/actresses/details.php/id/k00045
French (Vietnamese father), b.1979,
http://www.egafd.com/actresses/details.php/id/k00026
French, 1973 - 2005, R.I.P.
http://www.egafd.com/actresses/details.php/id/j00037
Portuguese, French-based (according to some sources anyway)
http://www.egafd.com/actresses/details.php/id/i00080
Polish or Hungarian?, b. 1978
http://www.egafd.com/actresses/details.php/id/g00204
b. 1986, tattoo right upper arm, ....
http://www.egafd.com/actresses/details.php/id/g00056
Polish, spot ....
http://www.egafd.com/actresses/details.php/id/f00124
German, brunette, ....
http://www.egafd.com/actresses/details.php/id/e00153
French, blonde, mature, ....
http://www.egafd.com/actresses/details.php/id/d00548
Bulgarian, tattoo ....
http://www.egafd.com/actresses/details.php/id/a00104
French, tattoo ....
http://www.egafd.com/actresses/details.php/id/a01156
Bulgarian, tattoo ....
http://www.egafd.com/actresses/details.php/id/a00064
Russian / Kyrgyzstan
http://www.egafd.com/actresses/details.php/id/a00151
French,
http://www.egafd.com/actresses/details.php/id/a00053
Hungarian, b. 1970 (or 1968?), ....
http://www.egafd.com/actresses/details.php/id/b00121
Hungarian, b. 1974?
http://www.egafd.com/actresses/details.php/id/b00004
French, but according to IMDB, born Fort Worth, Texas
BTW:
How do you work with code the word Birthday ,because it does not work for me and I had to replace the word Birthplace , it works.
2015
Development / Re: Script for egafd.com
« on: December 12, 2011, 08:24:08 pm »Have you try code for Birthplace and Birthday in egafd people ?
It is fine, but problems occur when certain words like this for example:
Hungarian , b. 1983 <--- no problem
Hungarian or this b. 1983 <--- there's a problem - the script is blocked
Here is the link http://www.egafd.com/actresses/details.php/id/k00071 for classic example of described problems (b. 1978).
Hungarian <--- this problem I just somehow solved
others do not, therefore, egafd_people(4 (Ivek23)10 script attached if they will give what and how to save and improve the script,
[attachment deleted by admin]
2016
Development / Re: Script for egafd.com
« on: December 11, 2011, 06:43:06 am »Quote
Have you try code for Birthplace and Birthday in egafd people ?
Not yet, because I had yesterday morning denied access to the Internet, which I could not fix, so I had a new load computer, so I need time somehow one day or more to add all the programs and the rest of what he needed to operate a computer as needed, so I announced news about this until tomorrow, if the right.
Greeting
2017
Development / Re: Script for egafd.com
« on: December 09, 2011, 05:54:55 pm »
For Url
Thanks
What is your best should be.
What is better, it should be.
For egafd people slight adjustment in the Bio
I'm sorry, my mistake, added to the Cast wrong url code,
This is the right URL codes.Code: [Select]// get url
UrlPosStart := PosFrom('href="', HTML, EndPos) + 6;
UrlPosEnd := PosFrom('">', HTML, UrlPosStart);
URL := BASE_URL + Trim(Copy(HTML, UrlPosStart, UrlPosEnd - UrlPosStart));
LogMessage(URL);
ADDED IS NOW ALSO CORRECT egafd_mod7 script for movie attached.
Thanks
What is better, it should be.
For egafd people slight adjustment in the Bio
Code: [Select]
// Get Role (Now defined)
difpos := (PosFrom('<i>', HTML, (actposEnd-1))+4) - actposend;
logmessage('DIFFERENCE : ' + intToStr(difpos));
If difpos > 0 then begin
If difpos < 200 then begin
actPosStart := PosFrom('<i>', HTML, (actposend-1)) + 4;
{actPosStart := PosFrom('> <i>', HTML, actPosStart) + 6;}
actPosEnd:=PosFrom('</i></li>', HTML, actPosStart) - 1;
Role := Trim(Copy(HTML, actposStart, (actPosEnd - actPosStart)));
Role := StringReplace(Role, ';', ' - ', true, false, true);
Role := StringReplace(Role, '/', ' - ', true, false, true);
if Pos(', ', Role) = 1 then Delete(Role, 1, 2);
LogMessage('Role: ' + Role);
debug_pos1:=Pos('(',Role);
if debug_pos1 >0 then
Role:= Copy(Role,0,debug_pos1-1);
LogMessage(Role);
end;
end;
2018
Development / Re: Script for egafd.com
« on: December 09, 2011, 04:36:39 pm »If you do not mind tomorrow, now regulated and tests egafd_movie script, how it works, the result will be tomorrow.
I worked on tests to about 100 movie, adding a few accessories and made some correctionsso far and with a little delay is here egafd_mod7 script for movie attached.
I'm sorry, my mistake, added to the Cast wrong url code,
This is the right URL codes.
Code: [Select]
// get url
UrlPosStart := PosFrom('href="', HTML, EndPos) + 6;
UrlPosEnd := PosFrom('">', HTML, UrlPosStart);
URL := BASE_URL + Trim(Copy(HTML, UrlPosStart, UrlPosEnd - UrlPosStart));
LogMessage(URL);ADDED IS NOW ALSO CORRECT egafd_mod7 script for movie attached.
[attachment deleted by admin]
2019
Development / Re: Script for egafd.com
« on: December 08, 2011, 07:24:05 pm »
If you do not mind tomorrow, now regulated and tests egafd_movie script, how it works, the result will be tomorrow.
2020
Development / Re: Script for egafd.com
« on: December 08, 2011, 02:48:50 pm »Thanks, but i always don't understand!OK. This is not deals more and we leave this so as your modification, than if when offered what better solution for this change and prefer let's try to find a solution for this,
The result is the same as the version before my modification.
//If title and //If Original have the same code (the same effect)!
idem in part of Lien.
Code: [Select]
//BORN:
curpos := Pos('<th>Notes</th>', HTML);
endpos := curpos;
While (curpos > 0) AND (curpos < Posfrom('</tr>', HTML, EndPos)) do begin
endpos := curpos;
PosStart := PosFrom('<td><ul class="list"><li>', HTML, endpos);
PosEnd := PosFrom('</li></ul></td>', HTML, PosStart);
Born := Trim(Copy(HTML, (PosStart + 25), (PosEnd - PosStart - 25)));
//LogMessage('BORN :' + Born);
curpos := posfrom('<td><ul class="list"><li>', HTML, posend);
if Born <> '' then
AddFieldValue(pfBirthplace, Born);
LogMessage('BORN :' + Born);
end; Could be done in BORN that all was as up to now, Birthplace field arranged so that there are visible such data like these for example:if possible.
Czech, b. 1985
Hungarian. b. 1978