Answer / murali raju

Public function edit(name)
Browser("yahoo").Page("yahoo").Webedit("User Id").set name
End function

Call edit("Murali Raju")

Answer / adlajaipal

'@generic function for Webedit
'@ arguments to pass values
Function WebEdit(sValue,sItem)
set Edit=description.create()
Edit("micclass").value="webedit"
set
basepage=Browser("micclass:=Browser").page("micclass:=Page").childobjects(Edit)
sCount=basepage.count
for i=1 to sCount
Edit=basepage(i).getroproperty("name")
if sValue=Edit then
basepage(i).set sItem
exit for
end if
next
end function
'@ call
WebEdit "Editbox name", "value of edit box"

Answer / sunitha

Gneric Function for WebEdit
Values strBrow,strPAge come from object repository
Value strEditboxName is the one which we get on spying the
object and getting its property name.
Value strVal is the one which we want to set in Edit box

function fg_SetValueinEditbox
(strBrow,strPage,strEditboxName,strVal)
set oD = Description.create
oD("micclass").value = "WebEdit"
set strEbox = Browser(strBrow).Page(strPage).Chilobjects(oD)
For iCnt=0 to strEbox.count-1
strName = strEbox(iCnt).GetROProperty("name")
If strcomp(strName,strEditboxName,1) = 0 Then
strEbox(iCnt).set strVal
Exit for
End if
Next
End Function

Answer / zakir qureshi

DataTable.AddSheet("FrameWork")
DataTable.ImportSheet "D:\Excel Automation -
Imp\Frame.xls","FrameWork","FrameWork"
varRowCnt=DataTable.GetSheet("FrameWork").GetRowCount

For i=1 to varRowCnt
DataTable.GetSheet("FrameWork").SetCurrentRow(i)

Set
varBrowser=Browser(datatable.Value("BrowserPropName","FrameWork")&":="&datatable.Value("BrowserValue","FrameWork"))
Set
varPage=varBrowser.Page(datatable.Value("PagePropName","FrameWork")&":="&datatable.Value("PageValue","FrameWork"))
Set
varObject=varPage.WebEdit(datatable.Value("ObjPropName","FrameWork")&":="&datatable.Value("ObjValue","FrameWork"))
varObjValue=DataTable.Value("Expected","FrameWork")

varCnt=Set_EditBoxValue(varBrowser,varPage,varObject,varObjValue)
Next

Public Function
Set_EditBoxValue(varBrowser,varPage,varObject,varObjValue)

'Set
varBrowser=Browser(datatable.Value("BrowserPropName",dtglobalsheet)&":="&datatable.Value("BrowserValue",dtglobalsheet))
varBrowserExist=""
varBrowserExist=varBrowser.Exist(2)
If varBrowserExist="True" Then
Set_LoginDetails=varBrowserExist
'Set
varPage=varBrowser.Page(datatable.Value("PagePropName",dtglobalsheet)&":="&datatable.Value("PageValue",dtglobalsheet))
varPageExist=""
varPageExist=varPage.Exist(2)

If varPageExist="True" Then
Set_LoginDetails=varPageExist
'Set
varObject=varPage.WebEdit(datatable.Value("ObjPropName",dtglobalsheet)&":="&datatable.Value("ObjValue",dtglobalsheet))
varObjectExist=""
varObjectExist=varObject.Exist(2)
If varObjectExist="True" Then
Set_LoginDetails=varObjectExist
varObject.Set varObjValue
varActualValue=varObject.GetROProperty("value")
DataTable.Value("Actual","FrameWork")=varActualValue
If trim(varActualValue)=trim(varObjValue)Then
DataTable.Value("Result","FrameWork")="Pass"
Else
DataTable.Value("Result","FrameWork")="Fail"
End If
Else
Reporter.ReportEvent 1,"Object does not exist","Object
does not exist"
DataTable.Value("Result","FrameWork")="Object does not
exist"
Set_LoginDetails=varObjectExist
End If
Else
Reporter.ReportEvent 1,"Page does not exist","Page does
not exist"
DataTable.Value("Result","FrameWork")="Page does not exist"
Set_LoginDetails=varPageExist
End If
Else
Reporter.ReportEvent 1,"Browser does not exist","Browser
does not exist"
DataTable.Value("Result","FrameWork")="Browser does not exist"
Set_LoginDetails=varBrowserExist
End If
DataTable.ExportSheet "D:\Excel Automation -
Imp\Frame.xls","FrameWork"
End Function

Answer / kiran

'Bname -- Browser name
' Pname- Pagename
' EditName---Editboc name
'Edittag--html tag name
'indx-Index of object
'InputVal---inputvalue
Public Sub SetWebEdit
(Bname,Pname,EditName,Edittag,index,InputVal)
If Browser("name:="&Bname).Page("title:="&Pname").WebEdit
("name:="&EditName,"html
tag:="&Edittag,"index:="&indx).exist
Browser("name:="&Bname).Page("title:="&Pname").WebEdit
("name:="&EditName,"html tag:="&Edittag,"index:="&indx).set
InputVal
Reporter.ReportEvent micpass,"The Object is exist and set
value suuccesfully","Pass"
Esle
Reporter.ReportEvent micFail,:the object is not existing
and filled","Fail"
End If
End Sub

Answer / krishna madiga

i think a lot of time about this question .but i did 'nt
get sorry....

Hi I have a doubt in qtp. Can you please clarify my doubt. If we are importing the data from excel sheet in qtp the the script is running the number of row times. I mean if there are 4 rows in excel sheet the script is running 4 times. cant we avoid this. suppose i have tis script: datatable.Import "C:\Documents and Settings\sailaja\My Documents\login1.xls" n = datatable.GetRowCount For i =1 to n systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" datatable.SetCurrentRow i Dialog("Login").WinEdit("Agent Name:").Set DataTable ("Username", dtGlobalSheet) Dialog("Login").WinEdit("Password:").Set DataTable ("Password", dtGlobalSheet) Dialog("Login").WinButton("OK").Click Window("Flight Reservation").ActiveX ("MaskEdBox").Type "020209" Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt" Window("Flight Reservation").WinComboBox("Fly To:").Select "Los Angeles" Window("Flight Reservation").WinButton("FLIGHT").Click Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click Window("Flight Reservation").WinEdit("Name:").Set "Sailaja" Window("Flight Reservation").WinButton("Insert Order").Click Window("Flight Reservation").WinMenu ("Menu").Select "File;New Order" window("Flight Reservation").Close next I created a excel sheet with 3 rows and 2 columns. (username and password). The script is running 9 times. I made the option run one itaration only . eventhough it is running 9 times .can u plaese clarify my doubt. Thankyou Sailaja.

3 Answers  

Give me exact application where we should use low level recording?

6 Answers   CTS,

when we apply the daily build each and every day,the property may change in the application.so that the created script is not reusable in winrunner and qtp.for ex for date field it is taken dtpicker.at another time it is taken some other name.how can i solve it.

0 Answers  

how to click the link in webpage by using QTP Script????????

3 Answers  

Hi,The question is write a script for the following scenario. scenario:in a job portal i entered QTP 3yrs testing then click search button.then it displays results like Test lead bangalore (here is a checkbox). Test lead hyderabad check box so on... question is if test lead position in bangalore then checkbox shld be enabled automatically..

4 Answers   Thatavarti Technologies,

how can we compare descriptive programing with a regular expression

0 Answers  

QTP Query: Hello to all, I'm getting an error (as below) when I perform descriptive programming on any Web application. "The test run cannot continue due to an unrecoverable error.The "myvar_0" object was not found in the Object Repository. Check the Object Repository to confirm that the object exists or to find the correct name for the object " But I do not have any problem when I perform the same descriptive programming on a Windows application such as Sample Application - Flight. Previosly , I had prepared a lot of scripts - both via creating the properties collection object and by giving the description in string arguments and implemented them on Flight and they're working perfectly fine.I'm using QTP Version 9.2 The sample script I have used for Web application is as below : Set myvar_0 = Description.Create 'Setting property collection object for Browser myvar_0("class").value = "Browser" myvar_0("name").value= ".*" 'Setting property collection object for Page Set myvar_1 = Description.Create myvar_1("class").value = "Page" myvar_1("name").value= ".*" 'Setting property collection object for Text box Set myvar_2 = Description.Create myvar_2("class").value = "WebEdit" myvar_2("name").value= ".*" 'Setting property collection object for Button Set myvar_3 = Description.Create myvar_3("class").value = "WebButton" myvar_2("name").value= ".*" SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe" Browser("myvar_0").Page("myvar_1").WebEdit("myvar_2").Set ("hello how are you ?") Browser("myvar_0").Page("myvar_1").WebButton ("myvar_3").Click Browser("myvar_0").Page("myvar_1").Sync Browser("myvar_0").Close As our application is a Web based application, I was planning to make a few changes in regards to the object names, but unfortunately I am getting the above mentioned error. Could anyone please advice me, whether it could anything to do with the run setting or anything else.I am getting the same error even while implementing on our Sample Application - Mercury Tours website. I would be grateful to anybody who can solve my problem !!

1 Answers  

Is it possible to test Flat file using QTP? I have two file- first file is Input file and second file is output file. Input file has Format like first 2 field is record type, next 10 field is Description. Output file also has format. I want to check this file format using QTP. Is it possible?? please reply with example.

2 Answers   Wipro,

how we connect oracle or sql data server database to qtp.

4 Answers   TCS,

Can you tell me any books or websites to learn VB Script for QTP ??

1 Answers  

HI, Based On The Information Below Write A Data Driven test Script Edit Box 1 Should take Value From Num1 Column Edit Box 2 Should take Value From Num2 Column Click On Add Button, Get The Value Of Exp res Column, Get Value From Actual Result Edit Box , Compare Two Values, Write Pass / Fail Value Into Result Column Thanks In Advance... Kavitha Input.Xls Num1 Num2 Exp res Act res Result 10 30 40 40 Pass 50 40 90 90.5 - - - - - - - - - - - - - - - -

5 Answers   UHG,

How to find given string is palindrome or not without using strreverse() function?

2 Answers