[FR] Aide creation script modifiant fichier amc

Guest · Post by **Guest** » 2004-11-30 06:26:40

bonjour à tous,

AMC c'est de la balle, je l'utilise depuis si longtemps que je ne peux plus m'en passer maintenant !!!!

j'aimerai bien maintenant ecrire un p'tit script pour modifier un champ particulier de tous mes films. en fait, le champ "label du support" je l'ai customisé à ma maniere, en y indiquant le numero de CD/DVD sur lequel se trouve le film.

malheureusement j'ai eu la mauvaise idée, qd le support est un DVD, d'inscrire le numéro du média + (DVD-R). ce qui fait tre smoceh quand je veux imprimer/afficher ma liste.

je voudrai donc ecrire un script qui lit toutes mes entrees, qui recupere le champ "label du support", et qui le modifie si besoin est.

mais je ne sais pas comment faire cela.
qq'un pourrait-il m'aider svp' ?

merci pour tout
Herve

Guest · Post by **Guest** » 2004-11-30 06:37:02

euh, j'ai reflechi 5 mn, et j'ai reussi...

;-)

program NewScript;
var
field: string;
newfield : string;
begin
field := GetField(fieldMedia);
newfield := StringReplace(field,' (DVD-R)','');
SetField(fieldMedia,newfield);
end.

désolé,et merci !

Post by **antp** » 2004-11-30 16:48:32

content de voir quer tu as pu te débrouiller

et ça pourra servir à d'autres s'ils tombent sur le sujet

Guest · Post by **Guest** » 2004-12-02 10:35:02

c'est pour cela que j'ai mis la soluce.

sinon, maintenant je cherche à enlever, dans la liste des acteurs, les string qui contiennent des parentheses.

exemple :

Peter Falk (as Columbo)
devient
Peter Falk

dur dur ca tiens !

Post by **antp** » 2004-12-02 13:51:47

Là par contre en effet le code est moins simple vu qu'il faut parcourir la chaîne caractère par caractère
Si j'oublie pas je posterai le code ce soir

Guest · Post by **Guest** » 2004-12-02 14:56:52

j'ai fait qq ch qui boucle !!!!

program NewScript;
var
s,tmp:string;
BeginPos, EndPos: Integer;

Begin
s:=GetField(fieldActors);

while Pos('(', s) > 0 do
begin

BeginPos := Pos('(', s);
EndPos := Pos(')', s);
tmp := Copy(s, 0, BeginPos-1);
s := tmp + Copy(s, EndPos+1, Length(s));

end;

SetField(fieldActors,s);
end.

bon, comme je n'avais pas le cas pour beaucoup de mes films, j'ai fait ca a la main...

Guest · Post by **Guest** » 2004-12-02 14:57:22

faut faire attention à ces cas-là :

nom prenom ((aazzee as (bob))

et aussi aux ) qui ne sont pas presentes

bref, c l'horreur !!!!