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 ?