Вытягиваю текст, но он без разделителей - т.е. подряд и цифра не ясна, в краце нужна вот эта табличка:
даже не вся а нижняя часть, где кол-во отправлено и т.д.
я логинюсь и нужные данные уже подставляю, но не могу получить их в нормальном виде.
вот основной текст:
П.С. До этого писал все тоже самое на делфи, но проблема с Инди и с запросами, тут куда проще, но информацию получить не получается.
кросс:
даже не вся а нижняя часть, где кол-во отправлено и т.д.
я логинюсь и нужные данные уже подставляю, но не могу получить их в нормальном виде.
вот основной текст:
| Код |
|---|
Function WebPageText(ByVal sURL, log, pass, edrpou As String, login As Boolean) As String
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application"): ' open Internet Explorer
With IE
'.Visible = True 'видимость
.Navigate sURL ' переход
While .Busy Or (.readyState <> 4): DoEvents: Wend ' ожидание
Set ieDoc = .Document: DoEvents: DoEvents
If ieDoc.Title Like "Ошибка сертификата*" Or ieDoc.Title Like "Certificate Error*" Then
ieDoc.Links(1).Click
While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
Set ieDoc = IE.Document
End If
With ieDoc 'login
If login = True Then
Application.Wait (Now + TimeValue("0:00:01"))
.getElementsByName("mylogin")(0).Value = log
.getElementsByName("mypass")(0).Value = pass
.getElementsByName("savepass")(0).Click
'.getElementsByName("login")(0).Click
'.getElementsByValue("submit")(0).Click
.forms(0).submit
While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
End If
.getElementsByName("group1")(0).Click
.getElementsByName("edrpou")(0).Value = edrpou
'.getElementsByName("im1")(0).Click
.forms(0).submit
While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
WebPageText = .body.innerText ' тянем
End With
'Application.Wait (Now + TimeValue("0:00:13"))
.Quit: Set IE = Nothing ' закрываем
End With
End Function |
П.С. До этого писал все тоже самое на делфи, но проблема с Инди и с запросами, тут куда проще, но информацию получить не получается.
кросс:
Изменено: - 24.12.2013 14:18:28
Автоматизация приложений, разработка ботов, парсинг сайтов, поиск информации и многое другое на языках : Delphi, C++, VBA. Информация в профиле.
Нормально, да?
... 
