Получение данных веб страницы

[alibek]

При этом на обработчик ошибок "On Error Resume next" не реагирует. Как от них можно избавиться?

В настройках браузера выключи отладку скриптов.

[Kytx]

Спасибо за помощь. Разобрался. Теперь всё, что нужно, считывается из таблицы в массив.
Код получился следующий. Если кто-нибудь сможет предложить оптимизацию, буду рад совету.

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

Option Base 1

Public Type Type_Paramers
    Name As String
    Description As String
    Value As Variant
End Type

Dim Parametrs() As Type_Paramers

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



[alibek]

1. Зачем считывать содержимое файла в переменную?
2. Зачем ты делаешь Doc.Open и Doc.Close?
3. ReDim Preserve нужно делать только один раз. Задавай массив с запасом перед циклом, а после цикла обрезай по нужному количеству элементов.

[Kytx]

1. Зачем считывать содержимое файла в переменную?
2. Зачем ты делаешь Doc.Open и Doc.Close?
3. ReDim Preserve нужно делать только один раз. Задавай массив с запасом перед циклом, а после цикла обрезай по нужному количеству элементов.

Спасибо за советы, код подправил в предыдущем посте.

[kibernetics]

А почему может возникать на этом участке ошибка?

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

    nFreeFile = FreeFile
    Open FilePath For Input As nFreeFile
    Set Doc = CreateObject("HTMLFile")
    Doc.Write input(FileLen(FilePath), #nFreeFile) '<--- ОШИБКА ТУТ Input past end of file (Error 62).
    Close nFreeFile

Хочу загрузить обычный html -файл.

П.С. Начал полайново смотреть файл, обнаружил, что вначале стоят 2 символа 255 и 254, я так понимаю нули... Думаю, дело в них.
Может есть идея как считать файл в переменную, начиная с позиции 3?

[iGrok]

вначале стоят 2 символа 255 и 254, я так понимаю нули

Это не нули, это Unicode Byte Order Mark (BOM).

[kibernetics]

вначале стоят 2 символа 255 и 254, я так понимаю нули

Это не нули, это Unicode Byte Order Mark (BOM).

Я думаю, что надо делать функцию Trim, но как её задействовать, если файл уже есть?
Получается, что можно только начать считывать с конкретной позиции и до конца?

[iGrok]

Просто не нужно использовать input для чтения таких файлов.

Получить содержимое файла в строку можно, например, так:

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

Dim s As String
Dim b() As Byte

nFreeFile = FreeFile
Open FilePath For Binary As nFreeFile
ReDim b(FileLen(filepath))
Get #nff, , b
s = b
Close nFreeFile


А дальше попробуй эту строку скормить документу, и посмотри, что получится.

[Qwertiy]

s = b

Неужели такое присваивание прокатит для юникодного файла?

[alibek]

А почему нет? Если файл конечно UTF-16.

[arthur2]

Qwertiy А то
iGrok только ReDim b(FileLen(filepath)-1)А то в конце строки будет лишний байт. А ещё лучше - ReDim b(FileLen(filepath)-3) и читать файл с третьего байта - чтобы сигнатуру пропустить

[iGrok]

Неужели такое присваивание прокатит для юникодного файла?

Если вспомнить, что при таком присваивании никакой конвертации не производится, а строки в VB6 юникодные - то почему нет?

Вот если бы там был не юникод, нужно было бы применять StrConv.

только ReDim b(FileLen(filepath)-1)А то в конце строки будет лишний байт. А ещё лучше - ReDim b(FileLen(filepath)-3) и читать файл с третьего байта - чтобы сигнатуру пропустить

Каюсь, байтик вычесть забыл.

А вот насчёт сигнатуры вопрос спорный. Я бы для начала вообще не стал ничего конвертировать в строку, а скормил бы этому объекту "сырой" массив байт. Если не поймёт, тогда уже придётся самому следить за сигнатурой, различать utf-8, utf-16(и ucs-2) и ascii... Но мне почему-то кажется, что он сам должен уметь работать с кодировками.