Парсинг значений между тегами

[hziben]

Помогите, полдня уже бьюсь голова болит. Изначально думал использовать автоит, но решил не разрываться. Делфи не знаю.
Есть папка с .htm файлами. Правильно ли я понимаю, сначала надо получить список с именами файлов в этой папке. Дальше надо проделать так:
Открыть "путь к файлу1"
Копировать значение содержащееся между

PHP код:

<meta property="og:title" content=" 


и

PHP код:

" /> 


Вставить в ячейку А2
Копировать значение содержащееся между

PHP код:

<strong class="price"> 


и

PHP код:

 </strong> 


Вставить в ячейку В2
Закрыть документ

Открыть "путь к файлу2"
Аналогично, но вставлять уже в ячейки на строку ниже
Закрыть
Завершить макрос



------- примечание модератора ------------

посмотрите функцию получения значения из тегов
http://excelvba.ru/code/html
есть также готовое решение для поиска цен по ссылкам
http://excelvba.ru/programmes/Parser.../ComparePrices

[doober]

Функция возвращает оба значения.
Читаете файл и через функцию его

Public Function Get_data(ByVal s)
Dim X(1)
        Dim n As Integer, m As Integer, Sl As String
            bRes = False
        Set RegExp = CreateObject("VBScript.RegExp")
        RegExp.Global = False
        RegExp.IgnoreCase = True
        RegExp.Pattern = "(<strong class=""price"">(.+?)</strong>)"
        bRes = RegExp.test(s)
        If bRes Then
                Set oMatches = RegExp.Execute(s)
              X(0) = oMatches(0).SubMatches(1)
        End If
             RegExp.Pattern = "(<meta property=""og:title"" content=""(.+?)"" />)"
      bRes = RegExp.test(s)
        If bRes Then
                Set oMatches = RegExp.Execute(s)
              X(1) = oMatches(0).SubMatches(1)
        End If
   Get_data = X
End Function