English > Scripts and Templates

Iafd Person e Website link (full)

<< < (10/19) > >>

Ivek23:

--- Quote from: pra15 on February 12, 2015, 04:59:21 pm ---Can you give a link where h3 comments is present .
--- End quote ---

Here are a few links:

http://www.iafd.com//title.rme/title=10+hardcore+quickies+2/year=2011/10-hardcore-quickies-2.htm
http://www.iafd.com//title.rme/title=2+chicks+same+time+15/year=2013/2-chicks-same-time-15.htm
http://www.iafd.com//title.rme/title=all+internal+234/year=2005/all-internal-234.htm
http://www.iafd.com//title.rme/title=anal+attack+8/year=2011/anal-attack-8.htm
http://www.iafd.com//title.rme/title=100%25+natural+wonders+1/year=2004/100%25-natural-wonders-1.htm
http://www.iafd.com//title.rme/title=10+man+cum+slam+13/year=2005/10-man-cum-slam-13.htm
http://www.iafd.com//title.rme/title=2+men+inside+me/year=2007/2-men-inside-me.htm
http://www.iafd.com//title.rme/title=2+on+1+14/year=2002/2-on-1-14.htm
http://www.iafd.com//title.rme/title=3+day+rule/year=2012/3-day-rule.htm

pra15:
I don't know if that you want.
You can use the function for date like : 01 Septembre 2002 or September 01, 2002.
But for the third i don't know how. With '/' in the text i always obtain an error in PVD.
I tried explode the date or simply copy(.... but nothing work!


--- Code: ---function ConfDate(OrigDate:string):string;
Var
i : Integer;
OrigDate, d, m, y : string;
TabMonths : Array of string;
TabDate : TwideArray;

BEGIN
TabMonths := ['Null','January','February','March','April','May','June','Jully','August','Septembre','October','November','December'];
ExplodeString(OrigDate,TabDate,' ');
If TabDate[0] <> '' then begin
If Length(TabDate[0]) > 2 then begin
m := TabDate[0];
For i := 1 to 12 do begin
If m = TabMonths[i] then m:=IntToStr(i);
end;
LogMessage('Mois: ' + m);
d := Copy(TabDate[1],1,Length(TabDate[1])-1);
If Copy(TabDate[1],1,Length(TabDate[1])-2) = '0' then d:= Copy(TabDate[1],2,1);
y := TabDate[2];
end else if TabDate[1] <> '' then begin
y:= TabDate[2];
m:= TabDate[1];
For i := 1 to 12 do begin
If m = TabMonths[i] then m:=IntToStr(i);
end;
d:= TabDate[0];
If Copy(TabDate[0],1,Length(TabDate[0])-1) = '0' then d:= Copy(TabDate[0],2,1);
LogMessage('Year: ' + y + ' month: ' + m + ' day: ' + d);
end else begin
y:='';
m:='';
d:='';
end;
//end else begin
//ExplodeString(OrigDate,TabDate,'/');
//y := Copy(OrigDate,7,4);
//m := Copy(OrigDate,3,3);
//For i := 1 to 12 do begin
//If m = Copy(TabMonths[i],1,3) then m:=IntToStr(i);
//end;
//d := Copy(OrigDate,1,2);
//If Copy(TabDate[0],1,Length(TabDate[0])-1) = '0' then d:= Copy(TabDate[0],2,Length(TabDate[0])-1);
//LogMessage('Annee: '+y+' mois: ' +m+' jour: '+d);
end;
Result:= d + '.' + m + '.' + y;
END;
--- End code ---

If this can help.

Ivek23:

--- Quote from: pra15 on February 12, 2015, 07:48:23 pm ---If this can help.
--- End quote ---

Thanks, will see ...

Ivek23:

--- Quote from: Ivek23 on February 12, 2015, 08:00:26 pm ---
--- Quote from: pra15 on February 12, 2015, 07:48:23 pm ---If this can help.
--- End quote ---

Thanks, will see ...
--- End quote ---

Thank you very much, it work.

Ivek23:
iafd_movie (full) script
v 0.0.2.6 on 14.2.2015


--- Quote from: Ivek23 on February 11, 2015, 03:15:24 pm ---
--- Quote from: Ivek23 on February 05, 2015, 09:32:28 am ---Change of Studio:

* Studio name only in IAFD Studio multiselect custom field
* The URL link to the Studio name on web pages in IAFD Studio1 memo custom field
--- End quote ---

Change of Studio:

* The URL link to the Studio name on web pages now in IAFD Studio (Distributor)  memo custom field

--- Quote from: Ivek23 on February 05, 2015, 09:32:28 am ---Distributor data can now be transferred only in custom fields, namely:

* Distributor name only in Distributor multiselect custom field
* The URL link to the Distributor name on web pages in IAFD Distributor1 memo custom field
--- End quote ---

Change of Distributor:

* The URL link to the Distributor name on web pages now in IAFD Studio (Distributor) memo custom field
New Added:

* IAFDUpdated in the IAFDUpdated long text custom field
Also included is a list of custom fields.

CustomField :

IAFDUpdated                        ----> Long Text
IAFD AKA                        ----> Memo
IAFD Studio                      ----> Multiselect List
IAFD Distributor                   ----> Multiselect List
IAFD Studio (Distributor)            ----> Memo
--- End quote ---

Script is the attached.

Navigation

[0] Message Index

[#] Next page

[*] Previous page