[VBS] REMPLACER UN CARACTERE PAR UN AUTRE DANS UN FICHIER

par **Sachadee** Lun 24 Juin 2013, 18:41

Voici un code VBS pour remplacer 2 caractères en ligne de commande :

Utilisation : replace.vbs [carac_a_remplacer] [Carac_de_remplacement] [fichier_a_traiter]

CE CODE EST ACCESSIBLE UNIQUEMENT PAR LES MEMBRES ! @SachaDee

[Hide]

Code:: [left]Dim FileName, Find, ReplaceWith, FileContents, dFileContents Find = WScript.Arguments(0) ReplaceWith = WScript.Arguments(1) FileName = WScript.Arguments(2) FileContents = GetFile(FileName) dFileContents = replace(FileContents, Find, ReplaceWith, 1, -1, 1) if dFileContents <> FileContents Then WriteFile FileName, dFileContents End If function GetFile(FileName) If FileName<>"" Then Dim FS, FileStream Set FS = CreateObject("Scripting.FileSystemObject") on error resume Next Set FileStream = FS.OpenTextFile(FileName) GetFile = FileStream.ReadAll End If End Function function WriteFile(FileName, Contents) Dim OutStream, FS on error resume Next Set FS = CreateObject("Scripting.FileSystemObject") Set OutStream = FS.OpenTextFile(FileName, 2, True) OutStream.Write Contents End Function[/left]

[/hide]