Repeter des commandes dans vbscript

Fermé
pachanga Messages postés 841 Date d'inscription mercredi 14 mai 2008 Statut Membre Derniè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}"


'sequence quitter
WScript.Sleep 500 'Sleeps for 0.5 seconds
WshShell.SendKeys "%(F)"
WshShell.SendKeys "{DOWN 6}"
WshShell.SendKeys "{ENTER}"