[VBS] supprimer les 2 premiere ligne d'un fichier

supprimer les 2 premiere ligne d'un fichier [VBS] - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 15-02-2007 à 20:12:33   

Reply

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  
  colProperties = objItem.GetOwner(strNameOfUser,strUserDomain)  
  If (Left(objItem.Caption, 6) <> "System" ) Then
     ' Ecrit toutes les lignes sauf celles qui commencent par "System"
     objFile.WriteLine objItem.Caption & "  "  & strNameOfUser  
  End If
next

Reply

Marsh Posté le 16-02-2007 à 08:25:20    

euh... utiliser un entier (voire un caractère) qui compte jusqu'à 2 ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed