Recherche texte + modification dans un fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Recherche texte + modification dans un fichier

antolionux

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

Publicité

Xxxaaavvv

tu veux faire ça en script VBS ?

Message cité 1 fois

antolionux

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 :

on error resume next
' ------------------- Fontion ------------------- '
' Recherche une correspondance entre les chaînes '
' de caractère passées en paramètres '
' Retourne vrai ou faux selon le résultat '
public function mylike(ByVal Name,ByVal pattern)
Dim objRegExpr
Set objRegExpr = New regexp
objRegExpr.Pattern = pattern
objRegExpr.Global = True
Set colMatches = objRegExpr.Execute(Name)
if colMatches.Count =0 Then
mylike=false
else
mylike=true
End If
End Function
' ------------------------------------------------ '
' Déclaration des constantes '
Const ForReading = 1, ForWriting = 2
' Déclaration des variables '
Dim comp, rep, path, before, after, flag
flag = 0
' Extraction du nom de session '
Set wshnetwork = WScript.CreateObject("WScript.Network" )
user = wshnetwork.username
path = "C:\Documents and Settings\" & user & "\Application Data\Sun\Java\Deployment"
' Identification des chaîne de caractère à chercher et remplacer '
comp = "deployment.security.mixcode="
rep = "deployment.security.mixcode=HIDE_RUN"
' Début de procédure de scan du fichier '
Set oFso = CreateObject ("Scripting.FileSystemObject" )
Set flecture = oFso.OpenTextFile (path & "\deployment.properties", ForReading)
Set fecriture = oFso.OpenTextFile (path & "\deployment.tmp", ForWriting, true)
Do While Not flecture.AtEndOfStream
ligne = flecture.ReadLine
if mylike (ligne, comp) then
fecriture.WriteLine (rep)
flag = 1
else
fecriture.WriteLine (ligne)
end if
Loop
if ( flag = 0 )then
fecriture.WriteLine (rep)
end if
flecture.close
fecriture.close
' Fin de procédure de scan du fichier '
' Suppression du fichier réel '
oFso.DeleteFile(path & "\deployment.properties" )
before = "" & path & "\deployment.tmp"
after = "" & path & "\deployment.properties"
' Renommage du fichier modifier par son nom réel '
oFSO.MoveFile (before , after)
Set oFso = nothing

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Recherche texte + modification dans un fichier

Sujets relatifs
module python compat. 3.x, colorier du texte dans la console [résolu]	Recherche developpeur application Iphone
[VBA] extraire des noeuds d'un gros fichier XML	[C#] Erreur lors de l'ouverture d'un fichier
Fichier PAC et fonction myIpAddress	Recherche de personne motivée pour un projet de jeux video
ecrire une suite dans un texte	Compilation d'un fichier d'aide HTML (chm)
[RESOLU]redirection php a partir d'un form le tout sur un seul fichier	Trouver quelle appli utilise une ressource / un fichier locké
Plus de sujets relatifs à : Recherche texte + modification dans un fichier

Page générée en 0.050 secondes