Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Копирование с сайта Добавлено: 13.03.12 12:34  

Автор вопроса:  Alexey
Есть такая задумка: Нужно чтоб программа заходила на определённый сайт, брала там определённый текст, и отсылала мне на емайл. Как такое осуществить?
Хотя выдрать текст и отправить я вроде как разберусь, а как этот текст содрать? Может кто тыкнёт меня мордом на какой похожий исходник, а то по поисковикам ничего похожего не нахожу....

Ответить

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

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



Вопросов: 11
Ответов: 40
 Web-сайт: starsorion.com
 Профиль | | #1
Добавлено: 13.03.12 14:22
Сохранить страницу к себе, загрузить ,например, в текстовое поле и парсить нужное...

Ответить

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



Вопросов: 2
Ответов: 1
 Профиль | | #2 Добавлено: 29.03.12 13:11
Задача усложнилась тем что никак не могу избавиться от кракозябров при копировании файла или строки в VB (русский текст)
На данный момент имею такое.
  1.  
  2. 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
  3. Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
  4. Dim lngRetVal As Long
  5. lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  6. If lngRetVal = 0 Then DownloadFile = True
  7. End Function
  8. Private Sub Command1_Click()
  9. DownloadFile "http://ulibnu.li/", "c:\eee.txt"
  10. End Sub
  11.  
  12. Public Property Get File(path As String) As String
  13. Dim S As String
  14. Dim i As Long
  15. i = FreeFile
  16. Open path For Input As #i
  17. File = Input(LOF(1), #i)
  18. Close #i
  19. End Property
  20.    
  21. Public Property Let File(path As String, ByVal Value As String)
  22. Dim i As Long
  23. i = FreeFile
  24. Open path For Output As #i
  25. Print #i, Value
  26. Close #i
  27. End Property
  28.  
  29. Private Sub Command2_Click()
  30. Dim S As String
  31. Dim myStr As String
  32. S = File("c:\eee.txt")
  33. myStr = S
  34. myStr = Replace(myStr, "Здесь будут тэги", ".")
  35. File("c:\eee.txt") = myStr
  36. End Sub

Ответить

Номер ответа: 3
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
 Web-сайт: hw.t-k.ru
 Профиль | | #3
Добавлено: 29.03.12 14:59
в винде кодировка windows-1251, а сайт скорее всего в utf-8 (там в заголовках должно быть указано), нуна перекодировать.

Ответить

Страница: 1 |

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



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