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

[ced600]

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

?
J'ai pas compris ce que tu veux dire.

Je ne vois pas de faute sur le script mais un truc peux m'échapper.

mais j'ai une erreur

Et c'est quoi cette erreur ?

[arnaudperfect]

bah quand je fais ca :

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
 
	Fichier = "truc"
	LigneCherche = "<CHEMIN>
	Path = "truc"
 
	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

Ca fonctionne parfaitement, mais si je fais ca :

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

j'ai une erreur sur la ligne "Set monFichier = fso.OpenTextFile(Fichier,1)".

[arnaudperfect]

non laisse tombé, cela fonctionne parfaitement, je me suis gourré sur le chemin de mon fichier à modifié ! trop nul que je suis !

[ced600]

Ok.
T'inquiètes pas cela arrive à tout le monde

[arnaudperfect]

voila une fonction pour ceux que ca intéresse :

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
34
35
36
37
38
39
function searchReplaceFile(File,LineSearch,LineReplace)
 
	Dim oFSO
 
	Set oFSO = CreateObject("Scripting.FileSystemObject")
 
	if oFSO.FileExists(File) = true Then
 
		Dim oRegEx
		Dim monFile
		Dim sStream
		Dim sNewStream
 
		Set oRegEx = New RegExp
 
		oRegEx.Global = True
		oRegEx.Pattern = LineSearch
 
		Set monFile = oFSO.OpenTextFile(File,1)
 
		sStream = monFile.ReadAll
		monFile.Close
 
		sNewStream = oRegEx.Replace(sStream,LineReplace)
 
		if InStr(sNewStream,LineReplace) = true Then 
			sNewStream = Replace(sNewStream,LineReplace,1,1) 
		end if
 
		Set monFile = oFSO.OpenTextFile(File,2,true)
		monFile.Write sNewStream
	 	monFile.Close
		MsgBox "Modification terminé",vbInformation,"Succès"
	else
		MsgBox "Le fichier source est introuvable",Vbcritical,"Erreur"
	end if
end function
 
searchReplaceFile "fichier.txt","2","hhhhhhhh"

on peut surement l'améliorer, si vous avez des idées, je suis preneur