Парсинг сайта

[час]

Впервые передо мной такая задача - потому я в ратерянности.
Если кто в этом деле уже поднатарел, прошу помочь сдвинуться с места.
Если можно поэтапно.
===============================
Вот то, как я себе смутно представляю задачу и её реализацию:
1) Необходимо проверить имеется ли соединение с интернет...
2) Необходимо как то подключаться к нужной страничке сайта по заданному адресу....
3) Необходимо копировать страничку на комп или это не обязательно...
4) Произвести поиск информации по заданному критерию....
--------------------------------------------
Только только приступаю, потому ничё не знаю, прошу помочь

[час]

По сайту нашёл, то что делалось до меня.(viewtopic.php?f=1&t=41377&st=0&sk=t&sd=a&hilit=%D0%BF%D0%B0%D1%80%D1%81%D0%B8%D1%82%D1%8C)

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

Sub DataFromHTML(FilePath As String)
    Dim nFreeFile As Integer
    Dim i As Long
    Dim Doc As Object
   
    nFreeFile = FreeFile
    Open FilePath For Input As nFreeFile
    Set Doc = CreateObject("HTMLFile")
    Doc.Write Input(FileLen(FilePath), #nFreeFile)
    Close nFreeFile
   
    ReDim Preserve Parametrs(100)
   
    Set TableHTML = Doc.body.getElementsByTagName("Table").Item(1).getElementsByTagName("TBODY").Item(0)
    For Each TrHTML In TableHTML.getElementsByTagName("TR")
        i = i + 1
        Parametrs(i).Name = TrHTML.getElementsByTagName("TD").Item(0).getElementsByTagName("A").Item(0).innerText
        Parametrs(i).Description = TrHTML.getElementsByTagName("TD").Item(0).getElementsByTagName("DIV").Item(0).innerText
        Parametrs(i).Value = TrHTML.getElementsByTagName("TD").Item(1).innerText
    Next
    ReDim Preserve Parametrs(i)
End Sub


Передаю входную строку FilePath = "C:\VB.htm" - положеный мною файл.
Но открыть его не удаётся
Open FilePath For Input As nFreeFile
Вылетает ошибка неправильное имя файла или номер.
Смотрю в отладчике - номер 1, имя "C:\VB.htm"
Всё вроде бы в норме ИМХО

[час]

С первым препятствием разобрался
Действительно файл был в двойных кавычкахд
теперь остановка в коде на строке
Parametrs(i).Description = TrHTML.getElementsByTagName("TD").Item(0).getElementsByTagName("DIV").Item(0).innerText

[час]

ААААААА понял там нет такого тега видимо - у мну.........

[0xy]

ИМХО, проще сначала скачать и сохранить файл (URLDownloadToFileA), а потом уж его разбирать.
Если нужно--могу дать готовую функцию для получения файла в виде строки.