[R] Un script pour sauver ma semaine

[mouch]

Bonjour a tous.

J'ai un travail tres laborieux a faire. Mais le script devrait etre relativement simple.

Dans la fenêtre (2) j'ai une liste de fichier. Je dois en ouvrir certains et modifier juste 7 lettres sur une ligne.
Mais je dois faire cela pour 300 fichiers.

Voila le fonctionnement du script que j'aimerais avoir/

-Au lancement le script tourne en bouche et ne réagit que si je clique sur la molette+clique gauche, ou l'arrête avec Esc.

-Si je clique sur la molette+clique gauche cela drag le fichier sur lequel j'ai cliqué de 400 pixels vers le bas (la ou je place approximativement mon éditeur de texte Notepad++).

-Le script clique a l'endroit ou le fichier a été déplace pour mettre l'éditeur de texte au premier plan.

-Il cherche la ligne contenant "$_POST['pass']=='*******'" et remplace ce qu'il y a entre les simple quotes ( les *, non pas le mot "pass") par autre chose. Par soucis de confidentialité (on ne sait jamais ^^) j'aimerais qu'il soit indiqué dans le code l'endroit ou il faut écrire ce qui remplacera les '*' pour que je puisse le faire moi même.

-Le script envoie en suite la combinaison de touche Ctrl+s toujours dans l'éditeur de texte.

Merci de m'avertir si je n'ai pas donné assez d'explications. je reste a l'écoute.

Et merci pour toute aide

[mouch]

J'aimerais tout de même proposer quelques améliorations.
après avoir envoyé Ctrl+s le script reviens sur FileZilla et double clique a l'endroit ou j'ai fait molette+clique gauche

[PandiPanda]

Vous voulez absolument passer par un click au niveau de la molette + clik gauche?
c'est faisable, mais il y'a un plus grand risque de bug quand passant par un touche clavier ... (qui est bien plus facile )

De plus, vous devez absolument passer par Notepad++ ? il n'est pas possible de récuperer le "path" du fichier à modifié ? (afin d'utiliser un FileRead() et/ou FileWrite())

Pouvez vous tester AutoitWindowInfo ? (en le positionnant sur la fenêtre en question)

[mouch]

allons y pour un raccourci plus simple. la touche Ctrl suffira. j'avais en tète qu'un raccourcis clavier me pauserait problème. pour ce qui est du chemin absolu, il change tout le temps, je navigue entre les sous dossiers.
et j'utilise notepad++ par habitude mais si cela pause problème je peux utiliser un autre éditeur.
la seule info supplémentaire que je puisse donner c'est que le fichier sur lequel je souhaite effectuer des modifications s'appel toujours index.php

[PandiPanda]

ceci devrai vous convenir;

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{ESC}","_Quitter")
HotKeySet("{F1}","_Faire")
Opt("WinTitleMatchMode", 2)

Global $Remplacement="changer moi ici"
Global $Pos_Mouse
Func _Quitter()
    Exit
EndFunc

Func _Faire()
    $Pos_Mouse=MouseGetPos()
    If IsArray($Pos_Mouse) Then
        MouseDown("left")
        MouseMove($Pos_Mouse[0],$Pos_Mouse[1]+400,3)
        MouseUp("left")
    EndIf
    Sleep(100)
    If WinExists("Notepad++") And Not WinActive("Notepad++") Then
        WinActivate("Notepad++")
        Do
            Sleep(50)
        Until WinActive("Notepad++")
    EndIf
    $path=StringReplace(WinGetTitle("Notepad++")," - Notepad++","")
    If $path <> "" Then
        Send("^w")
        _FileModif($path)
        If WinExists("FileZilla") And Not WinActive("FileZilla") Then
            WinActivate("FileZilla")
            Do
                Sleep(50)
            Until WinActive("FileZilla")
        EndIf
        Sleep(50)
        MouseClick("left",$Pos_Mouse[0],$Pos_Mouse[1],2,2)
    EndIf
EndFunc

while 1
    Sleep(50)
WEnd

Func _Replacement($str)
    Return StringReplace($str,"$_POST['pass']=='"&_StringBetween2String($str,"$_POST['pass']=='","'")&"'","$_POST['pass']=='"&$Remplacement&"'")
EndFunc

Func _FileModif($path)
    Local $file=FileOpen($path,0)
    If $file = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        Exit
    EndIf

    Local $str=FileRead($file)
    FileClose($file)
    $str=_Replacement($str)
    If $str <> "" Then
        $file=FileOpen($path,2)
        If $file = -1 Then
            MsgBox(0, "Error", "Unable to open file.")
            Exit
        EndIf
        FileWrite($file,$str)
        FileClose($file)
    EndIf
EndFunc
Func _StringBetween2String($String,$StringDebut,$StringFin,$caseSense=False)
    If ((IsString($String) And IsString($StringDebut) And IsString($StringFin)) And IsBool($caseSense)) Then
        Local $case=0
        If $caseSense Then
            $case=1
        EndIf
        If $StringDebut = "" Then
            Return StringMid ($String,1,(StringInStr($String,$StringFin,$case,1))-1)
        ElseIf $StringFin = "" Then
            Return StringMid ($String,(StringInStr($String,$StringDebut,$case))+StringLen($StringDebut))
        Else
            Local $debut=StringInStr($String,$StringDebut,$case)
            If @error = 0 Then
                Local $fin=StringInStr($String,$StringFin,$case,1,$debut)
                If $fin <> $debut Then
                    Local $realDebut=$debut+StringLen($StringDebut)
                    Return StringMid($String,$realDebut,$fin-$realDebut)
                EndIf
            EndIf
        EndIf
    EndIf
    SetError(1);erreur parametre
    Return ""
EndFunc

Il faudrai vérifier le temps pour les mouvement de la souris, comme le "drag" si trop rapide ou pas, et le double click.

ce que fait le script, Drag votre fichier dans notepad++ 400 pixel plus bas, ensuite il recupere le path de votre fichier, le modifie et vous retourner sur FileZilla double clicker.

J'ai pas fait de test étant donné que j'ai pas FileZilla ...

Edit: F1 permet de lancer le script, et ESC permet de le quitter
étant donné que le programme drag le fichier, il faudrai click sur le fichier et appuyer sur F1 ^.^

[mikell]

De plus, vous devez absolument passer par Notepad++ ? il n'est pas possible de récuperer le "path" du fichier à modifié ? (afin d'utiliser un FileRead() et/ou FileWrite())
Pouvez vous tester AutoitWindowInfo ? (en le positionnant sur la fenêtre en question

+1
Les MouseTruc et les Send c'est pas terrible
La fenêtre (2) c'est une Listview, donc on doit pouvoir récupérer le nom des fichiers, d'autant que le path semble écrit dans la barre de la fenêtre qui est juste au-dessus
Ensuite c'est évidemment beaucoup plus simple (et plus sûr) de passer par les fonctions File...

[mouch]

Le script fonctionne très bien. le seul hic c'est qu'il ferme la page ouverte dans notepad après l'avoir sauvegardée

quelle ligne faut-il modifier ? j'aimerais que la page reste ouverte.

[PandiPanda]

j'ai ajouter le fait de fermer la page, parceque le script modifie le fichier en dehor de notepad++ donc il faudra recharger le fichier si vous voulez le laisser ouvert ...

voici ;

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{ESC}","_Quitter")
HotKeySet("{F1}","_Faire")
Opt("WinTitleMatchMode", 2)

Global $Remplacement="changer moi ici"
Global $Pos_Mouse
Func _Quitter()
    Exit
EndFunc

Func _Faire()
    _Reload()
    $Pos_Mouse=MouseGetPos()
    If IsArray($Pos_Mouse) Then
        MouseDown("left")
        MouseMove($Pos_Mouse[0],$Pos_Mouse[1]+400,3)
        MouseUp("left")
    EndIf
    Sleep(100)
    If WinExists("Notepad++") And Not WinActive("Notepad++") Then
        WinActivate("Notepad++")
        Do
            Sleep(50)
        Until WinActive("Notepad++")
    EndIf
    $path=StringReplace(WinGetTitle("Notepad++")," - Notepad++","")
    If $path <> "" Then
;~      Send("^w")
        _FileModif($path)
        If WinExists("FileZilla") And Not WinActive("FileZilla") Then
            WinActivate("FileZilla")
            Do
                Sleep(50)
            Until WinActive("FileZilla")
        EndIf
        Sleep(50)
        MouseClick("left",$Pos_Mouse[0],$Pos_Mouse[1],2,2)
    EndIf
    _Reload()
EndFunc

while 1
    Sleep(50)
WEnd

Func _Replacement($str)
    Return StringReplace($str,"$_POST['pass']=='"&_StringBetween2String($str,"$_POST['pass']=='","'")&"'","$_POST['pass']=='"&$Remplacement&"'")
EndFunc

Func _Reload()
    If WinExists("Reload") Then ControlClick("[CLASS:#32770]","","[CLASS:Button; INSTANCE:1]","left",1)
EndFunc
Func _FileModif($path)
    Local $file=FileOpen($path,0)
    If $file = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        Exit
    EndIf

    Local $str=FileRead($file)
    FileClose($file)
    $str=_Replacement($str)
    If $str <> "" Then
        $file=FileOpen($path,2)
        If $file = -1 Then
            MsgBox(0, "Error", "Unable to open file.")
            Exit
        EndIf
        FileWrite($file,$str)
        FileClose($file)
    EndIf
EndFunc
Func _StringBetween2String($String,$StringDebut,$StringFin,$caseSense=False)
    If ((IsString($String) And IsString($StringDebut) And IsString($StringFin)) And IsBool($caseSense)) Then
        Local $case=0
        If $caseSense Then
            $case=1
        EndIf
        If $StringDebut = "" Then
            Return StringMid ($String,1,(StringInStr($String,$StringFin,$case,1))-1)
        ElseIf $StringFin = "" Then
            Return StringMid ($String,(StringInStr($String,$StringDebut,$case))+StringLen($StringDebut))
        Else
            Local $debut=StringInStr($String,$StringDebut,$case)
            If @error = 0 Then
                Local $fin=StringInStr($String,$StringFin,$case,1,$debut)
                If $fin <> $debut Then
                    Local $realDebut=$debut+StringLen($StringDebut)
                    Return StringMid($String,$realDebut,$fin-$realDebut)
                EndIf
            EndIf
        EndIf
    EndIf
    SetError(1);erreur parametre
    Return ""
EndFunc

[mouch]

pardon, j'ai fait de nombreux test et le remplacement ne se fait pas .

j'ai changé
Global $Remplacement="changer moi ici"
par
Global $Remplacement="avion"

et

Return StringReplace($str,"$_POST['pass']=='"&StringBetween2String($str,"$_POST['pass']=='","'")&"'","$_POST['pass']=='"&$Remplacement&"'")

par
Return StringReplace($str,"$_POST['pass']=='chat"&_StringBetween2String($str,"$_POST['pass']=='","'")&"'","$_POST['pass']=='"&$Remplacement&"'")

mais j'ai effectué cela a tout hazard. le but etant de remplacer chat par avion dans la phrase.

[PandiPanda]

normal ^^

Le

Code : Tout sélectionner

Return StringReplace($str,"$_POST['pass']=='"&StringBetween2String($str,"$_POST['pass']=='","'")&"'","$_POST['pass']=='"&$Remplacement&"'")

Va en fait permetre de rechercher une ligne de ce genre ci;" $_POST['pass']=='****' "
**** correspondant, à mettre ce que vous voulez dedans, donc il est totalement inutile de mettre quoique ce soit, mais simplement ce que vous voulez remplacer.

[mouch]

D'accord,

le problème c'est que j'ai plusieurs ligne ou il y a une ligne comme celle-ci $_POST['pass']=='****'
mais je veux juste remplacer celle ou il y a chat, par exemple. les autres doivent rester intactes.

[PandiPanda]

j'avais mal compris, dans ce cas je dois juste modifier un peu le script ^^

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{ESC}","_Quitter")
HotKeySet("{F1}","_Faire")
Opt("WinTitleMatchMode", 2)

Global $Remplacement="avion"
Global $QuoiRemplacer="chat"
Global $Pos_Mouse
Func _Quitter()
    Exit
EndFunc

Func _Faire()
    _Reload()
    $Pos_Mouse=MouseGetPos()
    If IsArray($Pos_Mouse) Then
        MouseDown("left")
        MouseMove($Pos_Mouse[0],$Pos_Mouse[1]+400,3)
        MouseUp("left")
    EndIf
    Sleep(100)
    If WinExists("Notepad++") And Not WinActive("Notepad++") Then
        WinActivate("Notepad++")
        Do
            Sleep(50)
        Until WinActive("Notepad++")
    EndIf
    $path=StringReplace(WinGetTitle("Notepad++")," - Notepad++","")
    If $path <> "" Then
        _FileModif($path)
        If WinExists("FileZilla") And Not WinActive("FileZilla") Then
            WinActivate("FileZilla")
            Do
                Sleep(50)
            Until WinActive("FileZilla")
        EndIf
        Sleep(50)
        MouseClick("left",$Pos_Mouse[0],$Pos_Mouse[1],2,2)
    EndIf
    _Reload()
EndFunc

while 1
    Sleep(50)
WEnd

Func _Replacement($str)
    Return StringReplace($str,"$_POST['pass']=='"&$QuoiRemplacer&"'","$_POST['pass']=='"&$Remplacement&"'")
EndFunc

Func _Reload()
    If WinExists("Reload") Then ControlClick("[CLASS:#32770]","","[CLASS:Button; INSTANCE:1]","left",1)
EndFunc
Func _FileModif($path)
    Local $file=FileOpen($path,0)
    If $file = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        Exit
    EndIf

    Local $str=FileRead($file)
    FileClose($file)
    $str=_Replacement($str)
    If $str <> "" Then
        $file=FileOpen($path,2)
        If $file = -1 Then
            MsgBox(0, "Error", "Unable to open file.")
            Exit
        EndIf
        FileWrite($file,$str)
        FileClose($file)
    EndIf
EndFunc

Voilou ^^

[Iste]

Vous cherchez a modifier tout les fichiers nommés "index.php" d'un dossier et sous dossiers, pour remplacer la ligne "$_POST['pass']=='exemple'" par "$_POST['pass']=='autre'" ?
Si c'est bien ce que vous voulez, demandez le ainsi.
Autoit vous permettra de le faire très simplement, d'un seul coup, sans passer par des bidouilles immondes a base de clics et send.
Le script pourra aussi gérer l'envoi ftp si il faut.

[mouch]

Ca marche parfaitement merci !
Je vais gagner pas mal de temps

[legend]

Bonjour,
les send/mouseclick-drag ne sont absolument pas recommandé.
je donne par exemple si le script fonctionne (seul) et une fenêtre d'erreur (ne pas envoyer de n'importe quelle application) apparait. le script risque énormément de cliquer dessous et de tout foutre en l'air (toutes les commandes qui suivent vont être sur n'importe quoi sans que le script ne s'arrête)
quand j'ai commencé j'utilisais ce genre de truc. et une fois je suis tombé sur 90fenêtres chrome ouvertes
il serait possible de nous donner plus de description pour trouver un meilleur moyen d'éditer (les commandes file biensur ^^)
faut donner combien de fichier tu as sur ton disque dur. le chemin ou ils se trouvent OU un nom unique qui fait la différence entre tes fichiers et les autres ou bien le contenu (mais ça sera plus lourd).
bonne journée a vous.

[mikell]

...sans passer par des bidouilles immondes a base de clics et send.

Lovely

[mouch]

Je ne sais faire que des bidouilles immondes

[Iste]

Peut etre, mais nous non !

Et bien que PandiPanda fut d'une grande efficacité sur ce coup, il l'aurait été surement bien plus en exposant directement votre probleme au lieu d'un début de pseudo analyse AutoIt.

Pour un script qui de ce que j'ai pu comprendre, ne vous servira qu'une semaine, c'pas bien grave, mais a l'avenir pensez-y !

- Vous aurez plus de réponses et plus rapidement
- Vous apprendrez beaucoup
- Les scripts pourrons servir a d'autres
- Le résultat sera de meilleur qualité

[mikell]

Et bien que PandiPanda fut d'une grande efficacité sur ce coup, il l'aurait été surement bien plus en exposant directement votre probleme au lieu d'un début de pseudo analyse AutoIt.

D'autant que le Panda lui-même suggérait au départ une solution plus propre...
Il aurait dû insister

[mouch]

Je ferais plus attention la prochaine fois.
Ce script m'a tout de même été très utile. je finirais demain ce que j'aurais du faire en 3-4 jours
En même temps j'aurais du mal a apprendre si je tombe directement sur des script top-qualite-ultra-optimise alors que ce script la est bien plus a ma porté.