Remplacement d'une ligne d'un fichier txt par vbs

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:

---

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 ?

Salut pascaldu67, bienvenue sur DVP

Code:

---

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 ........

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

Code:

---

Set RegularExpressioN = New RegExp

---

Re

Code:

---

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 :fleche: Manipulation de l'objet RegExp

Citation:

---

Envoyé par omen999

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

Code:

---

Set RegularExpressioN = New RegExp

---

---

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

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