Micro Focus QTP (UFT) Forums
Regular Expression Syntax - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Regular Expressions (https://www.learnqtp.com/forums/Forum-UFT-QTP-Regular-Expressions)
+--- Thread: Regular Expression Syntax (/Thread-Regular-Expression-Syntax)

Pages: 1 2 3 4

RE: Regular Expression Syntax - Saket - 06-03-2010

I have used this to create the generic Link object with the properties specified.
Once we create that we can search for all the object in the page.
look into QTP help for more details.

RE: Regular Expression Syntax - Anu - 06-03-2010

Hi Saket,

Thnks for the information...............

Regards,
Anu

RE: Regular Expression Syntax - Anu - 06-03-2010

Hi Saket,

The code is working properly that is navigation to other web pages is happening but writting the data to excel is not proper.
The screen shot of excel is attached where the data is fetched after running the script.

Waiting for reply Sad

Regards,
Anu

RE: Regular Expression Syntax - Saket - 06-03-2010

Paste your modified code here

RE: Regular Expression Syntax - Anu - 06-03-2010

Code:
Dim xlSheet,xlBook, xlApp,a,CustomerName,Address,datatable
Const ForAppending = 8
const TristateTrue=-1
file_location = "F:\Test.xlsx"


'----------'For Wirting in  Excel Sheet'

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Open("F:\Test.xlsx")
Set xlSheet = xlBook.WorkSheets("Sheet1")
Set oLinks = Description.Create
oLinks("micclass").Value = "Link"
oLinks("html tag").Value = "A"

Set AllLinks = Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").ChildObjects(oLinks)
nLinks =AllLinks.count
For i = 2 to nLinks
CountOfRows=Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("DataTable").WebTable("Table").RowCount

nRow = xlSheet.UsedRange.Rows.Count
For j = 1 To CountOfRows
'a=Browser("Untitled Page").Page("Untitled Page_3").WebTable("Data_Table").GetCellData(i,1)
CustomerName=Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("DataTable").WebTable("Table").GetCellData(i,3)
Address=Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("DataTable").WebTable("Table").GetCellData(i,4)
nRow = nRow + 1
xlSheet.Rows(nRow).Columns(1).Value =CustomerName
xlSheet.Rows(nRow).Columns(2).Value =Address
Next
oLinks("text").Value = i
Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("LinkTable").Link(oLinks).Click
Next
xlApp.DisplayAlerts = False
xlBook.Save
'xlBook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing


RE: Regular Expression Syntax - Anu - 06-04-2010

Hi Saket,

I have pasted the code........

Please assist me.
Thanks in advance............

Regards,
Anu

RE: Regular Expression Syntax - Saket - 06-04-2010

you have changed the loop variable to 'j' for second For loop, but did not change it at other placed where you have used. all are still 'i'
changed the second loop as below -
Code:
For j = 1 To CountOfRows
'a=Browser("Untitled Page").Page("Untitled Page_3").WebTable("Data_Table").GetCellData(j,1)
CustomerName=Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("DataTable").WebTable("Table").GetCellData(j,3)
Address=Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("DataTable").WebTable("Table").GetCellData(j,4)
nRow = nRow + 1
xlSheet.Rows(nRow).Columns(1).Value =CustomerName
xlSheet.Rows(nRow).Columns(2).Value =Address
Next

put your codes using proper formatting tags to make it more readable

RE: Regular Expression Syntax - Anu - 06-04-2010

Hi Saket,

Now it works properly.

Regards,
Anu