Копирование текстов с сайта в вордовский документ - 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