bonjour,  
 
je rencontre un problème concernant une ligne :  
 
a la ligne sNewStream , j'aimerai a la place de "test" qu'il prenne en compte ce code la : Set net = CreateObject("WScript.Network" )
net.AddWindowsPrinterConnection "\\ mais il ne le prend pas comme du texte mais comme du code .
 
Option Explicit
Const Fichier = "imprimante.txt"
Const LigneCherche = "\\sserveur"
 
Dim fso
Dim oRegEx
Dim monFichier
Dim sStream
Dim sNewStream
 
Set fso = CreateObject("Scripting.FileSystemObject" )
Set oRegEx = New RegExp
oRegEx.Global = True
oRegEx.Pattern = "\n" & LigneCherche & ".*(\r|$)"
Set monFichier = fso.OpenTextFile(Fichier,1)
sStream = monFichier.ReadAll
monFichier.Close
sNewStream = oRegEx.Replace(sStream, vbLf & "test" & vbCr)
Set monFichier = fso.OpenTextFile(Fichier,2)
monFichier.Write sNewStream
monFichier.Close
 
 
merci de votre aide

Tu veux faire ça ?
sNewStream = oRegEx.Replace(sStream, vbLf & "Set net = CreateObject("WScript.Network" ).net.AddWindowsPrinterConnection \"\\\\" & vbCr)

oui exactement , mais cela le prend comme du code et non comme du texte
 
sNewStream = oRegEx.Replace(sStream, vbLf & "Set net = CreateObject("WScript.Network" )
net.AddWindowsPrinterConnection "\\sserveur" & vbCr)

Apparemment, tu sais pas lire ce que j'ai mis Il faut que tu échappes via le caractère \ tout ce qui est " et \. Donc un " devient \" et un \ devient \\ dans ta chaîne de caractères.

merci de ton aide
 
mais ta ligne provoque cette erreur : ') attendu  
 
sNewStream = oRegEx.Replace(sStream, vbLf & "Set net = CreateObject("WScript.Network" ).net.AddWindowsPrinterConnection \"\\\\" & vbCr)

Apparemment,c'est pas le \ pour échapper un caractère mais le ".
 
sNewStream = oRegEx.Replace(sStream, vbLf & "Set net = CreateObject(""WScript.Network"" ).net.AddWindowsPrinterConnection ""\\sserveur""" & vbCr)
 
 

merci de ton aide , du coup je suis arrivé a cette conclusion :
 
mais cela ne modifie en rien le fichier texte en question  
 
merci de votre aide
 
Option Explicit
Const Fichier = "C:\Users\user\Desktop\imprimante.txt"
Const LigneCherche = "server"
 
Dim fso
Dim oRegEx
Dim monFichier
Dim sStream
Dim sNewStream
 
Set fso = CreateObject("Scripting.FileSystemObject" )
Set oRegEx = New RegExp
oRegEx.Global = True
oRegEx.Pattern = "\n" & LigneCherche & ".*(\r|$)"
Set monFichier = fso.OpenTextFile(Fichier,1)
sStream = monFichier.ReadAll
monFichier.Close
sNewStream = oRegEx.Replace(sStream, vbLf & "Set net = CreateObject(""WScript.Network"" ).net.AddWindowsPrinterConnection ""\serveur""" & vbCr)  
Set monFichier = fso.OpenTextFile(Fichier,2)
monFichier.Write sNewStream
monFichier.Close

Essaye avec ça :
 
"Set net = CreateObject(" & """ & "WScript.Network" & """ & " )
net.AddWindowsPrinterConnection "

ça ne fonctionne pas
 
tu as pas une autre astuce ?