Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение txt файла из интернета / 10 сообщений из 10, страница 1 из 1
15.03.2006, 10:26:30
    #33601391
Tauzer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt файла из интернета
Господа,если подкажите буду очень признателен.
Задачка такова:
на каком-то сайте лежит файл с расширением *.txt,в котором всего одна строка.
Нужно приконнектица к нему и прочитать строку.

Сделал так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim IE As Object
Dim doc As HTMLDocument
Dim row As Object
Dim cell As Object
Dim ww As String

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "URL"



Все работает, в IE строка файла отображается.
Подскажите как эту строку прочитать и засунуть в переменную.
...
Рейтинг: 0 / 0
15.03.2006, 10:38:04
    #33601441
Tauzer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt файла из интернета
Спасибо,за внимание.Нашел все сам.


LordПоложи на форму Internet Transfer Control,через него можно получить текст html в RTFRichTextBox1.Text = Inet1.OpenURL("http://www.sait.com/index.htm", icString)
...
Рейтинг: 0 / 0
15.03.2006, 10:48:33
    #33601490
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt файла из интернета
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Declare Function URLDownloadToFile Lib "urlmon" _
                    Alias "URLDownloadToFileA" ( _
                    ByVal pCaller As Long, _
                    ByVal szURL As String, _
                    ByVal szFileName As String, _
                    ByVal dwReserved As Long, _
                    ByVal lpfnCB As Long) _
                    As Long
Public Function DownLoadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile( 0 , URL, LocalFilename,  0 ,  0 )
    If lngRetVal =  0  Then DownLoadFile = True
End Function
Private Sub Form_Load()
    ' копирует файл с сайта на  "c:\"
    DownLoadFile "http://www.sql.ru/forum/images/happy.gif", "c:\happy.gif"
    
    MsgBox "c:\happy.gif"
End Sub
ну а дальше можешь открыть и ...
...
Рейтинг: 0 / 0
15.03.2006, 10:50:53
    #33601505
Tauzer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt файла из интернета
Спасибо огромное.Мне эта функция пригодиться в дальнейшем тоже=)))
...
Рейтинг: 0 / 0
15.03.2006, 10:56:23
    #33601519
Чтение txt файла из интернета
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
    Dim objIE As SHDocVw.InternetExplorer
    Dim objDoc As MSHTML.HTMLDocument
    Dim strTemp As String
    
    Set objIE = CreateObject("InternetExplorer.Application")
    
    Do While objIE.Busy
    Loop
    
    objIE.Visible = True
    objIE.navigate "D:\2\Abc.txt"
    
    Set objDoc = objIE.document
    
    strTemp = objDoc.documentElement.innerText
    
    MsgBox strTemp

А лучше не мудрить, а использовать метод OpenURL Internet Transfer Control'а.

Код: plaintext
    strTemp = Inet1.OpenURL("www.aaa.ru/Abc.txt")
...
Рейтинг: 0 / 0
16.03.2006, 15:12:29
    #33605654
Tauzer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt файла из интернета
В продолжении темы...

Есть ли какая-нибудь функция или объект,который бы позволял работать с файлами в интернете на уровне FSO ?
...
Рейтинг: 0 / 0
16.03.2006, 15:19:24
    #33605684
Чтение txt файла из интернета
Скажи, что конкретно ты хочешь сделать?
...
Рейтинг: 0 / 0
16.03.2006, 16:10:47
    #33605870
Tauzer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt файла из интернета
Хочу организовать работу приложения с документами в инете.Есть два офиса,которые используют общие документы.Каждый раз заливать файлы,скачивать,отсылать на мыло и тд. это немного напрягает.Вот и появилась идея организовать такую вещь.
...
Рейтинг: 0 / 0
16.03.2006, 17:35:32
    #33606199
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt файла из интернета
Sharepoint portal server + WEB service
...
Рейтинг: 0 / 0
16.03.2006, 18:07:40
    #33606311
Tauzer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt файла из интернета
спс
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение txt файла из интернета / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]