TOPIC:

method CheckRegEx( oExpression as EnhancedSLE, oTest as EnhancedSLE, oResult as EnhancedSLE ) as logic pascal class DokTabEdit
local cExpression as string
local cTest as string	
local oRegex as clsHs_RegEx
local lMatch as logic

cExpression := AllTrim( oExpression:Value )	
if SLen( cExpression ) == 0
  ErrBox( self, "no expression" )
  self:SetFocusDelayed( oExpression )
  return  false
endif 
cTest := AllTrim( oTest:Value )	
if SLen( cTest ) == 0
  ErrBox( self, "no test value" )
  self:SetFocusDelayed( oTest )
  return  false
endif 
debOut( "Compare " + cTest + " to " + cExpression )
oRegex := clsHs_RegEx{ cExpression, 3 }
lMatch := oRegex:Match( cTest )
oRegex:CleanUp()
if lMatch
  oResult:Value := "fits"
else
  oResult:Value := "does NOT fit"
endif

return lMatch

     local o as object 
     
     local Str1 := "" as string
     local Str2 := "jam@asder" as string       
     
     o := OleAutoObjectEx{ "VBScript.RegExp"}
     
     if o:fInit
     	  o:@@global := true
    	  o:ignorecase := true    
    		
    	 o:Pattern := "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$"
    		
    	 If o:test(Str1)
	    	  ? "Valid email address", Str1
	    Else
	       ? "Invalid email address", Str1
    	 EndIf    
    	 
    	  If o:test(Str2)
	    		  ? "Valid email address", Str2
	    Else
	       ? "Invalid email address", Str2
    	  EndIf
    	  
     endif    
     o := NULL_OBJECT