[Creat0R]

По другому не получилось »

Код:

#include <Array.au3>
#include <File.au3>
#include <INet.au3>

Dim $aReadHTML
Global $ifForStringSearch = False, $sNewFileHTML

$sURL_LINK = 'http://cstrike.*****.net/monitoring/'

$sREAD_HTML = _INetGetSource($sURL_LINK)

If Not @error Then
    $aReadHTML = StringSplit(StringStripCR($sREAD_HTML), @LF)

    For $i = 1 To UBound($aReadHTML) - 1
        $sForString = StringInStr(StringStripWS($aReadHTML[$i], 1), "192.168.0.101:27020")

        If $sForString = 1 Then
            $ifForStringSearch = $i
            ExitLoop
        EndIf
    Next

    If Not $ifForStringSearch = False Then
        For $i = $ifForStringSearch To $ifForStringSearch + 20
            $sNewFileHTML &= $aReadHTML[$i] & @CRLF
        Next
    EndIf

    $sPattern3 = "<td style='white-space:nowrap; text-align:left'>\s+(.*?)\s+</td>"
    $sPattern4 = "<td style='white-space:nowrap; text-align:right'>\s+(.*?)\s+</td>"
    $aRet = StringRegExp($sNewFileHTML, '(?s)' & $sPattern3 & '.*' & $sPattern4, 3)

    _ArrayDisplay($aRet)
EndIf