Копирование текстов с сайта в вордовский документ - VB
Формулировка задачи:
Доброго времени суток всем.
Поступило мне такое задание: скопировать задания с сайта mathege.ru в вордовский документ. Но из-за огромного количества заданий, ручное копирование представляется слабо возможным. Плюс еще стоит сложность том, что адреса страниц с версией для печати (где нет ничего лишнего и, соответственно, лучше всего копировать оттуда) не идут ни по какому алгоритму (Например: адрес одной из страниц заканчивается на ...probId=5613&print=yes, а следующей уже ...probId=18287&print=yes).
Мне сказали, что с помощью VB можно каким-то образом решить эту задачу, но я вообще не знаю каким образом хотя бы это самое копирование с сайта реализовать (да и вообще мало чего в VB знаю). Может кто-нибудь подсказать?
Решение задачи: «Копирование текстов с сайта в вордовский документ»
textual
Листинг программы
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 Public Sub Convert(FileHtml As String, LocalFilenameDOC As String) Set oApp = CreateObject("Word.Application"): Set oDoc = CreateObject("Word.Document"): Set oApp = New Word.Application Set oDoc = oApp.Documents.Open(FileHtml) ', wdFormatHTML oDoc.SaveAs LocalFilenameDOC, wdFormatDocument oDoc.Close False: oApp.Quit: Set oDoc = Nothing: Set oApp = Nothing End Sub Private Sub Command1_Click() If DownloadFile("http://mathege.ru/or/ege/ShowProblem.html?probId=" & Text1.Text & "&print=yes", "C:\" & Text1.Text & ".html") Then Convert "C:\" & Text1.Text & ".html", "C:\" & Text1.Text & ".doc" Else MsgBox "НЕ скачал! " & Text1.Text & ".html" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д