Добрый день!
У меня возникли трудности с этой функцией следующего характера. Со страницы http://zakupki.gov.ru/pgz/public/action/orders/info/common_info/show?notificationId=8067779 необходимо возвратить несколько текстовых выражений. К примеру нужно получить название электронной площадки. В планах функцией StringRegExp найти фрагмент кода (ниже) и вырезать из него.
Для получения кода использую функцию _IEBodyReadHTML . В описании говорится, что она возвращает код HTML-документа заключённый в тегах <body> - при успешном выполнении, при ошибке возвращает 0. Так вот 0 у меня и возвращается. Я связываю это явление с тем, что страница построена скриптом. Пожалуйста подскажите как поступить! Мой код ниже.
У меня возникли трудности с этой функцией следующего характера. Со страницы http://zakupki.gov.ru/pgz/public/action/orders/info/common_info/show?notificationId=8067779 необходимо возвратить несколько текстовых выражений. К примеру нужно получить название электронной площадки. В планах функцией StringRegExp найти фрагмент кода (ниже) и вырезать из него.
Код:
<label class="iceOutLbl">Аукцион в электронной форме проводится на электронной площадке по следующему адресу
</label>
</td>
<td class="orderInfoCol2">
<a class="iceOutLnk" href="http://roseltorg.ru">
Для получения кода использую функцию _IEBodyReadHTML . В описании говорится, что она возвращает код HTML-документа заключённый в тегах <body> - при успешном выполнении, при ошибке возвращает 0. Так вот 0 у меня и возвращается. Я связываю это явление с тем, что страница построена скриптом. Пожалуйста подскажите как поступить! Мой код ниже.
Код:
$hWnd = WinGetHandle('[CLASS:IEFrame]') ; возвращаем дескриптор окна IE
$oIE =_IEAttach($hWnd, 'embedded',1) ; возвращаем атрибуты активной вкладки IE
$sUrl = _IEPropertyGet($oIE, 'locationURL') ; возвращаем адрес страницы из атрибутов активной вкладки IE в $sUrl
MsgBox(0, '', $sUrl)
If StringRegExp($sUrl, $eUrl, 0)=1 Then ; поиск совпадений в строке $sUrl
MsgBox(0, 'Сообщение', "Страница совпадает!")
$textUrl=_IEBodyReadHTML($oIE)
If $textUrl=0 Then
MsgBox(0, 'Сообщение', "Текст не прочитан!")
Exit
EndIf
MsgBox(0, 'Сообщение', "Текст кажется прочитан...")
Exit