Page 1 sur 1
[R] Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 11:22
par 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
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 11:28
par 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
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 12:39
par 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)
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 12:46
par 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
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 13:48
par 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 ^.^
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 14:30
par mikell
PandiPanda a écrit :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...
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 14:34
par 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.
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 14:49
par 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
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 14:54
par 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.
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 15:06
par 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.
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 15:13
par 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.
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 15:18
par 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 ^^
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 15:34
par 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.
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 15:41
par mouch
Ca marche parfaitement merci !
Je vais gagner pas mal de temps
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 15:43
par 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.
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 16:33
par mikell
Iste a écrit :...sans passer par des bidouilles immondes a base de clics et send.
Lovely
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 16:45
par mouch
Je ne sais faire que des bidouilles immondes
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 16:48
par 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é
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 17:13
par mikell
Iste a écrit :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
Re: [...]Un script pour sauver ma semaine
Posté : jeu. 01 sept. 2011 18:48
par 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é.