compare strings and perform action

[Forrest Gump]

Hi All,

In run time, I want to compare strings in the datatable and perform action.

I have attached the screenshot with the code and datatable in the post.

Am also posting code here:

Code:

Invokeapplication ("E:\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe")
    Dim a, b
    row=DataTable.GetCurrentRow
    a=datatable("A", dtGlobalSheet)
    DataTable.SetCurrentRow(row+1)
    b=datatable("A", dtGlobalSheet)
    If strcomp(a,b)=0 Then
    Dialog("Login").Activate
    Dialog("Login").WinEdit("Agent Name:").Set "Forrest"
    Dialog("Login").WinButton("Cancel").Click
    Else
    Dialog("Login").Activate
    Dialog("Login").WinEdit("Password:").SetSecure "4e6224718ae0eaf92a4e26655f509650a67f9999"
    Dialog("Login").WinButton("Cancel").Click
    End If

Aim: If Column "A" has value "ABC" then QTP must Enter Username and click cancel.

If column "A" has value "DEF" then QTP must enter password and click cancel.

But according to my code, it is entering Username if strings are same irrespective of data in Column "A".

Help me with the logic and also on coding if possible.

One of my application runs in similar logic so for better understanding I took Flight Application as example.

In my application, I have two Pages:
1. Change Organization (Enter Organization Name i.e column "A" values)
2. Enter values for organization

I will enter organization name (one orgnization name) once and then will enter its related data (this will be multiple records).
Then will again change Organization name and enter its records.

First column will have organization name; similar to the one I posted here i.e in Page1.
For Example: If Organization name is "ABC", then QTP must enter data related to column "ABC"

If value in Column "A" is changed from "ABC" to other value, say "DEF", then QTP must enter "DEF" in Organization name (i.e., Page1 in my application) and enter data related to column "DEF" (These data will be entered in Page2 of my application)

FYI: This action is no way related to my previous posts.

Thanks in advance
- Gump

[Ankesh]

Hi Gump,

As per my understanding of the explantion u have given, i must say its better for you to compare the each cell value..

Ur code shld be something like this...

Code:

a=datatable("A", dtGlobalSheet)
if a="ABC" Then
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set "ABC"
Dialog("Login").WinButton("Cancel").Click
ElseIf a="DEF" Then
Dialog("Login").Activate
Dialog("Login").WinEdit("Password:").SetSecure "4e6224718ae0eaf92a4e26655f509650a67f9999"
Dialog("Login").WinButton("Cancel").Click
End If

i hope this will work.

The problem with ur code is that it is not checking for a specific value, it is comparing two strings instead. So whatever the values are in the datatable, if the two rows values are equal, it will enter the userID always.

Do let me know if u need further informaton.

Regards,
Ankesh

[Forrest Gump]

Hi Ankesh,

Thanks for replying. Am glad that my query is answered after these many days.

You understood the problem correctly but not exact way.

Code:

As per my understanding of the explantion u have given, i must say its better for you to compare the each cell value..

Ur code shld be something like this...
a=datatable("A", dtGlobalSheet)
if a="ABC" Then

If I had to assign the values "ABC" or "DEF", it takes more time for me to do that manually and also the data I get is huge. Thats the reason I want QTP to take care of this and automate it completely as I dont want manual work to be done.

FYI: In my datatable the values such as "ABC" or "DEF" itself will be more than 1000 numbers. If I had to go by your method then I just have to enter those values manually 1000 times to assign it to a variable.
I hope you understand what am trying to say.

Please do guide me in automating this.

Thanks and Regards,
- Gump

[suresz449]

Hi Gump,
As per my understanding your query the below code will solve your problem.

(Before that you have to change settings in File ->Settings->Run->Check Run One Iteration Only)

Code:

'Count all rows in Global datatable
iCount = DataTable.GetRowCount
msgbox iCount

For i = 1 to iCount
    InvokeApplication "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"
    cData = DataTable.Value("A","Global")
    msgbox cData
    If Strcomp(cData,"ABC") = 0 Then
        Dialog("Login").WinEdit("Agent Name:").Set "Suresh"
        Dialog("Login").WinButton("Cancel").Click
    else
        Dialog("Login").WinEdit("Password:").Setsecure "4e65b185ba904947d41d711097890e962b647446"
        Dialog("Login").WinButton("Cancel").Click
    End If
    DataTable.SetNextRow
Next

[Rohan]

Hi gump,
here in your case we are taking values from data table and performing actions according to the condition, what the answer given by ankesh is correct, in order to save time you could use select statement.

example

Code:

a=datatable("A", dtGlobalSheet)
Select Case a
Case "ABC"
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set "ABC"
Dialog("Login").WinButton("Cancel").Click
Case "DEF"
Dialog("Login").Activate
Dialog("Login").WinEdit("Password:").SetSecure "4e6224718ae0eaf92a4e26655f509650a67f9999"
Dialog("Login").WinButton("Cancel").Click
Case else
next action
End Select