[R] Renommer video

[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

[mikell]

Tu posterais pas un exemple du fichier Excel ?

[toma76]

Voila

[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)



 

[mikell]

Mon vieux Excel n'arrive pas à lire ton fichier
Dommage parce que ce que tu veux faire n'est pas difficile

[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
 

[toma76]

Merci a tous pour vos reponses
vous m'avez bien aidez


Orax je te remercie pour ton fichier

Bonne journée a tous