Question

I am new in asp becouse I usaly use aspx

I use function that should loop through all chars of string and delete all chars that are not numbers or alphabet chars. The line

If sChar Like "[0-9A-Za-z]" Then

return error: Sub or Function not defined

MM_folder_vpisan = "fdvddvsd.-,čšž"

For lCtr = 1 To Len(MM_folder_vpisan)
     sChar = Mid(MM_folder_vpisan, lCtr, 1)
     If sChar Like "[0-9A-Za-z]" Then
         sAns = sAns & sChar
     End If    
Next

Answer 1

Here is what I believe is an improved version of this code :

Set objRegExp = New RegExp
objRegExp.Pattern = "[^0-9A-Z]" 'we'll ignorecase so no need for a-z
objRegExp.IgnoreCase = True
objRegExp.Global = True
sAns = objRegExp.replace(MM_folder_vpisan, "") ' replace all that is not 0-9 or A-Z
Set objRegExp = nothing