Discussion :

[arnaudperfect]

Bonjour,

J'aimerai faire un script qui remplace une chaine de caractère par une autre présent dans un fichier texte.

comment faire ceci ?

Merci d'avance,

Arnaud

[omen999]

bonjour,

le sujet a été évoqué très souvent
un exemple (au hasard): http://www.developpez.net/forums/d60...-fichier-texte

[arnaudperfect]

oui j'avais déjà vu des exemples, notamment celui que tu m'as donné.

j'ai réussie à l'adapter à mon besoin.

Merci !

[arnaudperfect]

J'ai fais ceci comme fonction, mais j'ai une erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Function update_files(Fichier,LigneCherche,LigneModifie)
	' Mettre à jour les chemins dans les fichiers de configurations
	Dim fso
	Dim oRegEx
	Dim monFichier
	Dim sStream
	Dim sNewStream
 
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set oRegEx = New RegExp
 
	oRegEx.Global = True
	oRegEx.Pattern = LigneCherche
	Set monFichier = fso.OpenTextFile(Fichier,1)
	sStream = monFichier.ReadAll
	monFichier.Close
 
	sNewStream = oRegEx.Replace(sStream,LigneModifie)
 
	If InStr(sNewStream,vbLf)=1 Then sNewStream = Replace(sNewStream, vbLf & "",1,1)
	Set monFichier = fso.OpenTextFile(Fichier,2)
	monFichier.Write sNewStream
 
	monFichier.Close
 
End Function
 
update_files("apache\bin\httpd.conf","<CHEMIN>",ScriptPath)

Auriez vous une idée (c'est ma 1er fonction en vbs )

Merci d'avance

[arnaudperfect]

personne pour m'aider ?

[arnaudperfect]

les instruction de la fonction fonctionne parfaitement, mais des que je veux mettre tout cela dans une fonction erreur...

je ne comprend pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
function update_files(Fichier,LigneCherche,Path)
 
	wscript.echo Fichier
	wscript.echo LigneCherche
	wscript.echo Path
 
	Dim fso
	Dim oRegEx
	Dim monFichier
	Dim sStream
	Dim sNewStream
 
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set oRegEx = New RegExp
 
	oRegEx.Global = True
	oRegEx.Pattern = LigneCherche
 
	Set monFichier = fso.OpenTextFile(Fichier,1)
 
	sStream = monFichier.ReadAll
	monFichier.Close
 
	sNewStream = oRegEx.Replace(sStream, Replace(Path,"\","/"))
 
	If InStr(sNewStream,vbLf)=1 Then sNewStream = Replace(sNewStream, Replace(Path,"\","/"),1,1)
	Set monFichier = fso.OpenTextFile(Fichier,2)
	monFichier.Write sNewStream
 
	monFichier.Close
end function
 
update_files "apache\bin\httpd.conf","<CHEMIN>",ScriptPath

merci d'avance pour vos indications

Arnaud