Remove special characters - with exceptions

[fddekker]

I am using the following UDF to remove all special characters

Function RemoveSpecialCharacters(s As String)
With CreateObject("vbscript.regexp")
.Pattern = "[^A-Z0-9_\- /&]"
.IgnoreCase = True
.Global = True
RemoveSpecialCharacters = .Replace(s, "")
End With
End Function

But I would like to NOT remove _ - \ / and &
The function works, but it also removes the \

What is the 'trick' to be able to also include the \ in the exclusion list?

 

[fddekker]

Just found it ... the escape key appears to be a single -- and not double -- quote, thus:

.Pattern = "[^A-Z0-9&'\'-_ /]"

does the trick

 

[CharlesChuckieCharles]

use

\\


also see

Microsoft Beefs Up VBScript with Regular Expressions

for other tricks