antp.be forum

Code: Select all

// GETINFO SCRIPTING
// inverser 2 champs en mode batch / swap 2 fields in batch mode
(******************************************************
 *  inversion de 2 champs / swap 2 fields             *
 *  version 1.0 (c) 2005 scorpion7552                 *
 * à utiliser à vos propres risques                   *
 * use it at your own risks                           *
 *                                                    *
 *  For use with Ant Movie Catalog (any version)      *
 *  www.ant.be.tf/moviecatalog ··· www.buypin.com     *
 *                                                    *
 *  The source code of the script can be used in      *
 *  another program only if full credits to           *
 *  script author and a link to Ant Movie Catalog     *
 *  website are given in the About box or in          *
 *  the documentation of the program                  *
 ******************************************************)

program SwapFields;
var
	str1, str2, field1, field2: string; 

//------------------------------------------------------------------------------
// select field (string fields only)
// fld = SelectField(field_number_or_'')
//------------------------------------------------------------------------------
function SelectField(fld: string) :string;

begin
	PickTreeClear; 
	if fld = '' then
		PickTreeAdd('Sélectionner le 1er champ/Select 1st field', '')
	else
		PickTreeAdd('Sélectionner le 2ème champ/Select 2nd field', '');
// create list (string fields only)
	if fld <> '0' then PickTreeAdd('Titre original/Original Title', '0');
	if fld <> '1' then PickTreeAdd('Titre Traduit/Translated Title', '1');
	if fld <> '2' then PickTreeAdd('Réalisateur/Director', '2');
	if fld <> '3' then PickTreeAdd('Producteur/Producer', '3');
	if fld <> '4' then PickTreeAdd('Pays/Country', '4');
	if fld <> '5' then PickTreeAdd('Catégorie/Category', '5');
	if fld <> '6' then PickTreeAdd('Acteurs/Actors', '6');
	if fld <> '7' then PickTreeAdd('Adresse  Web/URL', '7');
	if fld <> '8' then PickTreeAdd('Description', '8');
	if fld <> '9' then PickTreeAdd('Commentaires/Comments', '9');
//
	PickTreeExec(fld);
	result := fld;
end;

//------------------------------------------------------------------------------
// get field value
// str = GetFieldValue(field_number)
//------------------------------------------------------------------------------
function GetFieldValue(fld: string) :string;
Var
	str: string;

begin
	case fld of
	'0' : str := GetField(fieldOriginalTitle);
	'1' : str := GetField(fieldTranslatedTitle);
	'2' : str := GetField(fieldDirector);
	'3' : str := GetField(fieldProducer);
	'4' : str := GetField(fieldCountry);
	'5' : str := GetField(fieldCategory);
	'6' : str := GetField(fieldActors);
	'7' : str := GetField(fieldURL);
	'8' : str := GetField(fieldDescription);
	'9' : str := GetField(fieldComments);
	else : str := '';
	end;
	result := str;
end;

//------------------------------------------------------------------------------
// set field value
// SetFieldValue(field_number,value)
//------------------------------------------------------------------------------
procedure SetFieldValue(fld, str: string);

begin
	case fld of
	'0' : SetField(fieldOriginalTitle, str);
	'1' : SetField(fieldTranslatedTitle, str);
	'2' : SetField(fieldDirector, str);
	'3' : SetField(fieldProducer, str);
	'4' : SetField(fieldCountry, str);
	'5' : SetField(fieldCategory, str);
	'6' : SetField(fieldActors, str);
	'7' : SetField(fieldURL, str);
	'8' : SetField(fieldDescription, str);
	'9' : SetField(fieldComments, str);
	end;
end;

//------------------------------------------------------------------------------
//  start here
//------------------------------------------------------------------------------                                               
begin
	if field1 = '' then
	begin
// first time: select fields to swap
		field1 := SelectField('');
		if field1 = '' then exit;
		field2 := SelectField(field1);
		if field2 = '' then exit;
	end;
	str1 := GetFieldValue(field1);
	str2 := GetFieldValue(field2);
	SetFieldValue(field1, str2);
	SetFieldValue(field2, str1);
end.