Доброго времени суток, ребят, подскажите пожалуйстка, в чём проблема в данном коде?
Скрипт почему-то постоянно оповещает о том, что ничего не найдено, даже если эти зелья там есть
Код:
HTML CODE
<option value="0">Ничего не выбрано</option>
<option value="14240794">Зелье манны 10 МА (72 ед.)
Код:
Func ManaSearch()
Local $ManaHTML = _IEBodyReadHTML($oIE)
If StringRegExpReplace($ManaHTML, '(?si).*<option.*>(Зелье манны 100 МА.*?)</option>.*', '$1') = @error Then
If StringRegExpReplace($ManaHTML, '(?si).*<option.*>(Зелье манны 50 МА.*?)</option>.*', '$1') = @error Then
If StringRegExpReplace($ManaHTML, '(?si).*<option.*>(Зелье манны 20 МА.*?)</option>.*', '$1') = @error Then
If StringRegExpReplace($ManaHTML, '(?si).*<option.*>(Зелье манны 10 МА.*?)</option>.*', '$1') = @error Then
MsgBox (4096, "Предупреждение", "Ничего не найдено")
Exit
Else
$ManaSearch = StringRegExpReplace($ManaHTML, '(?si).*<option.*>(Зелье манны 10 МА.*?)</option>.*', '$1')
EndIf
Else
$ManaSearch = StringRegExpReplace($ManaHTML, '(?si).*<option.*>(Зелье манны 20 МА.*?)</option>.*', '$1')
EndIf
Else
$ManaSearch = StringRegExpReplace($ManaHTML, '(?si).*<option.*>(Зелье манны 50 МА.*?)</option>.*', '$1')
EndIf
Else
$ManaSearch = StringRegExpReplace($ManaHTML, '(?si).*<option.*>(Зелье манны 100 МА.*?)</option>.*', '$1')
EndIf
Global $ManaSearch
EndFuncСкрипт почему-то постоянно оповещает о том, что ничего не найдено, даже если эти зелья там есть
