array read and process through it

[joeloyzaga]

oh geez - why didn't is see that - thx

[water]

Sometimes it needs two pairs of eyes

[joeloyzaga]

I get this output while running this part of the code "_open("http://www.google.com")" - any hints?

COM Error

Number: 0x000000A9

ScriptLine: 5166

WinDescription:

Description: Variable must be of type 'Object'.

Source:

COM Error

Number: 0x000000A9

ScriptLine: 5172

WinDescription:

Description: Variable must be of type 'Object'.

Source:

COM Error

Number: 0x000000A9

ScriptLine: 5177

WinDescription:

Description: Variable must be of type 'Object'.

Source:

[water]

Don't see function _open in your code. Is it in some of your includes?

[joeloyzaga]

should be in the include sda.code.au3

[water]

Without seeing the code it's not easy to help.

It looks like you try to work with an object variable which doesn't point to an object.

[joeloyzaga]

I sent the code in my attachment - tried using the debugger and it didn't even get that far. any suggestions?

[joeloyzaga]

got this working opening a hard coded url but will make it all data driven now.

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile_type=a3x
#AutoIt3Wrapper_Outfile=C:\laptop apps\BlueDuck SDA 2.0\examples\readexcelnyworksheetname.a3x
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <../lib/sda.core.au3>
#include <Excel.au3>
#include <Array.au3>
Global $aSheetData
Global $sBrowser
Global $iIndex
$sBrowser = "iehta"
Global $oExcel
Global $aSheets
Global $sSheet2Process
Global $oTest
$oExcel = _ExcelBookOpen("E:\datafiles\DOT\JLauto\Resources\DOT.xls")
If @error Then Exit MsgBox(16, "Error", "_ExcelBookOpen returned error " & @error)
$aSheets = _ExcelSheetList($oExcel)
If @error Then Exit MsgBox(16, "Error", "_ExcelSheetList returned error " & @error)
While 1
    $sSheet2Process = InputBox("Prompt", "Please enter the name of the sheet to process", "")
    If @error = 1 Then ExitLoop ; Cancel was pressed
    _ExcelSheetActivate($oExcel, $sSheet2Process) ; Activate the sheet
    If @error Then
        MsgBox(16, "Error", "_ExcelSheetActivate returned error " & @error)
    Else
        $aSheetData = _ExcelReadSheetToArray($oExcel) ; Read the whole sheet into an array
        If @error Then
            MsgBox(16, "Error", "_ExcelSheetActivate returned error " & @error)
        Else
            _ProcessSheet($aSheetData)
        EndIf
    EndIf
WEnd
Func _ProcessSheet(ByRef $aSheetData)
    ; Process the data in the active sheet
    For $iRow = 3 To $aSheetData[0][0]
        For $iCol = 3 To $aSheetData[0][1] - 1
            If $aSheetData[$iRow][$iCol] = "" then
   MsgBox(16, "nothing to process", $aSheetData[$iRow][$iCol],2)
   else
   ;MsgBox(0, "found something to process",  $aSheetData[$iRow][$iCol],2)
   if StringInStr($aSheetData[$iRow][$iCol], "LaunchApp|") > 0 then
    msgbox(0,"Found a url to open",$aSheetData[$iRow][$iCol],2)
    Local $oTest,$oRepo
    ;New Test object
    $oTest = NewTest(@ScriptName)
    ;Start Test
    ;$oTest.Setup()
    ;Test Report create
    $oTest.Report.Create
    ;New Browser
    $oTest.NewBrowser($sBrowser,'http://es.altavista.com')
    $oTest.Browser.start
    ;Search in Altavista
    _open("/'")
    _windowMaximize()
    _waitForPageToLoad("3000")
    _type("//*[@id='yschsp']","BlueDuck SDA")
    _click("//*[@id='yschbt']")
    _waitForPageToLoad("3000")
    ;Check and add Steps Results
    If _isTextPresent("AutoIt driver for Selenium ") = 1 Then
     $oTest.AddStepResult("Step 1","Search",1)
    Else
     $oTest.AddStepResult("Step 2","Search",0)
    EndIf
    $oTest.Report.Close
    $oTest.Browser.stop
    endif
   EndIf
        Next
    Next
EndFunc   ;==>_ProcessSheet

Func setUp()
  $oTest.NewBrowser('firefox','http://www.google.com/')
  $oTest.Browser.start
        _createReport(@ScriptName) ;Set the result report
        _construct($sBrowser ,"http://www.google.com/")
        _start()
EndFunc
Func tearDown()
        ;_reportClose()
        _stop()
EndFunc
_ExcelBookClose($oExcel)

[water]

All problems solved now?

[joeloyzaga]

yes!!!!!!!!!!!!!!!!!!

thanks!!!!!!!!!!!!!!!!!!!!!

[water]