Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Как использовать файл через http Добавлено: 28.09.09 12:38  

Автор вопроса:  KreAtoR
помогите решить проблему.

Я получаю файл от удаленного сервера
--> http://speed2.caribicislands3.de/s4/inc/update/gamedata/ci_gamedata_isle_s4.txt

моя задача считать его построчно и запихать в массив.

подскажите как мне это сделать.

Думал сначала его сохранить а потом прочитать, но сохранить у меня не получается.

Помогите плиз

Ответить

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

Номер ответа: 1
Автор ответа:
 Алексей



Вопросов: 1
Ответов: 3
  Web-сайт: www.astroworld.ru
 Профиль | | #1 		Добавлено: 28.09.09 13:13
http://vbnet.ru/faq/showtopic.asp?id=76 - это не помогает?

Ответить

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



Вопросов: 120
Ответов: 438
  Профиль | | #2 Добавлено: 28.09.09 13:28
Ага супер спасибо!!!!!

Сразу еще вопрос задам.

Для резки строки по переносу строки (в сохраненном файле это квадратики какие то), что надо указать?

Ответить

Номер ответа: 3
Автор ответа:
 Дмитрий Юпатов



Вопросов: 4
Ответов: 457
  Web-сайт: cargomaster.at.ua/
 Профиль | | #3 		Добавлено: 28.09.09 14:56
vbcrlf

Ответить

Номер ответа: 4
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #4 		Добавлено: 28.09.09 16:08
dim arr() as string
arr = split(str, vbcrlf)

Ответить

Номер ответа: 5
Автор ответа:
 KreAtoR



Вопросов: 120
Ответов: 438
  Профиль | | #5 Добавлено: 29.09.09 16:36
  1. Public Function ReadDatei()
  2.     Dim str As String
  3.     Dim datei As String
  4.     Dim ff As Long
  5.     ff = FreeFile
  6.     datei = App.Path & "\insel.txt"
  7.     Open datei For Input As #ff
  8.     While Not EOF(ff)
  9.         Input #ff, str
  10.     Wend
  11.     Close #ff
  12.     
  13.     strings = Split(str, vbCrLf)
  14.     MsgBox strings(0)
  15. End Function


Должно быть правильно. но в массиве strings есть только index 0 и он выдает кучу строк, не все но кучу

Ответить

Номер ответа: 6
Автор ответа:
 KreAtoR



Вопросов: 120
Ответов: 438
  Профиль | | #6 Добавлено: 29.09.09 16:37
а это модуль полностью

  1. Option Explicit
  2.  
  3. Dim strings2() As String
  4.  
  5. Public Function saveData()
  6.     'http://speed2.caribicislands3.de/s4/inc/update/gamedata/ci_gamedata_isle_s4.txt
  7.     
  8. Dim b() As Byte
  9. Dim datei As String
  10. Dim ff As Long
  11. Main.Inet1.protocol = icHTTP
  12. Main.Inet1.url = "http://speed2.caribicislands3.de/s4/inc/update/gamedata/ci_gamedata_isle_s4.txt"
  13. b() = Main.Inet1.OpenURL(Main.Inet1.url, icByteArray)
  14.  
  15. datei = App.Path & "\insel.txt"
  16. ff = FreeFile
  17. Open datei For Binary Access Write As #ff
  18. Put #ff, , b()
  19. Close #ff
  20.  
  21. End Function
  22.  
  23.  
  24. Public Function ReadDatei()
  25.     Dim str As String
  26.     Dim datei As String
  27.     Dim ff As Long
  28.     ff = FreeFile
  29.     datei = App.Path & "\insel.txt"
  30.     Open datei For Input As #ff
  31.     While Not EOF(ff)
  32.         Input #ff, str
  33.     Wend
  34.     Close #ff
  35.     
  36.     strings2 = Split(str, vbCrLf)
  37.     MsgBox strings2(0)
  38. End Function

Ответить

Номер ответа: 7
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #7 		Добавлено: 29.09.09 21:15
Если бы ты воспользовался WinHex, то увидел, что разделение на строки идет не vbCrLf, а vbLf

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам