Regular Expression Syntax

[Saket]

I am confused now.. are you trying to have a regular expression in OR for page identification or you are trying to navigate to page 2

[Anu]

Hi Saket,

Below is the link for which i want to use regex in OR.
And regex used in OR is mentioned below:
http.*://210.212.12.163/.*/.*/.*.php?.*

[Saket]

so this should work properly to identify page 2 as well. isn't it working? what the error says?

[Anu]

Now when i run the script, it goes to the next web page and the links on the page gets changed shown below:

---

On coming to that web page shown below, it click on [First Page]or [Prev] instead of Link 3.

---

This the reason why i want to remove the page=1 so that it works properly.

Hope this explains my problem.

Regards,
Anu

[Saket]

so the issue is for clicking the page links, this is not becuase you have done the regular expression for page url. however it will help to identify the page correctly after each click.

to click on the different page links, see if below code helps you

Code:

'Put your statement for the initial steps '... 'get the number of links Set oLinks = Description.Create oLinks("micclass").Value = "Link" oLinks("html tag").Value = "A" Set AllLinks = Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search").ChildObjects(oLinks) nLinks =AllLinks.count For i = 1 to nLinks oLinks("text").Value = i 'Put your statements to test the Page here '... '... Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search").Link(oLinks).Click Next 'Leave the OR as it is you have done till now

let me know if I am still not getting your issue properly

[Anu]

Hi Saket,

The code is bit confusing.One reason is that i do not know Descriptive programming and in this code may be you have used that.

Could you please tell me where to add this code. The code which i am using is mentioned below:

Code:

Dim xlSheet,xlBook, xlApp,a,CustomerName,Address,datatable Const ForAppending = 8 const TristateTrue=-1 file_location = "C:\Test.xlsx" '----------'For Wirting in Excel Sheet' Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.WorkBooks.Open("C:\Test.xlsx") Set xlSheet = xlBook.WorkSheets("Sheet1") CountOfRows=Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("DataTable").WebTable("Table").RowCount nRow = xlSheet.UsedRange.Rows.Count For i = 1 To CountOfRows-1 '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 xlApp.DisplayAlerts = False xlBook.Save 'xlBook.Close xlApp.Quit Set xlApp = Nothing Set xlBook = Nothing Set xlSheet = Nothing Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("LinkTable").Link("2").Click

Waiting for your response.

Regards,
Anu

[Saket]

here is the simplified code

Code:

Dim xlSheet,xlBook, xlApp,a,CustomerName,Address,datatable Const ForAppending = 8 const TristateTrue=-1 file_location = "C:\Test.xlsx" '----------'For Wirting in Excel Sheet' Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.WorkBooks.Open("C:\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").ChildObjects(oLinks) nLinks =AllLinks.count For i = 1 to nLinks'* CountOfRows=Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("DataTable").WebTable("Table").RowCount nRow = xlSheet.UsedRange.Rows.Count For i = 1 To CountOfRows-1 '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").Link(oLinks).Click Next '* xlApp.DisplayAlerts = False xlBook.Save 'xlBook.Close xlApp.Quit Set xlApp = Nothing Set xlBook = Nothing Set xlSheet = Nothing 'Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("LinkTable").Link("2").Click

[Anu]

Hi Saket,

I have done the modification as per your previous post. But on running the script following error comes shown below:

[Saket]

OK, I have used the same variable 'i' which you have already used, Please change it to some other variable and proceed

[Anu]

Hi Saket,

Thnks for the support

Could you please tell me why u have used in the code below:

Code:

Set oLinks = Description.Create oLinks("micclass").Value = "Link" oLinks("html tag").Value = "A"

Regards,
Anu