how to validate combobox values with testdata values

[1981.madhu@gmail.com]

I have one combobox ,having values like value1,value2...this is displaying at UI,i want to validate this values with my Expected values(Testdata).My code is like

Code:

val=window("").wincombobox("").getitemscount for i=0 to val-1 d=window("").wincombobox("").getitem(i) s=s+d+vbnewline print s

watever values in the combobox all values dispaly in the window.
Now i want to compare these values with my testdata values.These test data values in the textfile like val1,val2 ,val3 like
How can i compare and report my results.Pls give me the code

[Saket]

You can try this

Code:

Set fso=createObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(YourFilePath, 1) Dim strLine, arrLine, bMatch if f.AtEndOfStream <> True strLine = f.ReadLine arrLine = split(strLine,",") end if val=window("").wincombobox("").getitemscount bMatch = 0 for i= 0 to val-1 d=window("").wincombobox("").getitem(i) if d = arrLine(i) Then bMatch = 1 Next If bMatch = 1 then Msgbox "Compare - Failed" Else Msgbox "Compare - Passed" End if

I am assuming you have values in the text file in the form "Val1,Val2,.."
let me know if it works..

[1981.madhu@gmail.com]

In combobox i have values -India
USA
London
Japan
In my textfile having--India1,USA1,London,Japan
After Executing above code (urs).iam getting msg Has "Compare pass",but i given the wrong values in the textfile,y its like ..if i give right values ,then also its giving same .

[Saket]

Sorry my mistake, Can you please correct this statement in the above code and try again

Code:

if d <> arrLine(i) Then bMatch = 1