supprimer les 2 premiere ligne d'un fichier [VBS] - VB/VBA/VBS - Programmation
Marsh Posté le 16-02-2007 à 08:04:22
Bonjour,
Pour supprimer des lignes dans un fichier, il n'y a pas d'autre moyen que de recopier dans un autre fichier toutes les lignes sauf celles qu'il faut filtrer, et ensuite de supprimer l'ancien fichier et de renommer le nouveau avec le bon nom de fichier.
Dans le cas présent, il est plus simple de ne pas écrire les lignes indésirables, avec une condition (un if.. then.. end if) :
For Each objItem in colItems |
Marsh Posté le 16-02-2007 à 08:25:20
euh... utiliser un entier (voire un caractère) qui compte jusqu'à 2 ?
Marsh Posté le 15-02-2007 à 20:12:33
Bonjour a tous,
voila j'ai un script qui donne une liste de processus dans un fichier texte comme cela:
System Idle Process
System SYSTEM
smss.exe SYSTEM
csrss.exe SYSTEM
winlogon.exe SYSTEM
services.exe SYSTEM
lsass.exe SYSTEM
...
Les 2 premiere ligne ne servant a rien, j'aimerais les éffacer.
Savez-vous comment faire svp ?
d'avance merci !
Voici mon script:
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.CreateTextFile("c:\Listeproces.txt" )
Set objWMIService = GetObject("winmgmts:\\" & strComputer1 & "\root\cimv2" )
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
For Each objItem in colItems
colProperties = objItem.GetOwner(strNameOfUser,strUserDomain)
objFile.WriteLine objItem.Caption & " " & strNameOfUser
next