Поиск по маске с заменой ::

[f0rbeed]

Необходимо следующее: искать в выбранных файлах подстроку, к примеру

Код: Выделить всё

<TD class="text"><B>###</B></TD>
              <TD class=text>###</TD>

далее в ней брать подстроку <TD class=text>###</TD>, и выделять оттуда цифры, менять их, и снова записывать. Причем поиск, сразу видно, должен осуществляться по маске.(где решетка, то есть любой текст). Я понимаю что, многого хочу, но быть может, есть некий компонент...
Заранее спасибо... =0

[GSerg]

Попробуй копать в сторону оператора Like

[RayShade]

Скорее в сторону regular expressions.

[f0rbeed]

Что значит регулярные выражения? По подробнее пожалуйста..

[RayShade]

Это довольно пространная тема Поищи в MSDN, там подробно расписано - и синтаксис, и примеры и как в VB реализовать.

[f0rbeed]

Что-то я примеров не нашел, зато нашел кучу всяких expressions'ов. Я скачал Vbsript 5.6 а что дальше делать не знаю, может кто какой-нибудь нормальный пример даст поиска с заменой? Я нашел только пример с вводом e-mail.

[Urvin]

1. Ищешь совпадение <TD class="text"> через InStr
2. Циклом доходишь до числовых значений, заносишь в переменную.
3. Делаешь с ней что хочешь.
4. Пишешь обратно

[skiperski]

Компонент называется Stinga Regular Expression Library

Код: Выделить всё

Option Explicit

Public Function test(html)
   
    Dim re As Object
    Dim pos As Long
   
    Set re = CreateObject("sgRegExp.RegExp")
    re.Expression = "<TD class=text>([0-9]+)</TD>"
    re.IgnoreCase = True
   
    pos = 1
    Do While (re.Match(html, pos))
       
        Debug.Print re.Substrings(1)
       
        With re.Substrings(0)
            pos = pos + .Start + .Length - 1
        End With
       
    Loop
   
    Set re = Nothing
   
End Function

[f0rbeed]

Да дело в том что таких "<TD class=text>([0-9]+)</TD>" много, а мне именно надо тот который стоит перед <TD class="text"><B>([a-z]+)</B></TD>. Просто мне конечно не все понятно из предыдущего кода то.

[skiperski]

Ты просил название компонента и пример работы с ним. Я что должен знать полностью твоё задание? Замени строку маски и вперёд! К компоненту имеется вполне читабельный хелп.

[f0rbeed]

Вообщем я нашел этот компонент. Вот у меня возник вопрос, что в этом куске твориться:

Код: Выделить всё

    Do While (re.Match(html, pos))
       
        Debug.Print re.Substrings(1)
       
        With re.Substrings(0)
            pos = pos + .Start + .Length - 1
        End With
       
    Loop

А вот кусок из которого мне надо вытащить цифры, поменять их, и запихнуть обратно:

Код: Выделить всё

<TR bgColor=#ffffff>
          <TD class="headcell"><B>Система обратного осмоса А-445</B></TD>
           <TD class=text>244</TD>
</TR>
<TR bgColor=#ffffff>
            <TD class="headcell"><B>Система обратного осмоса А-560</B></TD>
             <TD class=text>287</TD>
</TR>
                                         


Так какой же экспрешон должен быть для вот этого выражения? Я пока не особо разобрался с синтаксисом, и что запихивается в substrings после match, и что это дает вообще. Я сделал такой экспрешон:

Код: Выделить всё

re.Expression = "( +)<TD class=(.)headcell(.)><B>(.+)</B></TD>(\n +)<TD class=text>([0-9]+)</TD>"


По идее мои цифры это пятый элемент, но только я не правильно подобрал маску. Как ее следует оформить для моего случая, с учетом того что <TD class=text>287</TD> должен быть только тот который лежит перед TD class="headcell"><B>Система обратного осмоса А-560</B></TD>. И еще как потом эти
числа поменять и записать? За ранее спасибо.
P.S. И вот еще: если использовать поиск с помощью <TR bgColor=#ffffff>, далее пропускать строку, и использовать следующую то как записать этот expression?

[skiperski]

Уже столько понаписано, а до сих пор не понятно что нужно сделать.
Какие цифры поменять надо? Только 244 или 287 тоже? Ты программу запускал? Она должна найти все вхождения ячеек таблицы которые сожержат только цифры. Если искомая ячейка находится первой, то и нечего огород городить. Делаем замену и выходим из цикла. В этом случае даже цикл не нужен.

Вот у меня возник вопрос, что в этом куске твориться:

Код: Выделить всё

    Do While (re.Match(html, pos)) 'ищем подстроку по заданной маске с позиции pos
       
        Debug.Print re.Substrings(1) 'чего-то делаем с найденным
       
        With re.Substrings(0)
            pos = pos + .Start + .Length - 1 'передвигаем позицию
        End With
       
    Loop

И еще как потом эти числа поменять и записать?

Если длина того на что заменяешь равна длине исходной подстроки, то

Код: Выделить всё

Mid(html, pos + .Start - 1, .Length) = "666"


, если не равна, то посложнее

Код: Выделить всё

html = Left$(html, pos + .Start - 1) & "666" & Mid$(html, pos + .Start - 1 + .Length)

Попробуй просто запустить код и посмотри что получается. Если чего не ясно - ставь точки останова и смотри что в объекте re.

Код: Выделить всё

Option Explicit

Public Function test()
   
    Dim iFF%, html$
   
    iFF = FreeFile()
    Open "c:\1\re.txt" For Input As #iFF
    html = Input(LOF(iFF), iFF)
    Close #iFF
   
    html = search(html)
   
    iFF = FreeFile()
    Open "c:\1\re1.txt" For Output As #iFF
    Print #iFF, html;
    Close #iFF
   
End Function

Public Function search(html) As String
   
    Dim re As sgRegExp.RegExp 'Object
    Dim pos As Long
   
    Set re = New sgRegExp.RegExp 'CreateObject("sgRegExp.RegExp")
    re.Expression = "<TD class=text>([0-9]+)</TD>"
    re.IgnoreCase = True
   
    pos = 1
    Do While (re.Match(html, pos))
       
        With re.Substrings(1)
            Debug.Print .Value
            Mid(html, pos + .Start - 1, .Length) = "666"
        End With
       
        With re.Substrings(0)
            pos = pos + .Start + .Length - 1
        End With
       
    Loop
   
    Set re = Nothing
   
    search = html
   
End Function