Subversion Repositories DevTools

Rev

Rev 1339 | Rev 3887 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1339 Rev 3621
Line 166... Line 166...
166
   Set objRegEx = New RegExp
166
   Set objRegEx = New RegExp
167
   Set objRegEx2 = New RegExp
167
   Set objRegEx2 = New RegExp
168
 
168
 
169
   objRegEx.IgnoreCase = True
169
   objRegEx.IgnoreCase = True
170
   objRegEx.Pattern = "^[0-9]+\.[0-9]+\.[0-9]+\.[a-zA-Z0-9]+$"
170
   objRegEx.Pattern = "^[0-9]+\.[0-9]+\.[0-9]+\.[a-zA-Z0-9]+$"
171
   objRegEx2.Pattern = "\.cots$"
171
   objRegEx2.Pattern = "\.(cots)|(tool)$"
172
 
172
 
173
   If Len(newVersion) <= 50 Then
173
   If Len(newVersion) <= 50 Then
174
      If objRegEx.Test( newVersion ) OR objRegEx2.Test( newVersion ) Then
174
      If objRegEx.Test( newVersion ) OR objRegEx2.Test( newVersion ) Then
175
         SanityCheck = True
175
         SanityCheck = True
176
      End If
176
      End If