Страницы: 1
RSS
Вытянуть данные из html кода страницы, Patterns
 
Здравствуйте, форумчане!

Застрял на данном месте:
Код
<TR class="TDRowColor1">
<TD>111.222.333</TD>
<TD>NAME</TD>
<TD>1</TD>
<TD>0</TD>
<TD>2</TD>
<TD>1111</TD>
<TD>2222</TD>
<TD>Deleted</TD>
<TD>Deleted</TD>
<TD>Deleted</TD></TR>

Не могу выудить паттерном данные из:
Код
<TR class="TDRowColor1">
<TD>111.222.333</TD>

Подскажите пожалуйста правильный кусок кода:
([0-9]+)
Код
RegExp.Pattern = "class=""TDRowColor1""><TD>([0-9]+)</TD>"
bRes = RegExp.test(htmlcode)
If bRes Then
    Set oMatches = RegExp.Execute(htmlcode)
    Item.Num = oMatches(0).subMatches(0)
End If
 
Какие данные Вы пытаетесь вытянуть - непонятно?
 
Извиняюсь. Пытаюсь вытянуть 111.222.333
Изменено: Jungl - 26.02.2016 22:32:27
 
Как-то так, если правильно понял
Код
Function tt(Text As String) As String
    Dim O As Object
    With CreateObject("VBScript.RegExp")
        .Pattern = "<TD>(.+)</TD>"
        Set O = .Execute(Text)
        If O.Count > 0 Then tt = O(0).submatches(0)
    End With
End Function

 
Если использовать эту функцию
http://excelvba.ru/code/html

то код выуживания данных будет выглядеть так:
Код
result = GetTags(txt, "td", , , "innerHTML 1")
Страницы: 1
Наверх