Regular Expression

[rajeshvelur]

Hi,

I am testing Windows Forms app, with Test Advantage add-in.

Have a question, how to use reg exp for the following:
"10/2/2008 4:24:05 PM"

Thanks
Raj

[kishoreinchennai]

hi

Do you want to validate the date and time or just to check if it is of the above format.
the Simplest way to do this is :

Code:

Set objRegExpr = CreateObject("VBScript.RegExp")
Environment.Value("LOB")="10/2/2008 4:24:05 PM"
If isdate(Environment.Value("LOB")) Then
    msgbox "true",0
    Else
    msgbox "False",0
End If

Regards

[sandeep n]

'Just try this for date and i think this is the longest way which i ever saw

Code:

dim abc,def,ghi,j

abc="10/2/2008 4:24:05 PM"

def=split(abc," ")                 'Split by space  " "

'def(0) will be "10/2/2008"
'def(1) will be "4:24:05"
'def(2) will be "PM"
'again split def(0) by slash

ghi=split(def(0),"/")              'Split def(0) by slash "/"

      j=mid(ghi(2),1,1)      'Here it checks for the 2nd character ie: before "08" & after "2" in the string "2008"
           if j=9 then
                  (^4-9)(0-9)\/ (^3-9)(0-9)\/ 19*(0-9)(^0-7)
           else if j=0 then
                  (^4-9)(0-9)\/ (^3-9)(0-9)\/ 20*(0-9)(0-9)
           else if j=1 then
                  (^4-9)(0-9)\/ (^3-9)(0-9)\/ 21*(0-9)(0-9)
           .
           .
           .
           .        
           .
          else if j=9 then
                  (^4-9)(0-9)\/ (^3-9)(0-9)\/ 29*(0-9)(0-9)        
          end if

in same way try for time def(1)

[sandeep n]

here no were u r using objregexpr, does that really needed??

[kishoreinchennai]

yes actually not needed copy paste error :-)

[surya_7mar]

If you using OR chage the object to regular expressionwth the value below and if it is descriptive use tehe below on the code..

For "10/2/2008 4:24:05 PM"
Regular Exp: "\d?\d/\d?\d/\d\d\d\d \d?\d:\d?\d:\d?\d .M"

or "\d?\d/\d?\d/\d\d\d\d \d?\d:\d?\d:\d?\d AM|\d?\d/\d?\d/\d\d\d\d \d?\d:\d?\d:\d?\d PM"