BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion

Récupérer mon mot de passe

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

Aucun

Le record du nombre d'utilisateurs en ligne est de 29 le Mer 29 Jan 2020, 10:53
Derniers sujets
Flux RSS



Flag Counter
Partenaires
Le Deal du moment : -43%
SanDisk microSDXC Ultra 256 Go + Adaptateur SD – ...
Voir le deal
34.99 €

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

Aller en bas

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

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

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

https://bbat.forumeiro.com

Revenir en haut Aller en bas

Revenir en haut


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