genexus 與 正則表達式

Event &StudentEmail.IsValid
 &emailpattern = '/b([a-zA-Z0-9_/.]+@[a-zA-Z0-9-]+(/.[a-zA-Z]{0,4})+)/b' //郵件地址的正則表達式
 &match = &StudentEmail.IsMatch(&emailpattern)
 
 if &match =  FALSE
  msg('Email: invalid format')
  &studentemail.Setfocus()
 else
  msg('Email: format OK')
 endif
EndEvent