Dim Interdit As String = "[+\-=:@ #\?;!,'`\)\(}{\*\.~/\%]" & Chr(34) 'on peux rajouter ce qu'on veux (chr(34) correspond à un ") For Each Caractère In Donnees If InStr(Interdit, Caractère) > 0 Then Donnees = Donnees.Replace(Caractère, "") Next
Dim Interdit As String = "[+\-=:@ #\?;!,'`\)\(}{\*\.~/\%]" & Chr(34) 'on peux rajouter ce qu'on veux (chr(34) correspond à un ") For Each JeanPierre As Char In Donnees If Interdit.Contains(JeanPierre) True Then Donnees Donnees.Replace(JeanPierre, "") Next
With CreateObject("Vbscript.Regexp") .Global = True .Pattern = "[+\-=:@ #\?;!,'`""\)\(}{\*\.~/\%]" donnees = .Replace(donnees, vbNullString) End With
For a As Integer = 0 To interdit.Length - 1
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim carac As String "[ + \ - : @ # \ ? ; ! , ' ` "" \ ) \ ( } { \ * \ . ~ / \ % ]" Dim interdit() As String = carac.Split(" ") For a As Integer = 0 To interdit.Count - 1 donnees = donnees.Replace(interdit(a), "") Next a donnees = donnees.Replace(" ", "")
il y a t'il une autre solution que du VBS ?