Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для FlatX007

Ветеран


Сообщения: 553
Благодарности: 87

Профиль | Отправить PM | Цитировать


Цитата FlatX007:
Сложность заключается в том, что темеже самыми тегами прописана статистика для других серверов их много. »
Строки то попадают , только с других серверов ....на этой странице прописана ещё статистика для пяти серверов.
Посмотри ПМ

Проблема решилась во так:
Код: Выделить весь код
#include <Array.au3>
#include <File.au3>
#include <INet.au3>

Dim $aReadHTML
Global $ifForStringSearch = False, $sNewFileHTML

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

$sTEMP_FILE = _TempFile()
$sTEMP_FILE2 = _TempFile()

$sREAD_HTML = _INetGetSource($sURL_LINK)
    If Not (@error) Then
        FileWrite($sTEMP_FILE, $sREAD_HTML)
        _FileReadToArray($sTEMP_FILE, $aReadHTML)
        For $i = 0 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

        FileWrite($sTEMP_FILE2, $sNewFileHTML)

        $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(FileRead($sTEMP_FILE2), '(?s)' & $sPattern3 & '.*' & $sPattern4, 3)
        _ArrayDisplay($aRet)
    EndIf

FileDelete($sTEMP_FILE)
FileDelete($sTEMP_FILE2)

Отправлено: 16:15, 01-12-2009 | #5