17-10-12, 01:59 PM
كاتب الموضوع : AhmedEssawy
كود :
Function ValidateInput(sInput)
Dim reValid
Set reValid = New RegExp
reValid.Pattern = "^[\w\.:\?&=/]*$"
reValid.MultiLine = False
reValid.Global = True
ValidateInput = reValid.Test(sInput)
End Function