Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Maza Faka,
Цитата:
не смог найти твой пост
Google рулит (при правильном запросе: 24 +массив site:forum.oszone.net )...

http://forum.oszone.net/thread-60616...tml#post666511

Там задача была похожая, только от 1 до 13 ..
И массив я сделал двумерный (мне кажется так легче), но то что ты сделал в твоём примере, можно сделать двумя циклами (плюс вспомагательная функция):


Код: Выделить весь код
#include <Array.au3> ;Только для _ArrayDisplay()

Global $MainArray = GetArray(24, 12)

_ArrayDisplay($MainArray)

Func GetArray($iElements = 24, $iRandom = 12)
    Local $iRandNum, $avRetArray[$iElements + 1]

    For $i = 1 To $iElements
        $iRandNum = Random(1, $iRandom, 1)
        If _FindInArray($avRetArray, $iRandNum) = -1 Then
            $avRetArray[$i] = $iRandNum
        Else
            While _FindInArray($avRetArray, $iRandNum) > 1
                $iRandNum = Random(1, $iRandom, 1)
            WEnd
            $avRetArray[$i] = $iRandNum
        EndIf
    Next

    $avRetArray[0] = $iElements
    Return $avRetArray
EndFunc

Func _FindInArray(ByRef $avArray, $StrToFind)
    Local $iRetCount = 0
    For $i = 1 To UBound($avArray)-1
        If $avArray[$i] <> "" And $avArray[$i] = $StrToFind Then $iRetCount += 1
    Next
    If $iRetCount <> 0 Then Return $iRetCount
    Return -1
EndFunc

Drsmog
Цитата:
если в блокноте, строке есть знак + тогда выполнить дествие
Примерно так:

Код: Выделить весь код
$NotepadTitle = "[CLASS:Notepad]"

Run(@WindowsDir & "\Notepad.exe")
WinWait($NotepadTitle)

ControlSetText($NotepadTitle, "", "Edit1", "Просто текст с + ") ;Задаём текст с "+"

$EditText = ControlGetText($NotepadTitle, "", "Edit1")

If StringInStr($EditText, "+") Then
    ;Делаем наше действие ;)
    MsgBox(0, "", "Это могло бы быть ваше действие ;)")
EndIf

;Просто закроем то что открыли
WinClose($NotepadTitle)
WinWaitClose($NotepadTitle, "", 1)
If WinActive("[CLASS:#32770]", "&") Then ControlClick("[CLASS:#32770]", "&", "Button2")

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 06:41, 24-11-2007 | #753