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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы