Page 1 sur 1
[R] Renommer video
Posté : ven. 12 sept. 2014 08:35
par toma76
Bonjour a tous,
Voila j'aimerai savoir s'il etait possible d'avoir un script de renommage de video de masse
Exemple j'ai 10 video que je ne nomme Hannibal - 01 _ / Hannibal - 02 _ etc ...
J'aimerai qu'il renomme la video en fonction d'un fichier excel ou il y aurai
colonne 1 Colonne 2
Hannibal - 01 _ Nom de l'episode
En gros il faudrai qu'il compare le nom de la video avec la colonne un et si il la trouve il ajoute le nom de l'épisode apres _
Cela est-il possible ??
Merci d'avance
Re: [..] Renommer video
Posté : ven. 12 sept. 2014 09:26
par mikell
Tu posterais pas un exemple du fichier Excel ?
Re: [..] Renommer video
Posté : ven. 12 sept. 2014 10:30
par toma76
Voila
Re: [..] Renommer video
Posté : ven. 12 sept. 2014 12:57
par Hugues
Salut,
Je sais pas si c'est ça que tu veux (je suis pas sûr d'avoir compris ta question
)
► Afficher le texte
Code : Tout sélectionner
#include <Excel.au3>
Local $oAppl = _Excel_Open()
If @error Then Exit MsgBox(16, "", "Impossible d'ouvrir Excel")
Local $sWorkbook = @ScriptDir & "\xls\script.xlsx"
Local $oWorkbook = _Excel_BookOpen($oAppl, $sWorkbook);, Default, Default, True)
; Compte le nombre de colonnes/lignes actives dans la feuille
Local $nb_colonne = $oWorkbook.ActiveSheet.UsedRange.Columns.Count ; Compte le nombre de colonnes actives
Local $nb_ligne = $oWorkbook.ActiveSheet.UsedRange.Rows.Count ; Compte le nombre de lignes actives
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Nom complet", $oWorkbook.Worksheets(1).Cells(1,3))
For $i = 2 To $nb_ligne
If $oWorkbook.Activesheet.Cells($i,1).Value <> "" And $oWorkbook.Activesheet.Cells($i,2).Value <> "" Then _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $oWorkbook.Activesheet.Cells($i,1).Value & $oWorkbook.Activesheet.Cells($i,2).Value, $oWorkbook.Worksheets(1).Cells($i,3))
Next
;_Excel_BookClose($oWorkbook, True)
Re: [..] Renommer video
Posté : ven. 12 sept. 2014 21:51
par mikell
Mon vieux Excel n'arrive pas à lire ton fichier
Dommage parce que ce que tu veux faire n'est pas difficile
Re: [..] Renommer video
Posté : ven. 12 sept. 2014 23:50
par orax
J'ai pu l'ouvrir mais tu ferais mieux de le convertir en fichier texte s'il n'y a pas une mise en forme spéciale (gras, couleurs, ...) ; ça sera moins lourd et Excel pourra toujours l'éditer. Voir pièce jointe.
► Afficher le texte
Code : Tout sélectionner
#include <Array.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <WinAPIShPath.au3>
Local $videos
_FileReadToArray('Script-mod.csv', $videos, $FRTA_COUNT, ';')
;~ _ArrayDisplay($videos)
For $i = 2 To $videos[0][0]
$titre = $videos[$i][0]
$nomEpisode = $videos[$i][1]
$search = FileFindFirstFile($titre & '*')
$file = FileFindNextFile($search)
$ext = _WinAPI_PathFindExtension($file)
ConsoleWrite($file & @CRLF)
ConsoleWrite($titre & $nomEpisode & $ext & @CRLF)
FileMove($file, $titre & $nomEpisode & $ext)
Next
Re: [..] Renommer video
Posté : lun. 15 sept. 2014 08:38
par toma76
Merci a tous pour vos reponses
vous m'avez bien aidez
Orax je te remercie pour ton fichier
Bonne journée a tous