如何根据应用程序屏幕上的标签使UFT脚本跳过excel中的单元格

Question

I have a very dynamic application to automate using UFT. The labels on the application screen change based on the input provided by the user. I have an excel where I have set the field value for all possible fields present in the application. The challenge is I want my UFT script to pick only those field values for which it finds the field name on screen. Each time I run the script, based on the selection whatever fields apppear on the screen, I want it to pick only those corresponding values from the excel sheet and ignore the other values in that excel sheet.

Eg

Excel has the following vales

Name: Nancy Grade: 8 Hobby: Writing Friend: Veronica BFF: Karen

But in the application on screen only the following labels appear

Name: Hobby: BFF:

I want the UFT script to compare the field label on screen with that in excel and pick those values from excel (in this case Name, Hobby, BFF) and ignore the other fields (Grade and Friend) .

Is this possible?

Answer 1

Why not just using

If Obj1.Exist(5) Then
    Obj1.Set ValueFromExcel1
End if

If Obj2.Exist(5) Then
   Obj2.Set ValueFromExcel2
End if

Answer 2

Let's assume your application presents various editboxes on a form for input, and you are using the DataTable object to store your Excel file.

Ok, here's what I would do.

First... I'd gather the objects into the Object Repository. I would create/record each possible edit box as a separate object (within an object for the app itself), making sure that each object is uniquely identifyable by name... (if the edit box controls themselves aren't uniquely named behind the scenes, QTP offers the ability to link to the captions next to them...). Also, if the application merely HIDES the edit boxes, then make sure Visible=True is one of the idenfitying attributes, such that when Visible=False, they are not found.

Once every object is in the OR, then it's a simple matter of checking if they exist.

'assuming your excel file is already imported as the global DataTable
if Window("My App").Editbox("Name").exist(0) then Window("My App").Editbox("Name").Set DataTable("Name")
if Window("My App").Editbox("Grade").exist(0) then Window("My App").Editbox("Grade").Set DataTable("Grade")
if Window("My App").Editbox("Hobby").exist(0) then Window("My App").Editbox("Hobby").Set DataTable("Hobby")
if Window("My App").Editbox("Writing Friend").exist(0) then Window("My App").Editbox("Writing Friend").Set DataTable("Writing Friend")
if Window("My App").Editbox("BFF").exist(0) then Window("My App").Editbox("BFF").Set DataTable("BFF")

Of course, this example is inefficient and can be easily rolled up (ie you could make a UDF, and call it from a loop reading field names from an array...) But, it should demonstrate this simple approach.

Answer 3

I agree with the @theblastone you should provide some code to help understand your situation better. Anyhow I will try to answer your question. The following is an example and you can build your code around it. I am not sure how the labels are appearing in your application, I am going to assume each label can be identified separately.

j = Datatable.localsheet.GetRowCount

For i = 1 to j
Datatable.LocalSheet.SetCurrentRow i

vout = trim(Datatable("Excel column name",dtlocalsheet))
'Not sure about the following line
vin = browser().page().Webtable().getcelldata(r,c)
If not trim(Ucase(vout))= trim(Ucase(vin)) Then
Datatable("Result",dtlocalsheet) = "Invalid Record"
Do Until trim(Ucase(vout))= trim(Ucase(vin))
i=i+1
If i > j Then
ExitAction  
End IF
Datatable.LocalSheet.SetCurrentRow I
Datatable("Result",dtlocalsheet) = "Invalid Record"
vout = trim(Datatable("Excel column name",dtlocalsheet))
Loop
End If