Page 1 of 1
[FR] Modifier les titres en masse
Posted: 2004-12-10 00:15:11
by Kats
Bonjour
Eh bien, voilà...
La majeur partie des film de ma base sont des AVI, leur titres étaient importés directement des fichiers.
Je voudrais savoir s'il était possible de supprimer en masse un morceau des titres, toujours le même, je n'ose même pas envisager un travail manuel sur plus de 2000 titres. Je présume qu'il me faudrait écrire un script pour cela, malheureusement je ne sais même pas par quel bout commencer.
Est-ce que quelqu'un pourrait me donner un coup de main ?
Merci
Posted: 2004-12-10 00:31:05
by Kats
Oups, J'ai trouvé le script de ScorEpioN... merci
Posted: 2004-12-10 00:42:25
by Kats
Kats wrote:Oups, J'ai trouvé le script de ScorEpioN... merci
J'ai quand même un soucis... grâce au script j'ai réussi a "nettoyer" une grande partie de mes titres mais pas ceux où la chaîne de caractères à virer était attachée au titre par un point, y-a-t-il une sollution ?
Posted: 2004-12-10 10:53:36
by antp
Supprimer tout ce qui suit un "." dans le titre ?
Code: Select all
program NewScript;
var
s: string;
p: Integer;
begin
s := GetField(fieldOriginalTitle);
p := Pos('.', s);
if p > 0 then
begin
s := Copy(s, 1, p - 1);
SetField(fieldOriginalTitle, s);
end;
end.
Posted: 2004-12-10 12:42:26
by Kats
Merci beaucoup
Puisque l'on est à virer les points
j'aimerais profiter encore une fois de votre gentillesse.... pourriez-vous me dire de quelle façon je pourrais remplacer tous les points de tous les titres originaux par les espaces ?
En ayant cet exemple j'arriverais (peut-être
) à écrire un petit script qui me permettrait de remplacer les caractères spécifiques au polonais téléchargés grâce aux scritps fournis (merci) et qui font l'effet d'affreux hiérogliphes dans la base, base qui grâce à vous est par ailleur de plus en plus homogène.
Mon gros problème sera d'y inclure tous les champs du formulaire.... hmmm
Posted: 2004-12-10 13:41:44
by antp
Voici :
Code: Select all
program NewScript;
var
s: string;
begin
s := GetField(fieldOriginalTitle);
s := StringReplace(s, '.', ' ');
SetField(fieldOriginalTitle, s);
end.
pour faire un traitement sur tous les champs, il y a moyen de faire une boucle, par exemple pour remplacer les "œ" qui s'affichent mal dans AMC par des "oe" :
Code: Select all
program NewScript;
var
s, original: string;
f: Integer;
begin
for f := fieldMedia to fieldSize do
begin
original := GetField(f);
s := StringReplace(original, 'œ', 'oe');
if s <> original then // pour éviter de réécrire les champs numériques ou ceux qui n'auraient pas été modifiés
SetField(f, s);
end;
end.
Posted: 2004-12-10 13:54:16
by Guest
Merci beaucoup @antp