Discussion :

[pascaldu67]

Bonjour,

je débute en VBS donc excuser moi par avance si j'utilise des termes exotiques.

Je souhaiterais remplacer une chaine de caractères par une autre ce qui fonctionne en partie mais pas optimale.

Voici mon code :

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
Const ForReading = 1
Const ForWriting = 2
dim Version
dim EngineX64
engine= "EngineX64_Version=9.100"
Version = InputBox ("Saisie du num version OfficeScan (ex : 9.800.1009) : ", "NUMERO MOTEUR OFFICESCAN")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("D:\Script\test\ofcscan.ini", ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, engine, "EngineX64_Version="& Version)
Set objFile = objFSO.OpenTextFile("D:\Script\test\ofcscan.ini", ForWriting)
objFile.WriteLine strNewText
 
objFile.Close

Cette ligne est bien remplacer avec la saisie de l'utilisateur mais étant donner que "EngineX64_Version=9.100" aura un futur numéro en fonction de la saisie de l'utilisateur (strNewtext), le problème c'est que le nouveau numéro s'ajoutera au précedent et ainsi de suite...

Avez-vous une astuce pour remplacer toute la ligne par la nouvelle afin que ce script soit réutilisable ?

[ProgElecT]

Salut pascaldu67, bienvenue sur DVP

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
Dim RegularExpressioN
'Set RegularExpressioN = CreateObject("VBScript.RegExp")
Set RegularExpressioN = New RegExp
RegularExpressioN.Pattern ="EngineX[0-9]{1,}_Version=\d[.][0-9]{1,}"
'
'
'
'
'
'
'strNewText = Replace(strText, engine, "EngineX64_Version=" & Version)
strNewText = RegularExpressioN.Replace(strText, "EngineX64_Version=" & Version)
Set RegularExpressioN = Nothing
Set objFile = objFSO.OpenTextFile("D:\Script\test\ofcscan.ini", ForWriting)
objFile.WriteLine strNewText
 
objFile.Close

Avec le Pattern "EngineX[0-9]{1,}_Version=\d[.][0-9]{1,}", dans la variable strText (EngineX??), peut être 16,32,64,128 ........

[omen999]

bonjour,
et pour chipoter dans le détail... l'objet RegExp est directement accessible en VBS à la différence du VB6 :

Code :

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

Set RegularExpressioN = New RegExp

[ProgElecT]

Re

Code :

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

RegularExpressioN.Pattern = "EngineX[0-9]{1,}_Version=[0-9]{1,}[.][0-9]{1,}[.][0-9]{1,}|EngineX[0-9]{1,}_Version=[0-9]{1,}[.][0-9]{1,}"

car certains cas ne fonctionnaient pas.
Version peut être composé de N° Principal, N° Secondaire et N° Révision exemple: 1.25.456 ou 12.785 ou encor 7.2
Le pattern est composé de 2 conditions, EngineX[0-9]{1,}_Version=[0-9]{1,}[.][0-9]{1,}[.][0-9]{1,} et EngineX[0-9]{1,}_Version=[0-9]{1,}[.][0-9]{1,}
Il agit avec la condition ou le séparateur de ces conditions est donc |
Si tu veux faire des essais de rédaction du Pattern, une de mes contributions Manipulation de l'objet RegExp

bonjour,
et pour chipoter dans le détail... l'objet RegExp est directement accessible en VBS à la différence du VB6 :

Code :

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

Set RegularExpressioN = New RegExp

je ne suis pas surpris d'en apprendre chaque jours la programmation étant si vaste, merci omen999

[pascaldu67]

Merci à vous car j'étais loin du compte.. J'ai passé des heures sur le net à la recherche de forum et vous d'un trait vous régler mon pb.

Merci encore