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