[FR] Renommer les fichiers en fonction du titre

[sorcer1]

Bonjour,

Je voudrai faire une suggéstion, en effet il serait intéressant de pouvoir renommer les fichiers en fonction du titre original!

Voilà!

[antp]

Renommer quels fichiers ? Ceux qui sont renseignés dans le champ d'URL ?

[Guest]

les fichiers des films du catalogue (*.avi, *.vob, etc...).

[antp]

Éventuellement, oui, je peux le noter sur la liste des trucs à rajouter à l'occasion.

[tekmars]

Bonjour,

Je souhaite également utiliser cette fonctionnalité : renommer le fichier *.avi (champ : source ex d:\film\test.avi) en se servant du titre traduit.

Comment faire SVP ?

[antp]

Bonjour,
Ça n'a toujours pas été rajouté dans le programme... mais en fait grâce à des fonctions ajoutées pour les scripts depuis la version 3.5.1 on pourrait le faire facilement :

Code: Select all

program NewScript;
var
  ori, s, t: string;
begin
  ori := GetField(fieldSource);
  t := GetField(fieldTranslatedTitle);
  if (ori <> '') and (t <> '') then
  begin
    s := ExtractFilePath(ori) + t + ExtractFileExt(ori);
    if MoveFile(ori, s) then
      SetField(fieldSource, s);
  end;
end.

à tester avec prudence sur un catalogue à part, au cas où ça foire (j'ai pas le temps de tester là tout de suite, j'ai juste tapé le code)

[tekmars]

Merci pour ta réponse,
Bravo ça marche bien
Il y a juste un problème avec les titres comportant certains caractères (é ' è à ), il y a t il un moyen pour résoudre ce problème ?

Merci pour ton aide

[antp]

Comment ça un problème ? Ça devrait marcher.
Seul les suivant devraient poser problème :
? : < > " * | / \
mais on peut faire un remplacement automatique de ces caractères pour les supprimer du titre avant de renommer le fichier : insérer ceci juste avant la ligne commençant par "s := " :

Code: Select all

t := StringReplace(t, '?', '');
t := StringReplace(t, ':', '');
t := StringReplace(t, '<', '');
t := StringReplace(t, '>', '');
t := StringReplace(t, '"', '');
t := StringReplace(t, '*', '');
t := StringReplace(t, '|', '');
t := StringReplace(t, '/', '');
t := StringReplace(t, '\', '');

[tekmars]

C'est parfait, t'as raison, il s'agissait des ":" dans les titres.

Le script marche nickel.

Merci encore pour ton travail.

[tachenco]

I think i have understand more or less for what this script is used but i'm not sure. Could you explain in english what this script do?

Thank you

[antp]

It renames the movie file by giving it the title specified in title field.
It assumes that the movie file path is stored in field "source", but you can easily change that (replace both "fieldSource" by another field name)

The second code that I posted is to filter special "invalid" characters, to be inserted before the lines which begins by « s := »

[pierig]

Bonsoir,

J'ai recopier le script puis mis dans un fichier dans le dossiers ou se trouve les script (je l'ai appeler rename.ifs) puis je lance AMC je sélectionne le film puis je lance le script mais ça ne fonctionne pas

Je ne suis pas très doué

Un petit peu d'aide me serait utile ^^

Merci

ps : j'ai trouver AMC hier et je trouve vraiment ton appli géniale (merci HFR de garder même les vieux topiks )

[antp]

Le nom de fichier est dans quel champ ? Dans l'exemple ci-dessus ça utilise le champ "source", si c'est dans le champ "adresse" il faut remplacer les "fieldSource" par "fieldUrl" dans le script.

[pierig]

C'est bon ça fonctionne parfaitement.

Merci ^^