Помогите перевести условие

[Нубокодер]

Напишите пожалуйста это же условие, но без использования функции IE. С помощью ObjCreate("HTMLFILE"):

If ( StringInStr ( _IEPropertyGet ( $oCensured, "innertext" ), "попа" )) And ( StringInStr( _IEPropertyGet ( $oCensured, "innertext"), "жопа" )) = 0 Then

Смысл условия: если текст объекта $oCensured содержит строку "попа" и не содержит "жопа" то ...

 

[Нубокодер]

If ( StringInStr ( $oCensured.innertext, "попа" )) And ( StringInStr ( $oCensured.innertext, "жопа" )) = 0 Then

 

[firex]

If StringInStr( $oCensured.innerText, "попа" ) And Not StringInStr( $oCensured.innerText, "жопа" ) Then

 

[Нубокодер]

Спасибо, только я уже сам допер)) Еще одна проблемка вскрылась: почему то русские буквы это условие не понимает.( Как быть? Причем с _IEPropertyGet нормально работало.

 

[firex]

Нубокодер
Проверьте сам текст:

ConsoleWrite( $oCensured.innerText & @LF )

Полагаю у вас проблемы с кодировкой.

 

[Нубокодер]

Из $oCensured латинские буквы нормально читает, а русские что то типа такого: ???µN???N??µN???? Как исправить?

 

[firex]

Нубокодер
Код страницы вероятнее всего вы получаете в бинарном виде, преобразовывайте в текст следующим образом:

$sHtml = BinaryToString( $bResponse, 4 )

 

[Нубокодер]

Код страницы получаю вот так:

Local $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET", $url)
$oHTTP.Send()
Local $HTMLSource = $oHTTP.Responsetext

Local $oHTML = ObjCreate("HTMLFILE")
$oHTML.Write($HTMLSource)

Далее несколькими манипуляциями из $oHTML выделяю нужную мне объект-ссылку $oCensured.

 

[firex]

Local $HTMLSource = BinaryToString( $oHTTP.ResponseBody, 4 )

Пробуйте так. Иначе: можно изменить предпочитаемую кодировку в заголовке запроса, пользуйтесь поиском по форуму.

 

[Нубокодер]

Спасибо, помогло