Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1221 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1515238
DrOctopus
Posté le 15-02-2007 à 20:12:33  profilanswer
 

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

mood
Publicité
Posté le 15-02-2007 à 20:12:33  profilanswer
 

n°1515318
olivthill
Posté le 16-02-2007 à 08:04:22  profilanswer
 

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

n°1515324
lkolrn
&lt;comment ça marche?&gt;
Posté le 16-02-2007 à 08:25:20  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
éxécuter un fichier php à partir d'un autre (avec get)supprimer fichiers avec "extensions incrémentées"
[OLE]Creation de fichier OOo[JAVA] Charger un fichier texte en mémoire dans un String
[PHP] Placer un fichier sur le poste clientcopy d'un dossier avec un fichier batch
[RESOLU] interdir le download de fichierProbleme fichier cpuinf32.dll
fichier database.ymllecture fichier texte avec vb
Plus de sujets relatifs à : [VBS] supprimer les 2 premiere ligne d'un fichier


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR