[..] Script : Tagger.

[MisterP]

Bon voilà, alors après un peu de réflexion, je décide de partir sur ma méthode qui devrait normalement être fonctionnelle.

Donc quelques bidouilles , hop , hop , hop ! Et pouf nous voilà avec un GUI avec les bons nom de bouton, et il ne reste plus qu'a compléter la Fonction Tagg (soit le coeur du 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

#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
Global $musicsArray, $musicNumber, $temp, $i, $j, $k, $e

;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()

EndFunc

 

Voilà donc je m'attaque maintenant à la fonction Tagg !

[MisterP]

http://www.liberkey.com/fr/catalogue/au ... anner.html

http://www.liberkey.com/fr/catalogue/au ... p3tag.html

J'ai testé le deux parce que la fenêtre de tag&rename qui pop quand tu double clic c'était pas le top.

Mon préféré des 2 est TagScanner, mais hélas , les 2 logiciels ne me seront d'aucune utilité ...
--> Ils ne font pas les .Wav .... Seulement le mp3 et c'est nul le mp3 ... c'est du 320 la qualité CD ça change ta vie , et celle de tes oreilles aussi

[orax]

Il y a aussi le FLAC au lieu du WAV. Ça serait quand même moins lourd.
https://fr.wikipedia.org/wiki/Free_Lossless_Audio_Codec

[MisterP]

@ Orax, oui mais je vais jusque 24b , le FLAC s'arrête a 16b


J'aurai besoin de savoir si un ControlID est toujours le même pour la même application, ou si c'est un hasard que AutoIt m'ai indiqué le même ControlID pour Tag&Rename 2 fois d'affilé ?

Je voulais également savoir , comment ne pas prendre une partie du nom d'un fichier ?
J'aimerai que mes dossiers Albums ne possèdent que leurs noms et pas : [NomAlbum] ([année]) Il me faudrait donc supprimer 7 caractères.
Cependant je ne souhaite pas que le nom sois modifié, le nom doit rester tel quel, c'est juste le tableau qui doit prendre le nom de l'album sans l'année.
Est il possible de stocker le nom dans une variable, renommer le dossier en enlevant les 7 caractères puis a la fin du script remettre le nom comme avant ?
Sachant qu'il me faudra faire également l'opération inverse car il me faudra après que l'année et donc supprimer une parenthèse d'un côté et tous les caractères sauf les 4 chiffres ?

Je me demandais aussi, comment faire pour que lorsque je dois rentrer dans mes champs vides les valeurs de mes variables que ce soit la bonne qui tombe ?? ...
Exemple si c'est un morceau de mariah carey , il faut obligatoirement que ce soit la bonne valeur du tableau qui soit rentré dans mon champ vide (artiste) , soit Mariah Carey.
De même pour l'album , l'année , et le nom du morceau ....

Parce que pour le moment tout ce que je sais faire c'est stocker les valeurs (et encore, il faut que je vous jointe le nouveau Code parce qu'il est fortement possible qu'il y ait des erreurs), et clicker dans les champs (remplir les clicks avec la postion donnée c'est pas trop compliqué)

Je cherchais également comment utiliser une lettre du clavier (pas rentrer une valeur, par exemple juste utiliser la touche flèche du bas) en background dans une fenêtre, comme ca tout le script marcherait en background

[jchd]

Carey en upsampling

[overflow]

pour la manipulation des chaines de caractere

https://www.autoitscript.com/autoit3/do ... gement.htm

[MisterP]

Carey en upsampling

Bah quoi ?

pour la manipulation des chaines de caractere

https://www.autoitscript.com/autoit3/do ... gement.htm

Merci !
J'espère mettre un Code sur le forum d'ici ce soir avec mon avancement et si possible avoir fini avec les Arrays, mais c'est pas gagné

[MisterP]

J'ai un avancé, avant de continuer plus loin j'aimerai savoir si ce que j'ai fait est juste
Je pense que ça devrais être bon.
Tout compte fait, je me moque que mon script tourne en background, au pire je laisserai tourner le pc une nuit et puis voilà , les ControlID changent à chaque fois, et c'est prise de tête...
J'aurai également besoin de savoir comment simuler l'appui d'une touche sur un clavier exemple : Simuler l'appui de la flèche du bas, de la touche Entrée.

Merci d'avance,

► 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

#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
Global $musicsArray, $musicNumber, $temp, $i, $j, $k, $e, $l, $m
Global $anneeFoldersArray, $counter1=0
Global $counter2=0

;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
                           $anneeFoldersArray[$m] = StringTrimLeft ( "$albumsNamesFoldersArray[$k]", $counter1)
                           If Not StringIsDigit ( "$anneeFoldersArray[$m]" ) Then
                              $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 , NomChanson (cf Func _GetMusicName plus bas), soit tout ce qu'il faut pour tagger


                           ;POSITION DANS TAG&RENAME : Barre de Recherche Dossier : 466, 301
                           ;POSITION DANS TAG&RENAME : 1er morceau : 343 377
                           ;POSITION DANS TAG&RENAME : Champ Title (la ou il faut mettre le nom du morceau) : 592 329
                           ;POSITION DANS TAG&RENAME : Champ Artist : 522 354
                           ;POSITION DANS TAG&RENAME : Champ Album : 539 377
                           ;POSITION DANS TAG&RENAME : Champ Année : 143 402
                           ;POSITION DANS TAG&RENAME : Boutton Add pour ajouter une cover : 1446 507
                           ;POSITION DANS TAG&RENAME : Boutton Save : 1225 616
                           ;POSITION DANS TAG&RENAME : Endroit Image Cover : 227 173
                           ;POSITION DANS TAG&RENAME : Boutton Ouvrir (img cover) : 623 472

                        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 _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

 

[orax]

Pour simuler un appui sur une touche, Send() et ControlSend() seront tes amis.

les ControlID changent à chaque fois, et c'est prise de tête...

Pas grave. Le paramètre controlID n'attend pas spécialement un ID.
Exemple tiré de la doc :
Clique sur la 2ème instance d'un bouton qui contient « Finish ».

Code : Tout sélectionner

ControlClick("My Window", "", "[CLASS:Button; TEXT:Finish; INSTANCE:2]")

[MisterP]

Pour simuler un appui sur une touche, Send() et ControlSend() seront tes amis.

D'accord ! Merci beaucoup ! je vais desuite essayer ça Et le rajouter dans mon script

les ControlID changent à chaque fois, et c'est prise de tête...Pas grave. Le paramètre controlID n'attend pas spécialement un ID.

Super !!! Les Instances n'ont pas l'air de changer en plus .
Par contre si je met juste l'instance et la Class , c'est bon ?? Parce que le truc c'est que les Title des fenêtres pour tagger, changent à chaque fois...
Exemple :
Tag Editor [C:\Users\TRALALALA\Desktop\Gros Dossier Factice\Adèle\21 (2014)\10 - Lovesong.wav]
Donc pour cette fenêtre (tagg) à la limite on peux se débrouiller avec les variables, mais pour la fenêtre même de Tag&Rename ça risque d'être compliqué

[mikell]

ControlClick("Tag Editor", ... etc)
ça marche aussi si tu ne mets que le début du titre - et qu'il n'existe pas d'autre fenêtre dont le nom commence par "Tag Editor"

[MisterP]

Bon ben j'ai encore un peu avancé
J'ai décidé d'ajouter 2 fonctions (1 est en cours de réalisation, l'autre pas commencée) : TaggMorc (pour tagger un morceau) TaggAlb (pour tagger l'album, donc TaggMorc sera évidemment compris dans TaggAlb)

J'ai un problème avec ma fonction Run ... Ca marche pour le notepad, mais pour Tag&Rename, nada ...
J'ai beau mettre "TagRename.exe" , TagRename Tag&Rename.exe ou encore Tag&Rename , rien ...
C'est bizarre ...

Mikell, Tag Editor doit être au débtu du titre ou si il est dans le titre c'est bon ?
Parce que je dois faire pareil pour la fenêtre même de Tag&Rename, sauf que le début c'est une variable, au contraire de Tag Editor justement
En tout cas merci, je vais pouvoir finir de compléter quelques trucs

Voici l'avancement de ce matin :

► 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

#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, $anneeFoldersArray, $musicnameFoldersArray, $trackFoldersArray
Global $musicsArray, $temp, $i, $j, $k, $e, $l, $m, $n, $o
Global $counter1=0
Global $counter2=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
                            $anneeFoldersArray[$m] = StringTrimLeft ( "$albumsNamesFoldersArray[$k]", $counter1)

                           If Not StringIsDigit ( "$anneeFoldersArray[$m]" ) Then
                              $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 , NomChanson (cf Func _GetMusicName plus bas), soit tout ce qu'il faut pour tagger

                            Run ("TagRename.exe")
                            Sleep (10000)
                            ControlClick ( "", "", "[CLASS:TButton; TEXT:I agree; INSTANCE:4]")
                            ;Clic sur le bouton I agree
                            ControlClick ( "", "", "[CLASS:TComboEdit; INSTANCE:1]", button = "left" [, clicks = 1 [, 466 [, 301]]]] )
                            ;Clic dans le champ pour spécifier le chemin d'un dossier
                            ControlSend ( "", "", "[CLASS:TComboEdit; INSTANCE:1]", "C:\Users\LALALA\Desktop\$mainMusicFoldersArray[$i] & "\" & $artistsNamesFoldersArray[$j] & "\" & $albumsNamesFoldersArray[$k] & ")
                            ;On donne le chemin du premier dossier
                            ControlClick ( "", "", "[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... On désélectionne la sélection de base faite pas Tag, (tous les .wav).
                            ControlSend ( "", "", "[CLASS:TMusicFilesList; INSTANCE:1]",
                            ;TOUCHE FLECHE DU HAUT !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                            ;On sélectionne maintenant le premier morceau
                            _TaggMorc
                            ;On appelle la fonction qui permet de tagger un morceau
                        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 _TaggMorc
ControlSend ( "", "", "[CLASS:TMusicFilesList; INSTANCE:1]",
;TOUCHE ENTREE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ControlClick ( "", "", "[CLASS:TEdit; INSTANCE:11]", button = "left" [, clicks = 1 [, 592 [, 329]]]] )
;Clic Champ Title
ControlSend ( "", "", "[CLASS:TEdit; INSTANCE:11]", "

ControlClick ( "", "", "[CLASS:TEdit; INSTANCE:10]", button = "left" [, clicks = 1 [, 522 [, 354]]]] )
;Clic Champ Artist
ControlSend ( "", "", "[CLASS:TEdit; INSTANCE:10]", "

ControlClick ( "", "", "[CLASS:TEdit; INSTANCE:9]", button = "left" [, clicks = 1 [, 252 [, 378]]]] )
;Clic Champ Album
ControlSend ( "", "", "[CLASS:TEdit; INSTANCE:9]", "

ControlClick ( "", "", "[CLASS:TEdit; INSTANCE:8]", button = "left" [, clicks = 1 [, 143 [, 402]]]] )
;Clic Champ Année
ControlSend ( "", "", "[CLASS:TEdit; INSTANCE:8]", "
;
ControlClick ( "", "", "CLASS:
;Clic Champ Track Number
ControlSend (
;
ControlClick ( "", "", "[CLASS:TButton; INSTANCE:12]", button = "left" [, clicks = 1 [, 1446 [, 507]]]] )
;Clic Boutton Add (ajouter une cover)
ControlClick ( "", "", "[CLASS:DirectUIHWND; INSTANCE:2]", button = "left" [, clicks = 1 [, 227 [, 173]]]] )
;Clic Sur la cover
ControlClick ( "", "", "[CLASS:Button; INSTANCE:1]", button = "left" [, clicks = 1 [, 623 [, 472]]]] )
;Clic sur Ouvrir la cover
ControlClick ( "", "", "[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
 

Je continue cette apreme

[overflow]

tout comme la gestion des chaines , la reponse est dans la doc ....

https://www.autoitscript.com/autoit3/do ... ns/Run.htm

[MisterP]

tout comme la gestion des chaines , la reponse est dans la doc ....

https://www.autoitscript.com/autoit3/do ... ns/Run.htm

Je ne trouve pas la réponse ... Elle doit forcément se trouver dans la partie que je ne comprends pas ... Soit, celle-ci :

► Afficher le texte

Remarks
Paths with spaces need to be enclosed in quotation marks.

To run DOS (console) commands, try Run(@ComSpec & " /c " & 'commandName', "", @SW_HIDE) ; don't forget " " before "/c"

After running the requested program the script continues. To pause execution of the script until the spawned program has finished use the RunWait() function instead.

Providing the Standard I/O parameter with the proper values permits interaction with the child process through the StderrRead(), StdinWrite() and StdoutRead() functions. Combine the flag values (or use $STDERR_CHILD, $STDIN_CHILD & $STDOUT_CHILD, defined in Constants.au3) to manage more than one stream.

In order for the streams to close, the following conditions must be met: 1) The child process has closed its end of the stream (this happens when the child closes). 2) AutoIt must read any captured streams until there is no more data. 3) If STDIN is provided for the child, StdinWrite() must be called to close the stream. Once all streams are detected as no longer needed, all internal resources will automatically be freed.
StdioClose() can be used to force the STDIO streams closed.

[mikell]

Je ne trouve pas la réponse ...

Run ( "program" [, "workingdir" [, show_flag [, opt_flag]]] )
program : The full path of the program (EXE, BAT, COM, or PIF) to run
Mais tu pourrais aussi utiliser ShellExecute

Mikell, Tag Editor doit être au début du titre ou si il est dans le titre c'est bon ?

Si "Tag Editor" peut être ailleurs qu'au début du titre, tu dois mettre en tête de script

Code : Tout sélectionner

Opt("WinTitleMatchMode", 2)

Tu dois remplir ce paramètre 'titre' dans toutes les fonctions Control*

[MisterP]

D'accord, ben alors je vais faire ça, je vais utiliser le ShellExecute
Parce que je comprends pas, avec le notepad, ca marche en mettant Notepad.exe , (qui est le nom complet) donc avec Tag&Rename si je met "TagRename.exe" c'est censé marcher alors que ça ne marche pas ... (pourtant j'ai bien revérifié, et c'est bien le nom exact et complet du .exe ...

Tu dois remplir ce paramètre 'titre' dans toutes les fonctions Control*

Oui papa

D'accord , merci ! Je rajoute ça !!

[orax]

Full path = chemin complet. Ce n'est pas seulement le nom complet de l'exécutable.
Donc ça sera plutôt un truc du genre : "C:\Program Files (x86)\Tag&Rename\Tag&Rename.exe".

[mikell]

je comprends pas, avec le notepad, ca marche

Notepad a un statut d'application système. Avec celles-ci on peut se permettre des frivolités

Code : Tout sélectionner

run("regedit")
run("notepad")

[MisterP]

C'est encore moi !
Bon alors même avec ça, ça ne marche pas :
Run ( ""C:\Program Files (x86)\TagRename\TagRename.exe"")
Problème :
C:\Users\LALALA\Desktop\TEST.au3 (1) : ==> Unable to parse line.:
Run ( ""C: \Program Files (x86)\TagRename\TagRename.exe"")
Run ( ""C: ^ ERROR
>Exit code: 1 Time: 0.05868

Mais bon , c'est plus un problème, vu que je passe par ShellExecute et que ça marche parfaitement !
ShellExecute ( "C:\Program Files (x86)\TagRename\TagRename.exe")

Donc pour ce soir :
Func TaggMorc , finie !
Il me reste donc a faire la Func TaggAlb
-Test de SyntaxCheckProd (Eh ben j'ai du boulot ^^)
Normalement dès que j'ai fini ma Fun TaggAlb, je n'ai plus qu'a refaire du SyntaxCheckProd et ça devrait être bon
Demain je ne suis malheureusement pas chez moi, donc je vais essayer d'avancer sur support papier, et je rédigerai tout ça le soir en rentrant dans mon script et mettrai mon code sur le forum.

Le Code à ce jour :

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

;Chose a mettre en tête de script, sinon ça foire 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

;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
                            $anneeFoldersArray[$m] = StringTrimLeft ( "$albumsNamesFoldersArray[$k]", $counter1)
                           If Not StringIsDigit ( "$anneeNamesFoldersArray[$m]" ) Then
                              $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

                            $musicNamesFoldersArray[$n] = StringTrimLeft ( "_GetMusicName($file)", 5)
                            ;On supprime les 5 caractères les plus a gauche à savoir : [N°] - Donc on se retrouver 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é

                            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 !!!


                            ;FONCTION _TaggAlb A FAIRE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                            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]",
                            ;TOUCHE FLECHE DU HAUT !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                            ;On sélectionne maintenant le premier morceau
                            _TaggMorc
                            ;On appelle la fonction qui permet de tagger un morceau
                        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 _TaggMorc
ControlSend ( "Tag&Rename 3.8.1", "", "[CLASS:TMusicFilesList; INSTANCE:1]",
;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

 

[orax]

Run ( ""C:\Program Files (x86)\TagRename\TagRename.exe"")
C'est pour la décoration les 2 "" ?

Donc pour ce soir :
Func TaggMorc , finie !

Non non !! Pas si vite !

Code : Tout sélectionner

C:\...\test2.au3 - 43 error(s), 1 warning(s)
!>23:48:29 AU3Check ended. Press F4 to jump to next error.rc:2

Avec 43 erreurs, ce n'est pas le moment d'aller dormir !