Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 0 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 0 Invité :: 1 Moteur de recherche

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

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

Voir le sujet précédent Voir le sujet suivant Aller en bas

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

Message par Sachadee le 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]
avatar
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

http://bbat.forumeiro.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum