[..] Script : Tagger.

[MisterP]

Bonjour ,
Après plusieurs heures , j'ai réussi a écrire un script pour tagger mes morceaux de musiques à l'aide du logiciel tagg&rename.
J'aimerai avoir un volontaire pour regarder mon code et me dire si il est bon (je ne parle pas des erreurs d'écritures , ca je sais qu'il y en a, 44 et 1 warning) mais avant de passer des heures a débugger mon code , j'aimerai savoir si après il fera bien ce que je souhaite.
Donc quelques précisions :
Mes morceaux sont rangés de cette manière :
WavDatabase / [Artiste] / [Album] ([Année)] / [N° que le morceau occupe dans l'album] - [NomMorceau]
exemple :
WavDatabase/Nightcore/Dreamworld (2013)/01 - Monster (DotEXE Remix)


Le code :

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

; INCLUDES

Opt("WinTitleMatchMode", 2)

;Fonction a mettre en tête de script, sinon ça détruit tous les Title des Control !!!

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Music Tagger", 342, 233, 192, 124)
Global $Input1 = GUICtrlCreateInput("", 96, 32, 121, 21)
Global $Button2 = GUICtrlCreateButton("Parcourir", 224, 32, 68, 25)
Global $Label1 = GUICtrlCreateLabel("WavDatabase", 15, 35, 80, 20)
Global $Button1 = GUICtrlCreateButton("Tagg All !", 128, 160, 75, 25)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; GUI

Global $artistsNamesFoldersArray, $albumsNamesFoldersArray, $albums2NamesFoldersArray, $anneeNamesFoldersArray, $musicNamesFoldersArray, $trackNamesFoldersArray
Global $musicsArray, $temp, $i, $j, $k, $e, $l, $m, $n, $o
Global $counter1=0
Global $counter2=3
Global $NbrMorc=
; A COMPLETER !!! NbrMorc = le nombre de fichiers (morceaux) dans le dossier album!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Global $counter3=1

;DECLARATION VARIABLES

While 1
    $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Button2
                _Parcourir ()
            Case $Button1
                _Tagg ()
                MsgBox(0, "Info Script", "Fini ! ;p ", " fichier ")

        EndSwitch
WEnd
Func _Parcourir()
    Global $mainMusicFoldersArray[2] = [1, FileSelectFolder("Sélectionne ta WavDatabase", "")]
    GUICtrlSetData($Input1, $mainMusicFoldersArray[1])
EndFunc

;COEUR SCRIPT

Func _Tagg()


For $i = 1 To $mainMusicFoldersArray[0]
    $artistsNamesFoldersArray = _FileListToArray($mainMusicFoldersArray[$i],"*",2)
    If IsArray($artistsNamesFoldersArray) Then
        For $j = 1 To $artistsNamesFoldersArray[0]
            $albumsNamesFoldersArray = _FileListToArray($mainMusicFoldersArray[$i] & "\" & $artistsNamesFoldersArray[$j],"*",2)
            If IsArray($albumsNamesFoldersArray) Then
                For $k = 1 To $albumsNamesFoldersArray[0]
                    $musicsArray = _FileListToArray($mainMusicFoldersArray[$i] & "\" & $artistsNamesFoldersArray[$j] & "\" & $albumsNamesFoldersArray[$k],"*.wav",1)
                    If IsArray($musicsArray) Then
                        For $e = 1 To $musicsArray[0]
                            ; On mets tous/toutes les artistes , albums , musiques dans un tableau

                            $albums2NamesFoldersArray[$l] = Stringtrimright ( "$albumsNamesFoldersArray[$k]", 7)
                            ; On sépare le nom de l'album de l'année de l'album (nom de base étant : [NomAlbum] ([Année]) --> On ne prends que le NOM DE L ALBUM. 7 (4 chiffres, 2 parenthèses, 1 espace)

                            $anneeFoldersArray[$m] = StringTrimRight ( "$albumsNamesFoldersArray[$k]", 1)
                            ; On sépare le nom de l'album de l'année de l'album (nom de base étant : [NomAlbum] ([Année]) --> On ne prends que l'ANNEE DE L ALBUM
                            ; On vient de supprimer la parenthèse située tout à droite de l'année, ce qui nous donne : [NomAlbum] ([Année]  <-- parenthèse manquante
                           If Not StringIsDigit ( "$anneeNamesFoldersArray[$m]" ) Then
                            $anneeFoldersArray[$m] = StringTrimLeft ( "$albumsNamesFoldersArray[$k]", $counter1)
                              $counter1 += 1
                           EndIf
                            ;Si la chaîne de caractère n'est pas que des chiffres, alors on supprime un caractère de plus
                            ;Donc a partir d'ici, on a : Artiste , Album , Année
                            $counter1=0
                            ;On remet au compteur 1 sa valeur d'origine.

                            $musicNamesFoldersArray[$n] = StringTrimLeft ( "_GetMusicName($file)", 5)
                            ;On supprime les 5 caractères les plus a gauche à savoir : [N°] - Donc on se retrouve juste avec le nom de la musique sans le numéro de track
                            $trackNamesFoldersArray[$o] = StringTrimRight ( "_GetMusicName($file)", $counter2)
                            If Not StringIsDigit ( "$trackNamesFoldersArray[$o]" ) Then
                               $counter2 += 1
                            EndIf
                            ;Si la chaine de caractère n'est pas que des chiffres, alors on supprime un caractère de plus. Le compteur commence à 3 car il faut supprimer au minimum " - "
                            ;Voilà, on a donc maintenant le numéro (track) et le nom exacte de la musique, avec le numéro de track enlevé
                            $counter2=3
                            ;On remet au compteur 2 sa valeur d'origine

                            ShellExecute ( "C:\Program Files (x86)\TagRename\TagRename.exe")
                            Sleep (10000)
                            ControlClick ( "Tag&Rename 3.8.1", "", "[CLASS:TButton; TEXT:I agree; INSTANCE:4]")
                            ;Clic sur le bouton I agree
                            ;Tag&Rename EST OUVERT !!!
                            _TaggAlb ()

                        Next
                    EndIf
                Next
            EndIf
        Next
     EndIf
  Next

EndFunc

; $artistsNamesFoldersArray[$j]   $albumsNamesFoldersArray[$k]    _GetMusicName($musicsArray[$e]) Ne pas prêter attention , ce sont des petites notes

Func _TaggAlb
ControlClick ( "Tag&Rename 3.8.1", "", "[CLASS:TComboEdit; INSTANCE:1]", button = "left" [, clicks = 1 [, 466 [, 301]]]] )
;Clic dans le champ pour spécifier le chemin d'un dossier
ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TComboEdit; INSTANCE:1]", "C:\Users\LALALA\Desktop\$mainMusicFoldersArray[$i] & "\" & $artistsNamesFoldersArray[$j] & "\" & $albumsNamesFoldersArray[$k] & ")
;On donne le chemin du premier dossier
ControlClick ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]", button = "left" [, clicks = 1 [, 1554 [, 374]]]] )
;On clic tout a droite du champ du premier morceau, si on clik dessus directement, ça le renomme... En gros : on désélectionne la sélection de base faite par Tag = (tous les .wav).
ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]", "{UP}")
;Touche flèche du haut, sélection du tout premier morceau
_TaggMorc ()
;On appelle la fonction qui permet de tagger un morceau, on a donc sélectionner le premier morceau et on l'a taggé.
   If Not $counter3=$NbrMorc Then
      ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]", "{DOWN}")
      ;Touche flèche du bas, sélection du morceau situé en dessous
      _TaggMorc ()
      $counter3+=1
   EndIf
   ;Si le compteur n'a pas la valeur du nombre de morceau de l'album alors on sélectionne le morceau suivant, on le tagg et on ajoute 1 au compteur
   ;Ca permet donc tagger tous les morceaux de l'albums sans tagger dans le vide ou ne pas en tagger
$counter3=1
;On remet au compteur 3 sa valeur d'origine
   EndFunc

Func _TaggMorc
ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]", "{ENTER}")
;TOUCHE ENTREE !
ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:11]", button = "left" [, clicks = 1 [, 592 [, 329]]]] )
;Clic Champ Title
ControlSend ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:11]", "$musicNamesFoldersArray[$n]")
;On écrit la valeur de la variable $musicNamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:10]", button = "left" [, clicks = 1 [, 522 [, 354]]]] )
;Clic Champ Artist
ControlSend ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:10]", "$artistsNamesFoldersArray[$j]")
;On écrit la valeur de la variable $artistsNamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:9]", button = "left" [, clicks = 1 [, 252 [, 378]]]] )
;Clic Champ Album
ControlSend ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:9]", "$albums2NamesFoldersArray[$l]")
;On écrit la valeur de la variable $albums2NamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:8]", button = "left" [, clicks = 1 [, 143 [, 402]]]] )
;Clic Champ Année
ControlSend ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:8]", "$anneeNamesFoldersArray[$m]")
;On écrit la valeur de la variable $anneeNamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:Edit; INSTANCE:2]", button = "left" [, clicks = & [, 1333 {, 328]]]] )
;Clic Champ Track Number
ControlSend ( "Tag Editor", "", "[CLASS:Edit; INSTANCE:2]", "$trackNamesFoldersArray[$o]")
;On écrit la valeur de la variable $trackNamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:TButton; INSTANCE:12]", button = "left" [, clicks = 1 [, 1446 [, 507]]]] )
;Clic Boutton Add (ajouter une cover)
ControlClick ( "Find art file.", "", "[CLASS:DirectUIHWND; INSTANCE:2]", button = "left" [, clicks = 1 [, 227 [, 173]]]] )
;Clic Sur la cover
ControlClick ( "Find art file.", "", "[CLASS:Button; INSTANCE:1]", button = "left" [, clicks = 1 [, 623 [, 472]]]] )
;Clic sur Ouvrir la cover
ControlClick ( "Tag Editor", "", "[CLASS:TButton; INSTANCE:4]", button = "left" [, clicks = 1 [, 1225 [,620]]]] )
;Clic sur Save
EndFunc

Func _GetMusicName($file)
    Local $tempArray, $c, $name
    $tempArray = StringSplit($file,".")
    If IsArray($tempArray) Then
        For $c = 1 To $tempArray[0]-1
            $name &= $tempArray[$c]
        Next
        Return $name
    EndIf
    Return $file

 EndFunc
 

Merci d'avance !!!

[MisterP]

Personne ??? ....

[mikell]

Normal... sérieusement tu t'attendais à quoi ?
Décidément t'as toujours pas compris

avant de passer des heures a débugger mon code , j'aimerai savoir si après il fera bien ce que je souhaite.

C'est comme si tu disais :
Voilà une caisse de pièces métalliques, une fois ces pièces modifiées et correctement assemblées est-ce que j'aurai une voiture qui roule ?

[MisterP]

Normal... sérieusement tu t'attendais à quoi ?
Décidément t'as toujours pas compris

avant de passer des heures a débugger mon code , j'aimerai savoir si après il fera bien ce que je souhaite.

C'est comme si tu disais :
Voilà une caisse de pièces métalliques, une fois ces pièces modifiées et correctement assemblées est-ce que j'aurai une voiture qui roule ?

.... Ben en même temps je suis pas à l'aise avec ce langage ...
Alors oui je pose la question de la voiture ...
Et c'est pas une caisse de pièces , elle sont déjà mises correctement et il y a tout d'écrit , non ?...
Donc j'ai juste quelques fautes de synthaxe à gérer normalement, et j'aimerai juste savoir si une fois que j'aurai fini de corriger ces fautes, ce sera bon.

[overflow]

oui sa seras bon tu peux corrigé

[MisterP]

oui sa seras bon tu peux corrigé

D'accord, merci, là je suis en vacances (donc pas d'ordi à disposition, ou du moins pas comme je l'aimerais) mais je rentre la dernière semaine d'aout, donc je corrigerais ça quand je pourrait.

Merci

[MisterP]

Bonjour,
Je viens de rentrer de vacances !
Donc je reviens sur mon script :

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

; INCLUDES

Opt("WinTitleMatchMode", 2)

;Fonction a mettre en tête de script, sinon ça détruit tous les Title des Control !!!

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Music Tagger", 342, 233, 192, 124)
Global $Input1 = GUICtrlCreateInput("", 96, 32, 121, 21)
Global $Button2 = GUICtrlCreateButton("Parcourir", 224, 32, 68, 25)
Global $Label1 = GUICtrlCreateLabel("WavDatabase", 15, 35, 80, 20)
Global $Button1 = GUICtrlCreateButton("Tagg All !", 128, 160, 75, 25)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; GUI

Global $artistsNamesFoldersArray, $albumsNamesFoldersArray, $albums2NamesFoldersArray, $anneeNamesFoldersArray, $musicNamesFoldersArray, $trackNamesFoldersArray
Global $musicsArray, $temp, $i, $j, $k, $e, $l, $m, $n, $o
Global $counter1=0
Global $counter2=3
Global $NbrMorc=
; A COMPLETER !!! NbrMorc = le nombre de fichiers (morceaux) dans le dossier album!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Global $counter3=1

;DECLARATION VARIABLES

While 1
    $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Button2
                _Parcourir ()
            Case $Button1
                _Tagg ()
                MsgBox(0, "Info Script", "Fini ! ;p ", " fichier ")

        EndSwitch
WEnd
Func _Parcourir()
    Global $mainMusicFoldersArray[2] = [1, FileSelectFolder("Sélectionne ta WavDatabase", "")]
    GUICtrlSetData($Input1, $mainMusicFoldersArray[1])
EndFunc

;COEUR SCRIPT

Func _Tagg()


For $i = 1 To $mainMusicFoldersArray[0]
    $artistsNamesFoldersArray = _FileListToArray($mainMusicFoldersArray[$i],"*",2)
    If IsArray($artistsNamesFoldersArray) Then
        For $j = 1 To $artistsNamesFoldersArray[0]
            $albumsNamesFoldersArray = _FileListToArray($mainMusicFoldersArray[$i] & "\" & $artistsNamesFoldersArray[$j],"*",2)
            If IsArray($albumsNamesFoldersArray) Then
                For $k = 1 To $albumsNamesFoldersArray[0]
                    $musicsArray = _FileListToArray($mainMusicFoldersArray[$i] & "\" & $artistsNamesFoldersArray[$j] & "\" & $albumsNamesFoldersArray[$k],"*.wav",1)
                    If IsArray($musicsArray) Then
                        For $e = 1 To $musicsArray[0]
                            ; On mets tous/toutes les artistes , albums , musiques dans un tableau

                            $albums2NamesFoldersArray[$l] = Stringtrimright ( "$albumsNamesFoldersArray[$k]", 7)
                            ; On sépare le nom de l'album de l'année de l'album (nom de base étant : [NomAlbum] ([Année]) --> On ne prends que le NOM DE L ALBUM. 7 (4 chiffres, 2 parenthèses, 1 espace)

                            $anneeFoldersArray[$m] = StringTrimRight ( "$albumsNamesFoldersArray[$k]", 1)
                            ; On sépare le nom de l'album de l'année de l'album (nom de base étant : [NomAlbum] ([Année]) --> On ne prends que l'ANNEE DE L ALBUM
                            ; On vient de supprimer la parenthèse située tout à droite de l'année, ce qui nous donne : [NomAlbum] ([Année]  <-- parenthèse manquante
                           If Not StringIsDigit ( "$anneeNamesFoldersArray[$m]" ) Then
                            $anneeFoldersArray[$m] = StringTrimLeft ( "$albumsNamesFoldersArray[$k]", $counter1)
                              $counter1 += 1
                           EndIf
                            ;Si la chaîne de caractère n'est pas que des chiffres, alors on supprime un caractère de plus
                            ;Donc a partir d'ici, on a : Artiste , Album , Année
                            $counter1=0
                            ;On remet au compteur 1 sa valeur d'origine.

                            $musicNamesFoldersArray[$n] = StringTrimLeft ( "_GetMusicName($file)", 5)
                            ;On supprime les 5 caractères les plus a gauche à savoir : [N°] - Donc on se retrouve juste avec le nom de la musique sans le numéro de track
                            $trackNamesFoldersArray[$o] = StringTrimRight ( "_GetMusicName($file)", $counter2)
                            If Not StringIsDigit ( "$trackNamesFoldersArray[$o]" ) Then
                               $counter2 += 1
                            EndIf
                            ;Si la chaine de caractère n'est pas que des chiffres, alors on supprime un caractère de plus. Le compteur commence à 3 car il faut supprimer au minimum " - "
                            ;Voilà, on a donc maintenant le numéro (track) et le nom exacte de la musique, avec le numéro de track enlevé
                            $counter2=3
                            ;On remet au compteur 2 sa valeur d'origine

                            ShellExecute ( "C:\Program Files (x86)\TagRename\TagRename.exe")
                            Sleep (10000)
                            ControlClick ( "Tag&Rename 3.8.1", "", "[CLASS:TButton; TEXT:I agree; INSTANCE:4]")
                            ;Clic sur le bouton I agree
                            ;Tag&Rename EST OUVERT !!!
                            _TaggAlb ()

                        Next
                    EndIf
                Next
            EndIf
        Next
     EndIf
  Next

EndFunc

; $artistsNamesFoldersArray[$j]   $albumsNamesFoldersArray[$k]    _GetMusicName($musicsArray[$e]) Ne pas prêter attention , ce sont des petites notes

Func _TaggAlb
ControlClick ( "Tag&Rename 3.8.1", "", "[CLASS:TComboEdit; INSTANCE:1]", button = "left" [, clicks = 1 [, 466 [, 301]]]] )
;Clic dans le champ pour spécifier le chemin d'un dossier
ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TComboEdit; INSTANCE:1]", "C:\Users\LALALA\Desktop\$mainMusicFoldersArray[$i] & "\" & $artistsNamesFoldersArray[$j] & "\" & $albumsNamesFoldersArray[$k] & ")
;On donne le chemin du premier dossier
ControlClick ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]", button = "left" [, clicks = 1 [, 1554 [, 374]]]] )
;On clic tout a droite du champ du premier morceau, si on clik dessus directement, ça le renomme... En gros : on désélectionne la sélection de base faite par Tag = (tous les .wav).
ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]", "{UP}")
;Touche flèche du haut, sélection du tout premier morceau
_TaggMorc ()
;On appelle la fonction qui permet de tagger un morceau, on a donc sélectionner le premier morceau et on l'a taggé.
   If Not $counter3=$NbrMorc Then
      ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]", "{DOWN}")
      ;Touche flèche du bas, sélection du morceau situé en dessous
      _TaggMorc ()
      $counter3+=1
   EndIf
   ;Si le compteur n'a pas la valeur du nombre de morceau de l'album alors on sélectionne le morceau suivant, on le tagg et on ajoute 1 au compteur
   ;Ca permet donc tagger tous les morceaux de l'albums sans tagger dans le vide ou ne pas en tagger
$counter3=1
;On remet au compteur 3 sa valeur d'origine
   EndFunc

Func _TaggMorc
ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]", "{ENTER}")
;TOUCHE ENTREE !
ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:11]", button = "left" [, clicks = 1 [, 592 [, 329]]]] )
;Clic Champ Title
ControlSend ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:11]", "$musicNamesFoldersArray[$n]")
;On écrit la valeur de la variable $musicNamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:10]", button = "left" [, clicks = 1 [, 522 [, 354]]]] )
;Clic Champ Artist
ControlSend ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:10]", "$artistsNamesFoldersArray[$j]")
;On écrit la valeur de la variable $artistsNamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:9]", button = "left" [, clicks = 1 [, 252 [, 378]]]] )
;Clic Champ Album
ControlSend ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:9]", "$albums2NamesFoldersArray[$l]")
;On écrit la valeur de la variable $albums2NamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:8]", button = "left" [, clicks = 1 [, 143 [, 402]]]] )
;Clic Champ Année
ControlSend ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:8]", "$anneeNamesFoldersArray[$m]")
;On écrit la valeur de la variable $anneeNamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:Edit; INSTANCE:2]", button = "left" [, clicks = & [, 1333 {, 328]]]] )
;Clic Champ Track Number
ControlSend ( "Tag Editor", "", "[CLASS:Edit; INSTANCE:2]", "$trackNamesFoldersArray[$o]")
;On écrit la valeur de la variable $trackNamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:TButton; INSTANCE:12]", button = "left" [, clicks = 1 [, 1446 [, 507]]]] )
;Clic Boutton Add (ajouter une cover)
ControlClick ( "Find art file.", "", "[CLASS:DirectUIHWND; INSTANCE:2]", button = "left" [, clicks = 1 [, 227 [, 173]]]] )
;Clic Sur la cover
ControlClick ( "Find art file.", "", "[CLASS:Button; INSTANCE:1]", button = "left" [, clicks = 1 [, 623 [, 472]]]] )
;Clic sur Ouvrir la cover
ControlClick ( "Tag Editor", "", "[CLASS:TButton; INSTANCE:4]", button = "left" [, clicks = 1 [, 1225 [,620]]]] )
;Clic sur Save
EndFunc

Func _GetMusicName($file)
    Local $tempArray, $c, $name
    $tempArray = StringSplit($file,".")
    If IsArray($tempArray) Then
        For $c = 1 To $tempArray[0]-1
            $name &= $tempArray[$c]
        Next
        Return $name
    EndIf
    Return $file

 EndFunc

 

J'aurai besoin de savoir comment compléter cette ligne :
Global $NbrMorc=
; A COMPLETER !!! NbrMorc = le nombre de fichiers (morceaux) dans le dossier album!!!

De ce fait je pourrai enlever mon Warning

Ensuite, la principale cause de mes erreurs sont des erreurs de synthaxe :
"C:\Users\LALALA\Desktop\Tagger avancé1.au3"(165,91) : error: syntax error
ControlClick ( "Find art file.", "", "[CLASS:DirectUIHWND; INSTANCE:2]", button = "left" [,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\LALALA\Desktop\Tagger avancé1.au3"(165,105) : error: syntax error
ControlClick ( "Find art file.", "", "[CLASS:DirectUIHWND; INSTANCE:2]", button = "left" [, clicks = 1 [,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\LALALA\Desktop\Tagger avancé1.au3"(165,120) : error: syntax error
ControlClick ( "Find art file.", "", "[CLASS:DirectUIHWND; INSTANCE:2]", button = "left" [, clicks = 1 [, 227 [, 173]]]]

Elles sont donc toutes les mêmes, mais je ne comprends pas ce qu'il y a de mauvais la dedans ... ?
Est-ce que je dois enlever mes espaces ?

J'ai également beaucoup de :
error: Statement cannot be just an expression.
Si quelqu'un peut m'expliquer ce que ça veut dire ...
Une déclaration ne peux pas juste être une expression
Ca me le fait surtout aux endroits ou j'appèle mes fonctions ... Et où je met mes EndFunc ....


Merci beaucoup d'avance,

[mikell]

erreur 1

Code : Tout sélectionner

ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:11]", button = "left" [, clicks = 1 [, 592 [, 329]]]] )

Dans l'aide les crochets indiquent que le paramètre est optionnel. Si tu inscris le paramètre faut pas mettre de crochets

Code : Tout sélectionner

ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:11]", "left", 1, 592, 329)

erreur 2
Une déclaration de fonction doit toujours comporter des parenthèses
Func _TaggMorc => Func _TaggMorc()

[orax]

Global $NbrMorc=
; A COMPLETER !!! NbrMorc = le nombre de fichiers (morceaux) dans le dossier album

Si juste des fichiers musicaux tu as, alors les compter de cette façon tu peux : clic droit > Propriétés (ou Alt+Entrée) sur le dossier album, faire tu devras. Et solution tu auras.

[mikell]

Un peu plus simple peut-être ceci est

Code : Tout sélectionner

Msgbox(0,"", DirGetSize($album, 1)[1] )

[orax]

Effectivement c'est mieux.

J'ai fait l'essai sur un dossier : avec l'explorateur j'ai 3 007 fichiers et avec DirGetSize j'ai 3 013 fichiers.
Les liens symboliques sur les dossiers et les jonctions sont comptés comme des fichiers avec DirGetSize. Normal ou pas, je n'ai pas vu d'avertissement dans la doc.

[MisterP]

@Mikell : Merci !! Je suis en train de corriger ma syntaxe !

Ensuite pour l'histoire du :
Global $NbrMorc=
; A COMPLETER !!! NbrMorc = le nombre de fichiers (morceaux) dans le dossier album
On va compliquer un peu la chose (comme si c'était pas assez dur comme ça ... )

Dans mes dossiers albums, j'ai X fichiers mais le nombre de morceaux est en réalité X-1, parce que j'ai 1 fichier qui est en réalité un .PNG qui est la cover de l'album, que je supprime par la suite (il faudra donc que je fasse aussi un script pour ça ! Mais il sera plus facile )
Est ce qu'une chose de cette sorte marcherait ? :
Global $NbrMorc
$NbrMorc = DirGetSize ($albumsNamesFoldersArray[$k])
$NbrMorc -= 1

faire tu devras. Et solution tu auras

Jeune padawan essai !!!

[MisterP]

Hop hop hop ! Je corrige l'erreur dite 2.
Et pouf ! 10 erreurs de moins !
Ahhh... si tout pouvais être si facile ! 4 parenthèses rajoutées et 10 erreurs de moins !

Pour l'erreur dite 1, je supprime mes caractères en trop.
Quelques minutes plus tard, c'est fait !

Je corrige quelques autres petits trucs bêtes que je n'aurai pas du laisser passer ...

Et me revoilà avec 2 erreurs :
La première qui est celle qu'il me faut compléter (la valeur de NbrMorc)
Et la deuxième qui est la suivante, une faute qui n'a pas lieu d'être ... Je reste perplexe devant cette "faute" ...
error: syntax error (illegal character)
ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TComboEdit; INSTANCE:1]",
"C:\Users\LALALA\Desktop\$mainMusicFoldersArray[$i]"\

Apparemment il ne veux pas me gobber ma barre ... Sauf que je fais comment moi pour lui spécifier mon chemin de dossier ...
Une autre question que je me pose, ne devrais-je pas enlever les guillemets autour des mes \ ? (dans la ligne de code ci-dessus et la complète ci-dessous : )
"C:\Users\LALALA\Desktop\$mainMusicFoldersArray[$i]"\"$artistsNamesFoldersArray[$j]"\"$albumsNamesFoldersArray[$k]")

Je viens de tester sans les guillemets, plus d'erreur !
Mais est-ce que c'est réellement bon ? ...

Ca sent la fin !!


EDIT : RAJOUT DU CODE !!

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

; INCLUDES

Opt("WinTitleMatchMode", 2)

;Fonction a mettre en tête de script, sinon ça détruit tous les Title des Control !!!

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Music Tagger", 342, 233, 192, 124)
Global $Input1 = GUICtrlCreateInput("", 96, 32, 121, 21)
Global $Button2 = GUICtrlCreateButton("Parcourir", 224, 32, 68, 25)
Global $Label1 = GUICtrlCreateLabel("WavDatabase", 15, 35, 80, 20)
Global $Button1 = GUICtrlCreateButton("Tagg All !", 128, 160, 75, 25)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; GUI

Global $artistsNamesFoldersArray, $albumsNamesFoldersArray, $albums2NamesFoldersArray, $anneeNamesFoldersArray, $musicNamesFoldersArray, $trackNamesFoldersArray
Global $musicsArray, $temp, $i, $j, $k, $e, $l, $m, $n, $o
Global $counter1=0
Global $counter2=3
Global $NbrMorc=
; A COMPLETER !!! NbrMorc = le nombre de fichiers (morceaux) dans le dossier album!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Global $counter3=1

;DECLARATION VARIABLES

While 1
    $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Button2
                _Parcourir ()
            Case $Button1
                _Tagg ()
                MsgBox(0, "Info Script", "Fini ! ;p ", " fichier ")

        EndSwitch
WEnd
Func _Parcourir()
    Global $mainMusicFoldersArray[2] = [1, FileSelectFolder("Sélectionne ta WavDatabase", "")]
    GUICtrlSetData($Input1, $mainMusicFoldersArray[1])
EndFunc

;COEUR SCRIPT

Func _Tagg()


For $i = 1 To $mainMusicFoldersArray[0]
    $artistsNamesFoldersArray = _FileListToArray($mainMusicFoldersArray[$i],"*",2)
    If IsArray($artistsNamesFoldersArray) Then
        For $j = 1 To $artistsNamesFoldersArray[0]
            $albumsNamesFoldersArray = _FileListToArray($mainMusicFoldersArray[$i] & "\" & $artistsNamesFoldersArray[$j],"*",2)
            If IsArray($albumsNamesFoldersArray) Then
                For $k = 1 To $albumsNamesFoldersArray[0]
                    $musicsArray = _FileListToArray($mainMusicFoldersArray[$i] & "\" & $artistsNamesFoldersArray[$j] & "\" & $albumsNamesFoldersArray[$k],"*.wav",1)
                    If IsArray($musicsArray) Then
                        For $e = 1 To $musicsArray[0]
                            ; On mets tous/toutes les artistes , albums , musiques dans un tableau

                            $albums2NamesFoldersArray[$l] = Stringtrimright ( "$albumsNamesFoldersArray[$k]", 7)
                            ; On sépare le nom de l'album de l'année de l'album (nom de base étant : [NomAlbum] ([Année]) --> On ne prends que le NOM DE L ALBUM. 7 (4 chiffres, 2 parenthèses, 1 espace)

                            $anneeNamesFoldersArray[$m] = StringTrimRight ( "$albumsNamesFoldersArray[$k]", 1)
                            ; On sépare le nom de l'album de l'année de l'album (nom de base étant : [NomAlbum] ([Année]) --> On ne prends que l'ANNEE DE L ALBUM
                            ; On vient de supprimer la parenthèse située tout à droite de l'année, ce qui nous donne : [NomAlbum] ([Année]  <-- parenthèse manquante
                           If Not StringIsDigit ( "$anneeNamesFoldersArray[$m]" ) Then
                            $anneeNamesFoldersArray[$m] = StringTrimLeft ( "$albumsNamesFoldersArray[$k]", $counter1)
                              $counter1 += 1
                           EndIf
                            ;Si la chaîne de caractère n'est pas que des chiffres, alors on supprime un caractère de plus
                            ;Donc a partir d'ici, on a : Artiste , Album , Année
                            $counter1=0
                            ;On remet au compteur 1 sa valeur d'origine.

                            $musicNamesFoldersArray[$n] = StringTrimLeft ( "_GetMusicName($file)", 5)
                            ;On supprime les 5 caractères les plus a gauche à savoir : [N°] - Donc on se retrouve juste avec le nom de la musique sans le numéro de track
                            $trackNamesFoldersArray[$o] = StringTrimRight ( "_GetMusicName($file)", $counter2)
                            If Not StringIsDigit ( "$trackNamesFoldersArray[$o]" ) Then
                               $counter2 += 1
                            EndIf
                            ;Si la chaine de caractère n'est pas que des chiffres, alors on supprime un caractère de plus. Le compteur commence à 3 car il faut supprimer au minimum " - "
                            ;Voilà, on a donc maintenant le numéro (track) et le nom exacte de la musique, avec le numéro de track enlevé
                            $counter2=3
                            ;On remet au compteur 2 sa valeur d'origine

                            ShellExecute ( "C:\Program Files (x86)\TagRename\TagRename.exe")
                            Sleep (10000)
                            ControlClick ( "Tag&Rename 3.8.1", "", "[CLASS:TButton; TEXT:I agree; INSTANCE:4]", "left", 1)
                            ;Clic sur le bouton I agree
                            ;Tag&Rename EST OUVERT !!!
                            _TaggAlb ()

                        Next
                    EndIf
                Next
            EndIf
        Next
     EndIf
  Next

EndFunc

; $artistsNamesFoldersArray[$j]   $albumsNamesFoldersArray[$k]    _GetMusicName($musicsArray[$e]) Ne pas prêter attention , ce sont des petites notes

Func _TaggAlb()
ControlClick ( "Tag&Rename 3.8.1", "", "[CLASS:TComboEdit; INSTANCE:1]", "left", 1, 466, 301)
;Clic dans le champ pour spécifier le chemin d'un dossier
ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TComboEdit; INSTANCE:1]", "C:\Users\LALALA\Desktop\$mainMusicFoldersArray[$i]\$artistsNamesFoldersArray[$j]\$albumsNamesFoldersArray[$k]")
;On donne le chemin du premier dossier
ControlClick ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]", "left", 1, 1554, 374)
;On clic tout a droite du champ du premier morceau, si on clik dessus directement, ça le renomme... En gros : on désélectionne la sélection de base faite par Tag = (tous les .wav).
ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]", "{UP}")
;Touche flèche du haut, sélection du tout premier morceau
_TaggMorc ()
;On appelle la fonction qui permet de tagger un morceau, on a donc sélectionner le premier morceau et on l'a taggé.
   If Not $counter3=$NbrMorc Then
      ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]", "{DOWN}")
      ;Touche flèche du bas, sélection du morceau situé en dessous
      _TaggMorc ()
      $counter3+=1
   EndIf
   ;Si le compteur n'a pas la valeur du nombre de morceau de l'album alors on sélectionne le morceau suivant, on le tagg et on ajoute 1 au compteur
   ;Ca permet donc tagger tous les morceaux de l'albums sans tagger dans le vide ou ne pas en tagger
$counter3=1
;On remet au compteur 3 sa valeur d'origine
   EndFunc

Func _TaggMorc()
ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]", "{ENTER}")
;TOUCHE ENTREE !
ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:11]", "left", 1, 592, 329)
;Clic Champ Title
ControlSend ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:11]", "$musicNamesFoldersArray[$n]")
;On écrit la valeur de la variable $musicNamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:10]", "left", 1, 522, 354)
;Clic Champ Artist
ControlSend ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:10]", "$artistsNamesFoldersArray[$j]")
;On écrit la valeur de la variable $artistsNamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:9]", "left", 1, 252, 378)
;Clic Champ Album
ControlSend ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:9]", "$albums2NamesFoldersArray[$l]")
;On écrit la valeur de la variable $albums2NamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:8]", "left", 1, 143, 402)
;Clic Champ Année
ControlSend ( "Tag Editor", "", "[CLASS:TEdit; INSTANCE:8]", "$anneeNamesFoldersArray[$m]")
;On écrit la valeur de la variable $anneeNamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:Edit; INSTANCE:2]", "left", 1, 1333, 328)
;Clic Champ Track Number
ControlSend ( "Tag Editor", "", "[CLASS:Edit; INSTANCE:2]", "$trackNamesFoldersArray[$o]")
;On écrit la valeur de la variable $trackNamesFoldersArray
ControlClick ( "Tag Editor", "", "[CLASS:TButton; INSTANCE:12]", "left", 1, 1446, 507)
;Clic Boutton Add (ajouter une cover)
ControlClick ( "Find art file.", "", "[CLASS:DirectUIHWND; INSTANCE:2]", "left", 1, 227, 173)
;Clic Sur la cover
ControlClick ( "Find art file.", "", "[CLASS:Button; INSTANCE:1]", "left", 1, 623, 472)
;Clic sur Ouvrir la cover
ControlClick ( "Tag Editor", "", "[CLASS:TButton; INSTANCE:4]", "left", 1, 1225,620)
;Clic sur Save
EndFunc

Func _GetMusicName($file)
    Local $tempArray, $c, $name
    $tempArray = StringSplit($file,".")
    If IsArray($tempArray) Then
        For $c = 1 To $tempArray[0]-1
            $name &= $tempArray[$c]
        Next
        Return $name
    EndIf
    Return $file

 EndFunc

 

[mikell]

Flemme de regarder le code mais (en principe) voilà la syntaxe correcte pour ce que tu mentionnes :

Code : Tout sélectionner

"C:\Users\LALALA\Desktop\" & $mainMusicFoldersArray[$i] & "\" & $artistsNamesFoldersArray[$j] & "\" & $albumsNamesFoldersArray[$k]

Et pour le nombre de fichiers, non mais sérieusement, j'ai pas vu le code mais y a pas un moment où tu listes ces fichiers dans une array ? selon la fonction utilisée pour obtenir l'array, ce nombre sera donné ou bien par $array[0] ou bien par UBound($array)

[MisterP]

J'ai mis :

Code : Tout sélectionner

C:\Users\LALALA\Desktop\$mainMusicFoldersArray[$i]\$artistsNamesFoldersArray[$j]\$albumsNamesFoldersArray[$k]

C'est bon ou pas ? (ça m'enlève l'erreur) parce que sinon il ne m'accepte pas le "\ le premier guillemet il me le prends, le slash aussi mais le deuxième guillemet il veux pas ...

Pour ce qui concerne le nombre de fichiers, je fais des array, mais il me faut enlever 1 a la valeur, c'est possible ?
Si oui, je pense qu'il me faut utiliser $tempsArray ? (a la toute fin du code, dans la fonction _GetMusicName($file)
Je dois déclarer en Global et pas Local mes valeurs et je prends $tempArray[0] ensuite je met $NbrMorc = $tempArray[0], c'est censé marcher ?
En plus, dans mon Renamer, le script ne renomme que mes .wav donc même pas besoin de faire -1

Merci d'avance,

[MisterP]

UP
Quelqu'un peut me confirmer ce que j'ai écrit plus haut, svp ?

[Faco]

Salut,
Non pour concaténer une chaine de caractère avec des variables c'est comme la écrit mikell.

[MisterP]

Salut,
Non pour concaténer une chaine de caractère avec des variables c'est comme la écrit mikell.

D'accord , merci
Mais j'ai un problème quand je fais tel qu'il a écrit , j'ai une erreur qui apparaît : Illegal Caracter ...
Il n'accepte pas le slash ou le guillemet qui est après le slash ...

Comment régler ce problème ? svp

[orax]

T'as réessayé ? Car il me semble que mikell avait laissé un " de trop à la fin de son code (...$albumsNamesFoldersArray[$k]"), mais là il n'y est plus donc ça doit marcher.

[Faco]

je sais pas trop, rajoute un consoleWrite à l’endroit où tu utilise ta chaine de caractère, tu verras bien si il y a une erreur :

► Afficher le texte

Code : Tout sélectionner

ConsoleWrite("C:\Users\LALALA\Desktop\" & $mainMusicFoldersArray[$i] & "\" & $artistsNamesFoldersArray[$j] & "\" & $albumsNamesFoldersArray[$k] & @CRLF)