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 |
what is the structure for the data driven framework
I would like to do some certifications in QTP. please suggese what kind of certifications can i do. I am currently put up at chennai. So please suggest some reputed centres where these courses are offered.
To which environments does quicktest professional (qtp) supports?
I am not able to record yahoomail browser.its giving error like "The browser Application can't be launched .Posssibly the URL is wrong" So anyone can tell me what setting i have to do in qtp??
How to capture the Check point Value into a variable?
what is syncurnisation point? what is the use of this in real time environment? plz explain?
how to use import and export sheet methods in qtp
hi i have one doubt i have 4 yrs exp in testing and iam working one mnc in north but i have completed my degree correspodene is the companies are accept in south side some people are tellig they won't agree but i need correct answer plz let me know which companies are taking and not taking thanks in advance
I used the below code to open QTP through VBscript?But i can unable to Invoke QTP...PLZ help me with the correct code to invoke QTP through VBS with description of the code aswell. Dim qtApp 'As QuickTest.Application 'Declare the Application object variable Dim qtTest 'As QuickTest.Test 'Declare a Test object variable Dim qtResultsOpt 'Declare a Run Results Options object variable Set qtApp = CreateObject("QuickTest.Application") 'Create the Application object qtApp.Launch 'Start QuickTest qtApp.Visible = False 'Make the QuickTest application visible qtApp.Open "C:\form", True 'Open the test in read-only mode 'set run settings for the test Set qtTest = qtApp.Test qtTest.Run 'Run the test 'WScript.StdOut.Write "Status is: " & qtTest.LastRunResults.Status 'Check the results of the test run qtTest.Close 'Close the test qtApp.quit 'Close QuickTest Pro Set qtResultsOpt = Nothing 'Release the Run Results Options object Set qtTest = Nothing 'Release the Test object Set qtApp = Nothing 'Release the Application object
Object repositories types, which and when to use?
Explain the qtp test phases.
how to upload an excel sheet to quality center?