Discussion :

[batist3]

Bonjour,

N'étant pas trop familiarisé avec le vbs,

Je souhaite rechercher un texte dans un fichier txt puis remplacer une autre valeur si elle est trouvée sur la même ligne.
J'ai déjà trouvé ce script sui me permet de remplacer du texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile("CHEMIN\FICHIER.TXT", ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "backup", "OK backup")
Set objFile = objFSO.OpenTextFile("CHEMIN\FICHIER2.TXT", ForWriting)
objFile.WriteLine strNewText
objFile.Close

dans ce scipt, le mot backup est remplacé par OK backup

ce que je souhaite faire c'est rechercher le mot success et remplacer le mot backup par OK backup en fonction de la réussite de la recherche du mot success.
exemple :
backup xxx success
backup yyy failed

après modification :
OK backup xxx success
backup yyy failed

cela fait un moment que je cherche sans trouver.

Merci d'avance pour votre aide !
batist3

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile("CHEMIN\FICHIER.TXT", ForReading)
strText = objFile.ReadAll
objFile.Close
If InStr(1, strText, "success", vbTextCompare) <> 0 Then 'si une occurrence été trouvée, une position a été retournée
	strNewText = Replace(strText, "backup", "OK backup")
	Set objFile = objFSO.OpenTextFile("CHEMIN\FICHIER2.TXT", ForWriting)
	objFile.WriteLine strNewText
	objFile.Close
End If

[batist3]

Merci pour cette réponse rapide

Cependant, en faisant le test cela ne fonctionne pas.
voici le test que j'ai fait

texte du fichier1.txt
backup success
backup failed

contenu du fichier vbs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile("C:\Users\Utilisateur\Desktop\fichier1.txt", ForReading)
strText = objFile.ReadAll
objFile.Close
If InStr(1, strText, "success", vbTextCompare) <> 0 Then 'si une occurrence été trouvée, une position a été retournée
	strNewText = Replace(strText, "backup", "OK backup")
	Set objFile = objFSO.OpenTextFile("C:\Users\Utilisateur\Desktop\fichier2.txt", ForWriting)
	objFile.WriteLine strNewText
	objFile.Close
End If

Résultat du fichier2.txt
OK backup success
OK backup failed

le résultat attendu étant :
OK backup success
backup failed

Je me suis trompé quelque part ?

[ProgElecT]

Essais, ligne 8, avec ce code légèrement modifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    strNewText = Replace(strText, "backup", "OK backup", 1, -1, vbTextCompare)

[ProgElecT]

toujours ligne 8

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    strNewText = Replace(strText, "backup", "OK backup", 1, 1, vbTextCompare)

comme quoi un moins (le signe - du 6° paramètre) te donnais un + dans le remplacement

[batist3]

Désolé mais cela ne marche toujours pas

après différents test, ce script permet de vérifier la présence du terme success
s'i est présent cela modifie toutes les lignes contenant le mot backup
s'il est absent, le texte n'est pas modifié

exemple
fichier1 :
backup xxx success
backup yyy failed
backup zzz success

vu qu'il y a au moins un success dans le fichier, toutes les lignes seront modifiées avec OK backup
J'aimerai mettre le OK backup seulement devant les lignes contenant success
et un autre script avec KO backup failed

avec tes dernières instructions, cela ne modifie que la première ligne.
si le texte1 contient :
backup xxx failed
backup yyy success

le résultat sera
OK backup xxx failed

Je pense que si il existe une commande pour vérifier ligne par ligne si le terme existe et remplace le mot backup par OK backup, cela fonctionnera
A priori je vois des références à split mais je ne sais pas si ça a un rapport avec ce que je cherche

Merci en tout cas de ton intérêt
je me répète mais je suis novice en vbs.