Просмотр HTML

[alexshm]

Братцы, кто подскажет - как имея HTML-код быстро просмотреть его, а точнее результаты кода, в боузере, не сохраняя в файл на диск. (Скажем код формируется для записей базы данных, и сохранять для каждой записи даже временный файл - кажется это муторно).
На MSDN говорят - можно ч-з протокол "res:", да я что-то не понимаю, что за ресурсы, что за типы и т.п.

[alexshm]

Нашел такой выход:

Private Sub Кнопка42_Click()
Dim doc As HTMLDocument
Set doc = WebBrowser1.Document
doc.body.innerHTML = Nz(Me.Результат, "Данные отсутствуют")
End Sub

WebBrowser1 - это статндартный контрол, размещаемый в форме. Нужна ссылка на библиотеку mikrosoft html object library.

[Крост]

Это был чисто ретарический вопрос...%)

[Prickly]

alexshm не мог бы ты подробнее объяснить.

Что за функция Nz?
При запуске пишет, что объект не определен.
doc определен как объект, а doc.body.innerhtml нет. В чем же причина не подскажешь?

[GM]

2alexshm: А вот и нет, это только то что находится внутри тега боди.
Правильнее ИМХО:

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

debug.print webbrowser1.document.documentElement.innerHTML
или
debug.print webbrowser1.document.documentElement.outerHTML


Это в зависииости от случая.

При запуске пишет, что объект не определен.

Так значит ты не загрузил полностью, или вообще ничего не загрузил , HTML-код. См. на webbrowser1.ReadyState.

[Konst_One]

в Form_Load надо встьавить это:

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

WEB.Navigate "about:blank"

[tyomitch]

2All: есть способ лучше, чем все эти манипуляции с DOM

См. процедуру LoadHTML в http://bbs.vbstreets.ru/viewtopic.php?p=103635#103635