#include <Array.au3>
#include <Excel.au3>
#include <String.au3>
#include <MsgBoxConstants.au3>

Global $g_bPaused = False
HotKeySet("{ESC}", "Terminate")
Func Terminate()
    Exit
 EndFunc   ;==>Terminate

; Create application object and create a new workbook
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookNew($oExcel)
If @error Then
    MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example", "Error creating the new workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
EndIf

$Source = BinaryToString(INetRead('https://www.basketball-reference.com/boxscores/?month=01&day=5&year=2020',1))

$Teams = _StringBetween($Source,'<td><a href="/teams/','/2020.html">')

For $a = 0 To UBound($Teams) - 1
   _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $Teams, "A1", Default, True)
   Sleep(25)
Next
;;;;^Pulls teams array; writes to excel^;;;