mesg2anil
15 years agoRegular Contributor
Wait till page loads and Row and Column loop
Hi,
I have two questions, please help me...
Question1:
I want to use script to make the script wait till the web page is loaded completely, instead of using "Delay" what other option I've?
I more thing I want to mention is... while web page is being loaded... theURL will not change... for example, when I click on submit button the webpage will go to next page, in this situation the URL will not change it will be "http://server1/default.asp" always, so how to make the script wait till the page is loaded completely?
Question2:
I'm using below code to read excel file and loop the columns, but how to loop rows? If I want the script to read two rows and input the data to application; what further changes I need to be to the below code?
Function ReadPayVou (Fname,Sname)
Dim Driver,i
Set Driver = DDT.ExcelDriver(Fname, Sname)
RecNo = 0
CreateSCArr1 = CreateVariantArray(0, 0)
'Record Loop
While Not DDT.CurrentDriver.EOF
Please suggest!!
I have two questions, please help me...
Question1:
I want to use script to make the script wait till the web page is loaded completely, instead of using "Delay" what other option I've?
I more thing I want to mention is... while web page is being loaded... theURL will not change... for example, when I click on submit button the webpage will go to next page, in this situation the URL will not change it will be "http://server1/default.asp" always, so how to make the script wait till the page is loaded completely?
Question2:
I'm using below code to read excel file and loop the columns, but how to loop rows? If I want the script to read two rows and input the data to application; what further changes I need to be to the below code?
Function ReadPayVou (Fname,Sname)
Dim Driver,i
Set Driver = DDT.ExcelDriver(Fname, Sname)
RecNo = 0
CreateSCArr1 = CreateVariantArray(0, 0)
'Record Loop
While Not DDT.CurrentDriver.EOF
'Column Loop
For i = 0 To DDT.CurrentDriver.ColumnCount - 1
PropNum = PropertyCount
'Iterates through the properties
For j = 0 to (PropNum - 1)
PropName = Properties(j).Name
Next
Next
VarArrayRedim CreateSCArr1, RecNo
RecNo = RecNo + 1
DDT.CurrentDriver.Next()
WEnd
'Closing the driver
Call DDT.CloseDriver(Driver.Name)
End Function
Please suggest!!
Please suggest!!