how can I read text in browser and export the same into text
file?
Answers were Sorted based on User's Feedback
Answer / eswar
'Modified answer foe above Script
systemutil.Run "Iexplore","www.google.com","open"
wait 5
Set desc=description.Create()
desc("micclass").value="WebElement"
desc("html tag").value="P"
Dim Fso,file_loc,Fc,Forreading,d
Set Fso=createobject("scripting.FileSystemObject")
Set Fc=Fso.CreateTextFile("D:\akh.txt",8)
Set a=browser("title:=.*").page("title:=.*").ChildObjects(desc)
b=a.count
msgbox b
For i=0 to b-1
d=a(i).getroproperty("outertext")
a(i).highlight
' print "Text -->" & d
MsgBox d
Fc.writeline"The text is : "&d
Next
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / akhaleshyadav1985
systemutil.Run "Iexplore","www.gmail.com","open"
wait 10
Set desc=description.Create()
desc("micclass").value="WebElement"
desc("html tag").value="P"
Set a=browser("title:=.*").page("title:=.*").ChildObjects(desc)
b=a.count
msgbox b
For i=0 to b-1
d=a(i).getroproperty("outertext")
a(i).highlight
print "Text -->" & d
Next
Dim Fso,file_loc,Fc,Forreading,d
Set Fso=createobject("scripting.FileSystemObject")
Set Fc=Fso.OpenTextFile("C:\aa\akh.txt",Forwriting,true)
Fc.Writeline(d)
Akhalesh Yadav
9555717928
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / uday
If u r looking the source code of a browser:
http://hpsqtp.blogspot.in/2012/03/how-to-get-source-code-of-webpage-using.html
| Is This Answer Correct ? | 1 Yes | 1 No |
''Take a value from application and copy it into the text
and excel file.
a=
Browser("CreationTime:=1").Page("Micclass:=page").webButton("html
id:=ctl00_contplhDynamic_imgSignIn").GetROProperty("name")
Set fo=CreateObject("scripting.FilesystemObject")
Set otext=fo.CreateTextFile ("c:\Text11.txt")
''otext.Write a
Set oExcel=CreateObject("Excel.Application")
oExcel.Visible=True
Set oWorkBook=oExcel.Workbooks.Open("c:\Test11.xls")
Set oWorkSheet=oWorkBook.Worksheets("Sheet1").cells(1,1)
oWorkSheet.value=a
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / rohit pathak
file name.Export("C:\Results\file name.xls")
First you have to tell which file you want to export and
then where you want too export that file.
| Is This Answer Correct ? | 0 Yes | 2 No |
Can any body please tell me the steps of keyword driven frame work in qtp. My mail is saswat445@gmail.com please send some materials on keyword driven testing in qtp. thanks a lot...
I installed QTP 9.5 on vista. Can someone please provide me the license key of the same. Thanks, Avi
What does SPLIT and JOIN commands do in Vbscript?
6 Answers Ordain Solutions, UBC,
How to find given string is palindrome or not without using strreverse() function?
How do know the number of browsers opened?
How many types of recording modes in qtp?
Tell me the situations where we will use Data Driven?
Whats the realtime QTP testing process
need clear explanation of actions and functions in qtp with examples?can anyone suggest me gud site for that other than qtp manual?
When ‘option explicit’ keyword is used in qtp?
How can we retrieve the Bug Ids which are open&Reopen in status through QTP scrit?Please find the script which i tried... Dim objBugFactory, objBug Dim BugId Set TDConnection = QCUtil.TDConnection Set objBug = TDConnection.BugFactory If QCUtil.IsConnected then Reporter.ReportEvent 0, "Connected", "Connected to server: " + QCUtil.TDConnection.ServerName + chr (13) +"Project: " + QCUtil.TDConnection.ProjectName + chr (13) + "Domain: " + QCUtil.TDConnection.DomainName Reporter.ReportEvent 0, "Current time on server is","==>" & TDConnection.ServerTime Else Reporter.ReportEvent 1, "Not connected", "Not connected to Quality Center" End If If mybug.Status="Open" Then BugId=mybug.DefectId MsgBox BugId End If 'OR**********************************--------------------- -----********************************** If Bug_Fields("BG_STATUS").Value ="Open" Or "Re Open"Then BugId=Bug_Fields("BG_BUG_ID").Value MsgBox BugId End If
QTP 1.What type of bugs u commonly find in u r project? 2.what is agile testing explain with example? 3.application is given req n functionality r missing then how can u start testing? 4.what r the types of defect tracking tools? 5.what is functionality testing? 6.what is change req how u use it? 7.diff bet gul n functional testing? 8.test cases for IE 6.0? 9.where do u store test cases? 10.what r design objects in qtp? 11.what r 5 types of objects in qtp? 12.how to change .mtr to .tsr n vice versa? 13.in which situations qtp will not recoznize objects? 14.how to call .vbs fuctions, library files in qtp? 15.if 10 windows r ope write command to close all windows in qtp? 16from what stage u start automation in u r project? 17.what is VSS? it is usedin automationr manual? 18.size of object repository? 19.how to conduct GUI testing n performance testing on MS-Word? what r performance TEST CASES? 20. use of virtual objects explain? 21.how to connect buzilla with qtp? 22. what is API ? 23.how to merge 2 object repositories in qtp? 24.what is recovery scenario manager? 25. diff bet link n hyper link? 26.diff bet test case n test case scenario? 27.what is relational testing? 28.where do we write test cases? 29.what is base line in testing? 30.what r key process areas(KPA) in u r company? 31.what is hot fix? 32.what is sql injection? 33.what is valnerability? 34.what is TOM in qtp? 35.can we do qtp testing with out creating objects in object repository? can we completely write code in expert view only? 36.where we cant do automation testig? give example using OR is a advantage r a disadvantage?