seniors Please help---New to QTP and forum---Datatable question

[tarry65]

I am picking the value-----from datatable
value---0000123_200908_201208.xml

I want three things to be done---
1.check first seven charcters are seven before _.
2.Check date format is yyyymm .
3.check first date > second date.

Expert and senior people Please help me with code if possible

[stephenlb4u]

hi Tarry,

Use the below script

Code:

Text= DataTable("A", dtGlobalSheet) Dim sText 'Splitting the given string with the delimiter _ and saving it in the array called sText sText = Split(Text,"_") 'Displaying the length of character before _ Msgbox "First Seven Text before _ is: " &sText(0) If len( sText(0)) >6 or len( sText(0)) <6Then Msgbox"Lenght of character before _ is 6" else Msgbox"Lenght of character before _ is not equal to 6" End If 'Displaying the lenght of character after and before _ Msgbox "Second Six Character (yyyymm) after and before _ is: " &sText(1) 'i dont think we can validate the second condition but any how we can check weather the month is valid or not 'Splliting the date as YYYY and MM using mid function mnth = Mid (sText(1),5) If mnth < 0 or mnth > 12 Then msgbox "The date format is not valid" else yr = Mid (sText(1),1,4) msgbox "Date is "&MonthName(mnth)&yr End If ' Comparastion btw two date Msgbox "Third Six Character (yyyymm) after 2nd _ is: " &sText(2) If sText(2) > sText(1) Then Msgbox "Second date is Greater than the First" Else Msgbox "Second date is Not Greater than the First" End If

Thanks
Stephen

[Jackomcnabb]

This is very crude I left all the comments in and invalid tests for you to see how i've tested the code.

Code:

'test valid input InValue="0000123_200908_201208.xml" 'test dates same 'InValue="0000123_200908_200908.xml" 'test invalid Year 'InValue="0000123_200908_200808.xml" 'test same year invalid month 'InValue="0000123_200908_200907.xml" 'test invalid first string legth 'InValue="000123_200908_201207.xml" 'split string to remove .xml NewInValue=Split(InValue,".") NewString=NewInValue(0) 'msgbox(NewString) 'load into an array to split the Strings by '_" splitValues=Split(NewString,"_") FirstSeven=splitValues(0) 'msgbox(FirstSeven) FirstDate=splitValues(1) 'msgbox(FirstDate) SecondDate=(splitValues(2)) 'msgbox(SecondDate) 'check the length of the string LenthFirstSeven=Len(FirstSeven) 'msgbox(LenthFirstSeven) If LenthFirstSeven = 7 Then Reporter.ReportEvent micPass, "StringLength", "The String length was "&LenthFirstSeven&"" Else Reporter.ReportEvent micfail, "StringLength", "The String length was "&LenthFirstSeven&"" End If FirstYear=left(FirstDate,4) 'msgbox(FirstYear) Firstmonth=right(FirstDate,2) 'msgbox(firstmonth) SecondYear=left(SecondDate,4) 'msgbox(SecondYear) Secondmonth=right(SecondDate,2) 'msgbox(Secondmonth) If FirstYear > SecondYear Then Reporter.ReportEvent micfail, "DateCheck", "The First Year Was Greater than the Second Year" Elseif FirstYear < SecondYear then Reporter.ReportEvent micPass, "DateCheck", "The First Year Was Less than the Second Year" Elseif FirstYear = SecondYear then If Firstmonth > Secondmonth Then Reporter.ReportEvent micfail, "DateCheck", "The First Year Equal to Second Year, First Month was greater than second month" ElseIf Firstmonth < Secondmonth Then Reporter.ReportEvent micPass, "DateCheck", "The First Year Equal to Second Year, First Month was Less than second month" Else Reporter.ReportEvent micfail, "DateCheck", "The Dates are the same" End If End If