Recherche texte + modification dans un fichier

Recherche texte + modification dans un fichier - VB/VBA/VBS - Programmation

Marsh Posté le 04-11-2010 à 10:29:18    

Bonjour,
 
Je souhaite rechercher une ligne particulière dans un fichier et effectuer différente action en fonction de ce que je trouve :
 
Le fichier en question sert au paramétrage de JAVA "deployment.properties"
Ce fichier se trouve ici : C:\Documents and Settings\nom_utilisateur\Application Data\Sun\Java\Deployment\
 
Je souhaite rechercher la ligne suivante dans ce fichier :
deployment.security.mixcode=HIDE_RUN
 
SI je ne trouve pas cette ligne
ALORS je veux la rajouter. (même en fin de fichier ça ne gêne pas)
 
SI je trouve cette ligne, mais avec HIDE_CANCEL ou DISABLE
ALORS je veux supprimer cette ligne et rajouter "deployment.security.mixcode=HIDE_RUN" (même en fin de fichier ça ne gêne pas)
 
Pouvez-vous m'aider ?
Cordialement,
 
Lionel


Message édité par antolionux le 04-11-2010 à 10:31:41
Reply

Marsh Posté le 04-11-2010 à 10:29:18   

Reply

Marsh Posté le 04-11-2010 à 11:58:43    

tu veux faire ça en script VBS ?

Message cité 1 fois
Reply

Marsh Posté le 05-11-2010 à 10:44:01    

Xxxaaavvv a écrit :

tu veux faire ça en script VBS ?


 
Oui, en VBS.
 
J'ai finalement trouvé un bout de script que j'ai réadapté à mon besoin, ça fonctionne nikel, je met le code si ça intéresse quelqu'un  
 

Code :
  1. on error resume next
  3. ' ------------------- Fontion ------------------- '
  4. ' Recherche une correspondance entre les chaînes  '
  5. ' de caractère passées en paramètres              '
  6. ' Retourne vrai ou faux selon le résultat         '
  8. public function mylike(ByVal Name,ByVal pattern)
  9.         Dim objRegExpr
  10.         Set objRegExpr = New regexp
  11.         objRegExpr.Pattern = pattern
  12.         objRegExpr.Global = True
  14.         Set colMatches = objRegExpr.Execute(Name)
  16.         if colMatches.Count =0 Then
  17.                 mylike=false
  18.         else
  19.                 mylike=true
  20.         End If
  21. End Function
  22. ' ------------------------------------------------ '
  24. ' Déclaration des constantes '
  25. Const ForReading = 1, ForWriting = 2
  27. ' Déclaration des variables '
  28. Dim comp, rep, path, before, after, flag
  29. flag = 0
  32. ' Extraction du nom de session  '
  33. Set wshnetwork = WScript.CreateObject("WScript.Network" )
  34. user = wshnetwork.username
  35. path = "C:\Documents and Settings\" & user & "\Application Data\Sun\Java\Deployment"
  37. ' Identification des chaîne de caractère à chercher et remplacer '
  38. comp = "deployment.security.mixcode="
  39. rep = "deployment.security.mixcode=HIDE_RUN"
  42. ' Début de procédure de scan du fichier '
  43. Set oFso = CreateObject ("Scripting.FileSystemObject" )
  45. Set flecture = oFso.OpenTextFile (path & "\deployment.properties", ForReading)
  46. Set fecriture = oFso.OpenTextFile (path & "\deployment.tmp", ForWriting, true)
  48. Do While Not flecture.AtEndOfStream
  49. ligne = flecture.ReadLine
  50. if mylike (ligne, comp) then
  51.  fecriture.WriteLine (rep)
  52.  flag = 1
  53. else
  54.  fecriture.WriteLine (ligne)
  55. end if
  56. Loop
  58. if ( flag = 0 )then
  59. fecriture.WriteLine (rep)
  60. end if
  62. flecture.close
  63. fecriture.close
  64. ' Fin de procédure de scan du fichier '
  66. ' Suppression du fichier réel '
  67. oFso.DeleteFile(path & "\deployment.properties" )
  69. before = "" & path & "\deployment.tmp"
  70. after = "" & path & "\deployment.properties"
  72. ' Renommage du fichier modifier par son nom réel '
  73. oFSO.MoveFile (before , after)
  76. Set oFso = nothing


Message édité par antolionux le 05-11-2010 à 10:46:46
Reply

Sujets relatifs:

Leave a Replay

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