pachanga
Messages postés841Date d'inscriptionmercredi 14 mai 2008StatutMembreDernière intervention 1 juin 2021
-
20 mars 2015 à 12:25
Bonjour,
j'ai creée tout recement un fichier vbs qui fait des correction dans des fichiers txt, en gros , ce qu'il fait est d'effacer 9 lignes, en sauter une, et effacer les 9 prochaines.
mais je voudrais que la "sequence effacer des lignes"
se repète plusieurs fois car j'en ai beaucoup à effacer.
je débute à peine, ça se peut que mon programme (ici) aie l'air un peu
desorganisé. mais il fonctionne pour une seule séquence d'effaçage.
Merci de votre aide !
'sequence d'ouverture
Dim WShell
Set WShell = WScript.CreateObject ("WScript.Shell")
'exemple:- WShell.run "chemin complet du fichier" -
WShell.run "C:\Users\BoringLT\Desktop\vbs-test-sur-txt.txt"
'---------------sequence effacer des lignes-------------------
WScript.Sleep 500 'Sleeps for 0.5 seconds
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "+{DOWN 9}"
WshShell.SendKeys "{BACKSPACE}"
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "+{DOWN 9}"
WshShell.SendKeys "{BACKSPACE}"
'---------------fin de sequence effacer des lignes-------------------
'sequence de sauvegarde
WScript.Sleep 500 'Sleeps for 0.5 seconds
WshShell.SendKeys "%(F)"
WshShell.SendKeys "{DOWN 2}"
WshShell.SendKeys "{ENTER}"