Discussion :

[nicnictout]

Bonjour,

je ne suis vraiment pas caler en VB, et je galère un peu sur les méthode de search and replace via regex du langage.
J'ai un fichier (plus précisément un fichier excel mais la méthode est la même je pense) qui contient entre autre informations, des entrées de noms de service Windows de la forme: "Windows Update(wuauserv)"

En gros le nom du service et son label. Moi je voudrais garder uniquement le label soit Windows Update et enlever tout ce qu'il y a entre les parenthèses (parenthèses incluses).
J'ai donc un bout de 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
Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = "\(.*\)$"
 
Dim objExcel : Set objExcel = CreateObject("Excel.Application")
 
'objExcel.Visible = True
 
Set objWorkbook =  objExcel.Workbooks.Open("D:\Users\ngreder\Downloads\myfile.xlsx")
 
Dim objWorksheet : Set objWorksheet = objWorkbook.Worksheets(2)
 
 
regEx.Replace("\(.*\)$", "")

Et bien sur cela ne compile pas. Je pense que j'ai mal compris le fonctionnement de la méthode regEx.Replace et de ce qu'elle attend en premier argument. Moi je voudrais que partout où le pattern match une entrée qu'il effectue ce remplacement.

D'avance merci pour votre aide, car je ne suis pas développeur et j'avoue que le VB et moi, et bah ça fait 12

[ProgElecT]

Salut

Visual Basic Scripting Edition

Replace, méthode
Remplace le texte trouvé dans une recherche d'expression régulière.

object.Replace(string1, string2)
Arguments:
object Requis. Il s'agit toujours du nom d'un objet RegExp.
string1 Requis. String1 est la chaîne de caractères dans laquelle le remplacement a été effectué.
string2 Requis. String2 est la chaîne de caractères de remplacement.

Code :

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

1
2
3
4
5
6
7
8
Dim TextSoumis
 
     myRegExp.Pattern = "\(.*\)$"
     '.....................
 
     '.....................
     TextSoumis = "Windows Update(wuauserv)"
     regEx.Replace(TextSoumis, "")

Où trouver l'aide en ligne pour VBScript ?