Формула для поиска наилучшего варианта

gregaz · 10 Май 2010

Lum [?]

Ладно, тогда их проще просто перебрать, каждое поле в отдельности... Это единственный выход.

А что значит перебрать ? (уже теплее). Что сделать?

Lum · 10 Май 2010

А если вот так сделать, дальше пока не знаю, какую функцию применить, но как-то так:

Код:

$aBlock=StringRegExp($sTextHTML,"(?si)noWrap>.*?</FORM></TD>",3)
                Dim $Formula0, $Formula1, $Formula2, $Formula3,$Formula4
		For $i=0 To UBound($aBlock)-1
			$aPar=StringRegExp($aBlock[$i],"(?si)(\d*:?\d*:?\d+?)%?<(?:BR|/SPAN)>",3)
			If $aPar[0]>20 And $aPar[1]>1 And $aPar[3]<50 Then
				$Formula = $aPar[0]*$aPar[1]/$aPar[3]
			Else
				$Formula = 0
			EndIf
			If $i = 0 Then
				$Formula = $Formula0
			ElseIf $i = 1 Then
				$Formula = $Formula1
			ElseIf $i = 2 Then
				$Formula = $Formula2
			ElseIf $i = 3 Then
				$Formula = $Formula3
			ElseIf $i = 4 Then
				$Formula = $Formula4
			EndIf
		Next

gregaz · 10 Май 2010

Словами скажите что делать ?
Там вообще малопонятно
Может кликать во все эти поля ?

Lum · 10 Май 2010

Сейчас попробую, что если искуственно заставить "формулу" менять свое имя? Тогда можно будет сделать сравнение того, что я назвала "коэффициентом". Может быть так попробовать, вот что я имею ввиду...

gregaz · 10 Май 2010

Lum [?]

Сейчас попробую, что если искуственно заставить "формулу" менять свое имя? Тогда можно будет сделать сравнение того, что я назвала "коэффициентом". Может быть так попробовать, вот что я имею ввиду...

Мы не понимаем друг друга
Допустим Имеем 3 одинаковых значения :
$Formula1=30
$Formula2=30
$Formula3=30
Что с ними делать ? Какое из них лучше?
Что их сравнивать ? Они же одинаковые
Добавлено:
Сообщение автоматически объединено: 10 Май 2010

Чуйствую сейчас нас модератор прикроет за превращение темы в чат

Lum · 10 Май 2010

а, поняла, что тебя беспокоит)) Не, не, там значения будут выглядеть примерно так (для 3 полей):
Первый параметр: 24
Второй параметр: 3
Третий параметр: 47

Коэффициент (формула) = 24*3/47 = 1,5319148

Первый параметр: 64
Второй параметр: 1
Третий параметр: 38

Это поле у нас выпадет, так как второй параметр 1
Коэффициент (формула) = 0

Первый параметр: 25
Второй параметр: 2
Третий параметр: 25

Коэффициент (формула) = 25*2/25 = 2

Таким образом, мы получаем, что 3 поле лучше и значит нужно нажать кнопку 3 поля.

Так понятнее?

Ну а если вдруг коэффициенты будут одинаковые, то тогда можно ввестит в ход четвертый параметр - время и выбрать по меньшему)

gregaz · 10 Май 2010

Пошли по третьему кругу
В посте 29 мы уже определили лучшее поле с максимальным коэф-том.
ты же говорила что таких полей может быть несколько и у всех них коэф=2. Весь сыр бор то из-за этого

Lum · 10 Май 2010

да забудь ты про этот пост, я его даже удалила! Не определили мы максимум, мы в нем просто определили, что есть 2 поля, коэффициент которых больше 0 и всеЭ, больше я ничего не смогла добиться(

gregaz · 10 Май 2010

Lum [?]

Ну а если вдруг коэффициенты будут одинаковые, то тогда можно ввестит в ход четвертый параметр - время и выбрать по меньшему)

Ну вот и определилась.

Время это $aPar[2]
Преобразуй в секунды (мы уже гдето делали) и добавь в Формулу:

$Formula = $aPar[0]*$aPar[1]/($aPar[3]*$aPar[2])

Добавлено:
Сообщение автоматически объединено: 10 Май 2010

Lum [?]

да забудь ты про этот пост, я его даже удалила!

Ты его не могда удалить это мой пост : « Ответ #29, Отправлен: Май 10, 2010, 18:50:48 » на 2- странице

Добавлено:
Сообщение автоматически объединено: 10 Май 2010

Кстати там действительно есть опечатка : отсутствует одна важная строка , из-за чего и ищется только >0
Вот с исправлением :

Код:

#Include<Array.au3>
#include <IE.au3>
$sText=FileRead (@ScriptDir &"\2.htm")
$aBlock=StringRegExp  ( $sText,"(?si)<TD.*?</FORM></TD>",3)
_ArrayDisplay($aBlock)
Dim $iFormulaMax=0,$sBlockOptimal
For $i=0 To UBound($aBlock)-1
    $aPar=StringRegExp  ( $aBlock[$i],"(?si)(\d*:?\d*:?\d+?)%?<(?:BR|/SPAN)>",3)
    _ArrayDisplay($aPar)
    ;If .....  Then  MsgBox(0,'Найденный блок',$aBlock[$i])
    $Formula = $aPar[0]*$aPar[1]/$aPar[3]
    If $Formula < $iFormulaMax Then ContinueLoop ; если меньше-смотрим следующий блок
    $iFormulaMax=$Formula ;  ****** внесенное изменение ********************************
	$sBlockOptimal=$aBlock[$i]; Получаем текст оптимального блока
Next
;Дальше можно через IE  для этого текста ($sBlockOptimal)  находить кнопку и кликать по ней

Lum · 11 Май 2010

Все, поняла, перепутала посты) Я просто эту опечатку пыталась исправить и видимо не так исправила, ну в общем... сейчас перепроверю, что там да как)

Работает))) Заработало)))

Прошу прощения, что так долго разбиралась) Замудренно оно с этими массивами, циклами и прочим выщло, зато универсально))

gregaz · 11 Май 2010

Lum [?]

Замудренно оно с этими массивами, циклами и прочим выщло, зато универсально)

OffTopic:
Главное чтобы все было понятно .

Lum · 11 Май 2010

Да, главное, чтобы все было понятно)
gregaz, прошу прощения за назойливость.
Собственно после отладки остался вопрос с кнопкой. Если я правильно понимаю, то банальное

Код:

$oInputs = _IETagNameGetCollection($oIE, "input")
	For $oInput In $oInputs
		If $oInput.type="submit" And $oInput.name="take" Then
			_IEAction($oInput, "click")
		EndIf
	Next

не сработает.

Поискала по форуму, но то-ли на глаза не попалось, то-ли это что-то новенькое)
Итак, наш фрагмент текста с кнопкой

Код:

$aBlock = StringRegExp  ($sTextHTML,"(?si)noWrap>.*?</FORM></TD>",3)

сама кнопочка в тексте между noWrap> и </FORM></TD>

Код:

<INPUT class=veg_х_off onmouseover="this.className='veg_х_on'" onmouseout="this.className='veg_х_off'" type=submit>

gregaz · 11 Май 2010

Lum [?]

Собственно после отладки остался вопрос с кнопкой. Если я правильно понимаю, то банальное ... не сработает.

Вполне сработает.
Надо ввести в IE полученный текст блока $sBlockOptimal , а для него найти $oInputs и т.д.

Lum · 11 Май 2010

хм... логично...
но честно сказать. я не понимаю как это сделать... искала, но даже подобного не нашла(

gregaz · 11 Май 2010

Мы для того и искали текст оптимального блока чтобы дальше работать с ним.
Честно говоря я никогда не работал с IE. ..........

Lum · 11 Май 2010

Усе, поняла) Я просто с английским не очень. а функции по IE еще не перевели, искать безуино тяжело(
Спасибо)))

gregaz · 12 Май 2010

В предыдущем своем посте я удалил неудачную концепцию
Надо так :

Код:

#include <IE.au3>
;........................
For
    ;......................
    If $Formula < $iFormulaMax Then ContinueLoop
	$iFormulaMax=$Formula 
	$iFormOptimal=$i+1 ; Полученный Номер оптимальной формы +++++++++++++
Next
$oIE = _IECreate(@ScriptDir &"\2.htm")
MsgBox(0,'$sBlockOptimal',"Номер оптимальной формы" & $iFormOptimal,1)
$oForm = _IEFormGetCollection ($oIE,$iFormOptimal)
$oInputs = _IETagNameGetCollection($oIE, "input")
For $oInput In $oInputs
    If $oInput.type="submit" Then
		_IEAction($oInput, "click")
	EndIf
Next

Lum · 13 Май 2010

А чем неудачно-то было? Оно вроде работало. Можно пояснение, чем тело от формы в данном случае отличается.

gregaz · 13 Май 2010

Lum [?]

А чем неудачно-то было? Оно вроде работало.

Там после нахождения оптим.блока создавался новый обьект $oIE для клика. (с заменой предыдущего).
А задача ведь наверняка не кончается одним кликом .
Здесь же можно создать вначале 1 раз обьект : $oIE = _IECreate , в котором постоянно находится вся страница HTML
Найти оптимальный текст тега TD (как делали раньше).
Учитывая то что количество тегов TD = количеству тегов FORM найти номер оптмальной формы куда и кликать.
Так и проще и оптимальней.
Впрочем если устраивает тот вариант , и он работает ,то оставляй тот.
Мне казалось ,что он не будет работать.
Вообще-то организация самого клика это уже другая тема.

Belfigor · 15 Май 2010

А как узнать содержимое вот такого вот SPAN?

Код:

<p class="timer">Отдохните после драки:
                                                <span class="timer" timer="396"></span></p>

Автор темы	Похожие темы	Форум	Ответы	Дата
M	Настройка редактора для Autoit (и других ЯП)	Инструменты и справка по AutoIt	6	6 Дек 2024
F	[Данные, строки] Формула для поиска оптимального варианта	Разработка ботов	6	11 Сен 2014
	формула для перебора n мерного массива	Общие вопросы по AutoIt	4	18 Мар 2014
А	Как скопировать лист Excel со всеми формулами и стилями	Общие вопросы по AutoIt	3	16 Янв 2013
N	[Математика] Формула получения длины отрезка в оси координат	Общие вопросы по AutoIt	2	23 Июл 2011

Формула для поиска наилучшего варианта

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Модератор