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

Invité · 27/10/2017, 00h42

Bonjour, Bonsoir ou bonne nuit

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 :

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
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")

**Marc-L** · 27/10/2017, 11h23

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, …

Invité · 27/10/2017, 12h38

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 :

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
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é.

Invité · 28/10/2017, 01h57

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 :

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
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)

**Marc-L** · 28/10/2017, 12h39

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

Invité · 28/10/2017, 15h50

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 :

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
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)

Invité · 29/10/2017, 19h47

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

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

VBScript

Discussions similaires

Partager

Partager