Чтение файла

[Конь]

Возможно ли прочитать текстовый файл при помощи VBScript БЕЗ применения FSO?

[GSerg]

Ещё один.
http://www.bash.org.ru/quote.php?num=24184

[Конь]

Ты меня, наверное, не так понял... Ну ладно.
Задам другой вопрос: почему когда я пытаюсь сделать fso.GetFile(fn), гду fn примерно "http://www.abc.ru/dir/text.txt", IE ругается, что такого файла нет? Хоть он существует и читаем.

[Конь]

Да, я эту цитату уже видел... в поиске!

[Antonariy]

Потому что "http://www.abc.ru/dir/text.txt" это интернет-адрес, а не путь файловой системы.

[Конь]

А какой он должен быть, например?

[_ae_]

Конь
Если ты не понял, то в цитате было сказано, что нет, нельзя.
А конкретно твой URL можно загрузить с помощью XMLHTTP(поиск)

[tyomitch]

Автор, обрати свой взор на XMLHttpRequest.

[Конь]

Ладно, перебьюсь с FSO, просто глюки были, сейчас вроде прошли.
Так какой, например, должен быть путь файловой системы? И опять-таки, как получить такой путь по отношению к файлу, содержащему исполняемый код?

[tyomitch]

Для начала: твой код должен исполняться на клиенте или на сервере?

[Конь]

А возможно выполнить VBS на сервере?
(Извините, туплю...)
Короче говоря, имеется HTML-документ с кодом VBScript, который (код) вызывается при body_onLoad и выводит в некой таблице содержимое заданного текстого файла, расположенного на сервере.

[tyomitch]

Собственно, ASP -- это именно скрипты, выполняемые на сервере...


Нет, FSO читать файлы через Интернет не умеет.

[Конь]

А как тогда быть?.. Мне нужно что-то, что может выполняться на клиенте, независимо оттого, поддерживает сервер ASP или нет...

[tyomitch]

См. выше

[Конь]

А как, так сказать, воткнуть на страницу reference?
Через <object/>?
И как потом им пользоваться? Нужно ли менять Dim XML As New XMLHTTP на что-то?
Кстати, я решил использовать MSXML 2.6 из-за того, что он в 9x есть. Так что там не XMLHTTPRequest, а XMLHTTP. Воть.

[tyomitch]

Втыкать ничего не нужно. CreateObject("MSXML.Whatever") и все дела.

[Конь]

Спасибо, разобрался. Там нужно писать не MSXML, а MSXML2.
Только теперь появилась другая проблема: как сделать, чтобы XMLHTTP.responsetext был в нормальной кодировке? А то возвращаются какие-то вопросительные знаки...

[tyomitch]

А сервер нормальный Content-type отдаёт? Потому что MSXML оттуда кодировку смотрит.

[Конь]

Я проверял не на сервере, а на компьютере. Когда попытался проверить на сервере, возникла еще одна проблема. Так что с предыдущей сейчас нет возможности разобраться...
Я правильно делаю?

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

Dim XML
Set XML = CreateObject("MSXML2.XMLHTTP")
XML.open "POST", "news.txt"
XML.send
tblNews.innerHTML = XML.responsetext

А проблема такая: файл не успевает загрузиться до выполнения последней строчки кода. Как этого избежать?

[tyomitch]

OnReadyStateChange

[Конь]

Поискал. Извини, ничего не понял
Как с этим свойством (ивентом?) работать?

[tyomitch]

Так ведь там прямо в описании пример приведён
http://msdn2.microsoft.com/en-us/ms762767.aspx

[Конь]

Спасибо! Все заработало.
Возвращаемся к предыдущей проблеме.
Как получить Content-type?

[tyomitch]

Телнетом зайти на 80 порт

[Конь]

Ты про это?
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
Если да, то как поступить и объяснить MSXML'у, какую кодировку нужно использовать?

[tyomitch]

Это не ему нужно объяснять, а серверу.

[Конь]

Т.е. это своими руками сделать невозможно?

[tyomitch]

Зависит от сервера и от степени доступа к нему.
Апачу, например, можно положить в папку .htaccess, в котором это прописывается.

[Конь]

А есть другие методы получения текста из файла?
Например, можно скачать файл на компьютер, а потом открыть его при помощи FSO?

[DimPos]

А разве нельзя тупо в файле VBS:
public String
String="весь текст" или
String=CStr(весь текст)

о размере строковой переменной сказано:
Variable-length strings may range in length from 0 to approximately 2 billion characters.

и нет нужды грузиться с FSO и т.д.