VBS lecture fichier texte du même répertoire que le script + écriture.

Version imprimable

Bonjour, Bonsoir ou bonne nuit :aie:

Avec le code ci-dessous, je lis un fichier texte placé ds le même répertoire que le script.

J’aimerais qu’après le traitement les modifications soient écrites :
1- Soit dans un autre fichier texte tout en empêchant l’écrasement du fichier source et l’utilisation du même nom.
2- Soit en empêchant l’enregistrement de ce fichier modifié "le fermer après exploitation sans l’enregistrer".

Avez-vous une idée ?

PS: mon but est de protéger le fichier source contre la modification depuis le script.

Code:

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
40
41
42
43
44
Option Explicit
 
Function searchReplaceFile(File,StringSearch,StringReplace)
 
	Dim FileSystemObject
 
	Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
 
	if FileSystemObject.FileExists(File) = true Then
 
		Dim oRegEx, MyFile, sStream, sNewStream
 
		Set oRegEx = New RegExp
 
		oRegEx.Global = True
		oRegEx.Pattern = StringSearch
 
		Set MyFile = FileSystemObject.OpenTextFile(File,1)
 
		sStream = MyFile.ReadAll
		MyFile.Close
 
		sNewStream = oRegEx.Replace(sStream,StringReplace)
 
		if InStr(sNewStream,StringReplace) = true Then 
			sNewStream = Replace(sNewStream,StringReplace,1,1) 
		end if
 
		Set MyFile = FileSystemObject.OpenTextFile(File,2,true)
		MyFile.Write sNewStream
	 	MyFile.Close
		MsgBox "Modification terminé",vbInformation,"Succès"
	else
		MsgBox "Le fichier source est introuvable",Vbcritical,"Erreur"
	end if
end Function
 
Dim DossProg, MonFichierTxt, StringReplaceValue 
 
DossProg = replace(WScript.ScriptFullName,WScript.ScriptName,"")
MonFichierTxt = DossProg & "fichier.txt"
 
StringReplaceValue = InputBox ("Entrer l'identifiant de messagerie.","My messenger")
searchReplaceFile (MonFichierTxt),"prenom.nom@hotmail.com",(StringReplaceValue & "@monsite.org")

27/10/2017, 11h23
Marc-L

Bonjour,

donc ce n'est pas ton code car il suffit juste d'y modifier le nom du fichier créé en ligne n°29 …

___________________________________________________________________________________________________________
Je suis Paris, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour,
C'est pourtant si simple, le fait de modifier la ligne 29, modifie la variable "File" de la fonction searchReplaceFile et défini le nom du 2eme fichier etc…
Je suis vraiment un boulet

Code:

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
40
41
42
43
44
45
46
Option Explicit
 
Function searchReplaceFile(MonFichierTxt1,StringSearch,StringReplace)
 
	Dim FileSystemObject
 
	Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
 
	if FileSystemObject.FileExists(MonFichierTxt1) = true Then
 
		Dim oRegEx, MyFile, sStream, sNewStream
 
		Set oRegEx = New RegExp
 
		oRegEx.Global = True
		oRegEx.Pattern = StringSearch
 
		Set MyFile = FileSystemObject.OpenTextFile(MonFichierTxt1,1)
 
		sStream = MyFile.ReadAll
		MyFile.Close
 
		sNewStream = oRegEx.Replace(sStream,StringReplace)
 
		if InStr(sNewStream,StringReplace) = true Then 
			sNewStream = Replace(sNewStream,StringReplace,1,1) 
		end if
 
		Set MyFile = FileSystemObject.OpenTextFile(MonFichierTxt2,2,true)		
		'Set MyFile = FileSystemObject.OpenTextFile(File,2,true)
		MyFile.Write sNewStream
	 	MyFile.Close
		MsgBox "Modification terminé",vbInformation,"Succès"
	else
		MsgBox "Le fichier source est introuvable",Vbcritical,"Erreur"
	end if
end Function
 
Dim DossProg, MonFichierTxt1, MonFichierTxt2, StringReplaceValue 
 
DossProg = replace(WScript.ScriptFullName,WScript.ScriptName,"")
MonFichierTxt1 = DossProg & "fichier.txt"
MonFichierTxt2 = DossProg & "fichier2.txt"
 
StringReplaceValue = InputBox ("Entrer l'identifiant de messagerie.","My messenger")
searchReplaceFile (MonFichierTxt2),"prenom.nom",(StringReplaceValue)

Je pensais à une solution un peux plus aboutie, qui ouvrirait automatiquement ce 2eme fichier sans qu'il existe et être obligé de l'enregistrer.
Je ne sais pas si je me suis bien fait comprendre?
Là ça répond à mon choix 1 qui en fait n'est pas approprié.

Bonsoir,
Ré-écriture et re-nommage des variables pour plus de clarté.
Teste de la présence du fichier de sortie et création si il n’existe pas.
Je bute sur un point qui va surement vous sembler tout bête :
Comment gérer la visualisation du fichier de sortie "faire qu’il reste ouvert après création et écriture" ?
L’ouvrir une nouvelle fois ?

Code:

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
40
41
42
43
44
45
46
47
48
Option Explicit
 
Function SearchReplaceStr(OutputFile,StrSearch,StrReplace)
 
	Dim Fso 
 
	Set Fso = CreateObject("Scripting.FileSystemObject")
	If Fso.FileExists(InputFile) = True Then	 
 
		Dim oRegEx, MyFile, sStream, sNewStream		
 
		Set oRegEx = New RegExp 
		oRegEx.Global = True
		oRegEx.Pattern = StrSearch 
 
		Set MyFile = Fso.OpenTextFile(InputFile,1) 
		sStream = MyFile.ReadAll
		MyFile.Close
 
		sNewStream = oRegEx.Replace(sStream,StrReplace)
 
		If InStr(sNewStream,StrReplace) = True Then 
			sNewStream = Replace(sNewStream,StrReplace,1,1) 
		End If
 
 		If Not (Fso.FileExists(OutputFile)) Then Fso.CreateTextFile(OutputFile)
		Set MyFile = Fso.OpenTextFile(OutputFile,2)	
		MyFile.Write sNewStream
	 	MyFile.Close
		MsgBox "Modification terminé",vbInformation,"Succès"
	Else	
		MsgBox "Le fichier source est introuvable",Vbcritical,"Erreur"	
	End If	
 
End Function
 
Dim DossProg, InputFile, OutputFile, InputStrValue
 
DossProg = replace(WScript.ScriptFullName,WScript.ScriptName,"")
InputFile = DossProg & "source\SourceFile.txt"
OutputFile = DossProg & "PowerSchell.txt"
 
InputStrValue = InputBox ("Entrer l'identifiant a router." & vbNewLine & _
							vbNewLine & "Il doit être  de type:" & _ 
							vbNewLine & "prenom.nom" & _
							vbNewLine & "ou" & _
							vbNewLine & "service.fonction" & vbNewLine,"My messenger")
SearchReplaceStr (OutputFile),"prenom.nom",(InputStrValue)

28/10/2017, 12h39
Marc-L

Le fichier restant ouvert tant que l'instruction Close n'est pas déclenchée …

Bonjour,
Encore une fois je m’exprime mal.
Je parle d’une ouverture en visuel de mon fichier texte.

C’est Ok avec l’Object Shell, mais tout cela est-il bien propre ?

Code:

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
40
41
42
43
44
45
46
47
48
49
Option Explicit
 
Function SearchReplaceStr(OutputFile,StrSearch,StrReplace)
 
	Dim ObjShell, Fso 
	Set objShell = CreateObject("WScript.Shell") 
	Set Fso = CreateObject("Scripting.FileSystemObject")
	If Fso.FileExists(InputFile) = True Then	 
 
		Dim oRegEx, MyFile, sStream, sNewStream		
 
		Set oRegEx = New RegExp 
		oRegEx.Global = True
		oRegEx.Pattern = StrSearch 
 
		Set MyFile = Fso.OpenTextFile(InputFile,1) 
		sStream = MyFile.ReadAll
		MyFile.Close
 
		sNewStream = oRegEx.Replace(sStream,StrReplace)
 
		If InStr(sNewStream,StrReplace) = True Then 
			sNewStream = Replace(sNewStream,StrReplace,1,1) 
		End If
 
 		If Not (Fso.FileExists(OutputFile)) Then Fso.CreateTextFile(OutputFile)
		Set MyFile = Fso.OpenTextFile(OutputFile,2)	
		MyFile.Write sNewStream
	 	MyFile.Close
	 	objShell.Run("notepad " & OutputFile)
'		MsgBox "Modification terminé",vbInformation,"Succès"
	Else	
		MsgBox "Le fichier source est introuvable",Vbcritical,"Erreur"	
	End If	
 
End Function
 
Dim DossProg, InputFile, OutputFile, InputStrValue
 
DossProg = replace(WScript.ScriptFullName,WScript.ScriptName,"")
InputFile = DossProg & "source\SourceFile.txt"
OutputFile = DossProg & "PowerSchell.txt"
 
InputStrValue = InputBox ("Entrer l'identifiant a router." & vbNewLine & _
							vbNewLine & "Il doit être de type:" & _ 
							vbNewLine & "prenom.nom" & _
							vbNewLine & "ou" & _
							vbNewLine & "service.fonction" & vbNewLine,"My messenger")
SearchReplaceStr (OutputFile),"prenom.nom",(InputStrValue)

29/10/2017, 19h47
Invité

Bonsoir,
Il semble que l’utilisation de WScript Shell soit la solution appropriée.