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
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 ?
Last edited by Kats on 2004-12-10 12:24:10, edited 1 time in total.
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.
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
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" :
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.
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 ?