Discussion :

[Jordi.D]

Bonjour a tous je suis nouveaux ici
Je suis actuellement en stage et mon tuteur ma demander de génère un script .vbs pour lui.
En gros j'ai plusieurs dossiers nommé Test201 à Test (n) (n étant un nombre quelconque) suivant une suite logique dans chaque dossiers il y a un fichier xxx.reg
Contenue du fichier xxx.reg
; The RegSave Utility created this file
; This utility was written by Paul Hurford, Symbol EMEA TS
; You use the utility at your own risk
;
; Template File : \Application\RegSave.Reg
; Program Version : 2.20.01 May 13 2004 15:24:26
; File created 1/11/2003 00:27:58
;

[HKEY_LOCAL_MACHINE\Ident]
"Name"="Test201"

Donc ce qui ma été demander c'est que a chaque nouvelle copie du dossier Test le "Name"=Test prend la valeur du numéro du dossier
exemple
si j'ai Test202 Test 203

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
FileName = "test.reg"
   FindStr = """name""" & "=" & """BAM201""" 
  ReplaceWith = """Name"""  & "=" & """BAM20x""" 
 
'Read source text file
FileContents = GetFile(FileName)
 
'replace all string In the source file
dFileContents = replace(FileContents, FindStr, ReplaceWith, 1, -1, 1)
 
'Compare source And result
if dFileContents <> FileContents Then
  'write result If different
  WriteFile FileName, dFileContents
 
  Wscript.Echo "Replace done."
  If Len(ReplaceWith) <> Len(FindStr) Then 'Can we count n of replacements?
    Wscript.Echo _
    ( (Len(dFileContents) - Len(FileContents)) / (Len(ReplaceWith)-Len(FindStr)) ) & _
    " replacements."
  End If
Else
  Wscript.Echo "Text :" & FindStr & "  non présent dans le fichier"
End If
 
'Read text file
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
 
'Write string As a text file.
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
 
Voici un code qui lui change une chaine de caractère précise

Code bat :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
@echo off
 
setlocal enabledelayedexpansion
 
set "$C:\"="xxx.reg"
 
(for /f "delims=" %%a in ('type "Idxx.reg"') do (
  set "$ligne=%%a"
  set "$ligne=!$ligne:%~10=%~15!
  echo !$ligne!)
)>sortie.reg
pause

Celui ci est en .bat il ne copie pas les commentaire et supprime des caractère

[l_autodidacte]

Salut et BIENVENU le jeune étudiant sur DVP.


Quand il s'agit d'une comparaison et de remplacement d'une chaine par une autre, il faut se mettre à l'esprit que les 2 fonctions InStr et Replace sont sensibles à la casse : Pour ces 2 fonctions, Ordinateur n'est pas la même chose que ordinateur.
L'astuce est de tout transformer soit en majuscule(avec UpCase UCase) soit en minuscule(avec LCase) puis faire les transformations nécessaires.
Essaie avec ce listing, à savoir que le script vbs est placé dans le même dossier que celui contenant le fichier .reg à modifier :

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
Option Explicit ' <=== Déclaration très recommandée pour éviter toute ambiguïté
 
Const ForReading = 1, ForWriting = 2
Dim fso, fich, Ret, FileName, Ligne
Dim NameFolder, NewValue, nbrReplacement
nbrReplacement = 0
FileName = ".\Test205\Test.reg"
Set fso = CreateObject("Scripting.FileSystemObject")
NameFolder = fso.GetFolder(fso.GetFile(FileName).ParentFolder).Name
 
NewValue = Quote("Name") & "=" & Quote(NameFolder) ' Nouvelle ligne à écrire
Set fich = fso.OpenTextFile(FileName, ForReading, False)
Do While Not Fich.AtEndOfStream
    Ligne = Trim(Fich.ReadLine)
    If InStr(1, LCase(Ligne),Quote("name") & "=" & Chr(34) & "test", vbTextCompare) > 0 _ 
       And InStr(1, Ligne, NameFolder, vbTextCompare) = 0  Then ' dans ce cas, on remplace la ligne lue par NewValue
       Ligne = NewValue
       nbrReplacement = nbrReplacement + 1 ' Compteur pour les remplacements
    End If
    Ret = Ret & Ligne & vbNewLine
Loop 
fich.Close ' On doit fermer le fichier car on va l'utiliser en écriture
MsgBox " Nombre de remplacements : " & nbrReplacement
Set fich = fso.OpenTextFile(FileName, ForWriting, True)
Ret = Left(Ret, Len(Ret) - 2) ' On supprime le dernier retour chariot (vbNewLine)
fich.Write Ret
fich.Close ' On fermer le fichier 
'==========================
Function Quote(StrIn)
   Quote = Chr(34) & StrIn & Chr(34)
End Function

Décompresse le zip dans le même dossier que le script(vbs).

[Jordi.D]

Salut merci
Mais j'ai un petit problème quand j'exécute le code il m'affiche un message d'erreur à la ligne 9 je ne vois pas d'où viens le problème

[l_autodidacte]

Que dit le message d'erreur ?
Peux-tu faire une capture de la boite de messages ?

[Jordi.D]

Voici le message d'erreur qu'il m'affiche

[l_autodidacte]

Le dossier Test205 est-il dans le même dossier que changement.vb (c-à-d dans Bam200) ?
Qu'as-tu écrit dans la ligne 9 ?
Où as-tu placé le fichier .reg ?