3.6.2.9. Validate Fields in VBScript Using Field Value Comparison and Regular Expressions (Dual OCR)
If Not UserField_NUMBERR.value = UserField_NUMBERRNUANCE.value Then
UserField_NUMBERR.ValidateStatus = 0
UserField_NUMBERR.ValidateMessage = "Please check, different reads"
Else
UserField_NUMBERR.ValidateStatus = 1
End If
Set re = New RegExp
re.Pattern = "N\d\d\d-\d{7}"
If Not re.Test(UserField_NUMBERR.value) Then
UserField_NUMBERR.ValidateStatus = 0
UserField_NUMBERR.ValidateMessage = "Sorry, value must be NDDD-DDDDDDD"
Else
UserField_NUMBERR.ValidateStatus = 1
End If