VBNet - Форум - Вот пиво кончилось и в голове замкнуло

Вопрос: Вот пиво кончилось и в голове замкнуло Добавлено: 16.01.03 11:15

Автор вопроса: Tank

Для лучшего усвоения материала желательно принять литра 3 пивка!
Прямо стыдно писать, но проект встал (О как!) вообщем написал такую процедуру:
' Сохраняем текст в файле
Private Sub SaveFile(strFileName As String, varText As Variant)Dim iFileNum As Integer
iFileNum = FreeFile
Open strFileName For Output As iFileNum
Print #iFileNum, varText
Close iFileNum
End Sub
Все просто как будто не пил месяц, дальше пытаюсь её вызвать:
' Событие DocumentComplete срабатывает при загрузке страницы
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim htmDoc As HTMLDocument
Set htmDoc = IE.Document

SaveFile ("html.txt" , htmDoc.body.innerHTML)

End Sub
Тока вот незадача строчка SaveFile... не принимается (вроде пол жизни так делал, а тут как пиво разбавили) пишет типа: “Complit error: Expected: = “ и такая гнусная кнопка ОК (по нашему – Ю андестенд), ну я ни хрена не андестенд достал заначку и пишу
Private Sub a(b As String, c As String)
End Sub
Private Sub Out()
a(“aaaaaa”, “bbbbbb”)
End Sub
Ну типа упростил все до больше некуда, а он все "Complit error" и заначка кончилась (мож я случайно на проц дыхнул, не знаю), подскажите куда за пивом приехать ВО!
Ну сё до скорого!

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

Павел

Администратор

ICQ: 326066673

Вопросов: 368
Ответов: 5968

Web-сайт: www.vbnet.ru
Профиль | Цитата | #1

Добавлено: 16.01.03 11:28

Я делал по-другому:

SaveFile ("html.txt" , htmDoc.body.outerHTML)

Ответить

Номер ответа: 2
Автор ответа:

Tank

Вопросов: 12
Ответов: 17

Профиль | Цитата | #2

Добавлено: 16.01.03 11:44

Суть не в том как делать, а в том что я это откомпелировать немогу

Ответить

Номер ответа: 3 Автор ответа: gasoft Вопросов: 0 Ответов: 24	Профиль \| Цитата \| #3	Добавлено: 16.01.03 14:28
	А зачем параметры в скобках ? Ответить

Страница: 1 |