#include <Array.au3>
#include <IE.au3>
$iMax = 1000
Dim $aResult[$iMax][2]
$j = 0
$oIE = _IECreate('http://...')
$oElements = _IETagNameGetCollection($oIE, 'span')
For $oElement In $oElements
If StringRegExp($oElement.className, '^(red|blue|green)$') Then
$sText = $oElement.innerText
If StringRegExp($sText, '^\d+/\d+$') Then
$j += 1
If $j = $iMax - 1 Then
$iMax += 1000
ReDim $aResult[$iMax][2]
EndIf
$aResult[$j][0] = StringRegExpReplace($sText, '/.*$', '')
$aResult[$j][1] = StringRegExpReplace($sText, '^.*/', '')
EndIf
EndIf
Next
If $j Then
ReDim $aResult[$j + 1][2]
$aResult[0][0] = $j
_ArrayDisplay($aResult)
Else
MsgBox(16, 'Error', 'Ничего не нашли')
EndIf