[Creat0R]

Maza Faka,

сначала отображается один файл, а затем все остальные, кроме файла, который отобразился в первый раз, почему так происходит?

Через StdOutRead можно читать данные те что доступны в момент выполнения (ком. строки).
Видимо отдаются не все данные сразу, можно их склеивать

Код:

$foo = Run(@ComSpec & " /c @dir /b e:\", @SystemDir, @SW_HIDE, 4+2)
$line = ""
$Errline = ""

While 1
    $line &= StdoutRead($foo)
    If @error Then ExitLoop
Wend

While 1
    FileWrite("c:\error.log", $line)
    $Errline &= StderrRead($foo)
    If @error Then ExitLoop
Wend

MsgBox(0, "STDERR read:", $line)
MsgBox(0, "STDOUT read:", $Errline)

Почему функция возвращает ноль?

По умолчанию функция так и возвращает если не задано значение по Return, видимо у тебя в функции дело не доходит до Return - MsgBox показывается перед выходом с функции?
Кстати, у тебя проверяется на папку, но проверять нужно содержится ли буква D в возвращённом значении от FileGetAttrib(), потому как папка может ещё иметь атрибут скрытый и т.п


Angelus,

загружает процессор на 100%????

Если нет процесса iexplore.exe и существует процесс wow.exe, то цикл продолжает без паузы, для предотвращения загрузкий ЦП нужна пауза хотябы в 10 мс.
Кстати, вместо Run('tskill...') можно использовать ProcessClose()

[Creat0R]

Накалякал тут функцию для отображения MsgBox со счётчиком отсчёта + возможностью указывания hWnd (идентификатор окна к которому будет относится сообщение):

Код:

_MsgBoxCount(36, "Hello World!", "Hi!", 5, WinGetHandle(""))

Func _MsgBoxCount($Flag, $Title, $Text, $Time=0, $hWnd=0, $ButtonIDName='Button1')
    Run(@AutoItExe & ' /ErrorStdOut /AutoIt3ExecuteLine "DllCall(''user32.dll'', ''int'', ''MessageBox'', ''hwnd'', ' & _
        $hWnd & ', ''str'', ''' & $Text & ''', ''str'', ''' & $Title & ''', ''int'', ' & $Flag & '")')

        Local $OldWTMM = Opt("WinTextMatchMode", 2)
    If $Time > 0 Then
        WinWait($Title, $Text)
        Local $ButtonText = ControlGetText($Title, $Text, $ButtonIDName)
        For $i = $Time To 1 Step -1
            If Not WinExists($Title, $Text) Then ExitLoop
            ControlSetText($Title, $Text, $ButtonIDName, $ButtonText & ' (' & $i & ')')
            Sleep(1000)
        Next
    EndIf
    Opt("WinTextMatchMode", $OldWTMM)
    If WinExists($Title, $Text) Then ControlClick($Title, $Text, $ButtonIDName)
EndFunc

Вот только не знаю как организовать возвращаемое значение...
Пробовал через StdOutRead, но не выходит - Пример попытки через обычный MsgBox():

Код:

$Ret = _MsgBoxCount(36, "Hello World!", "Hi!", 5)
MsgBox(0, "", $Ret)

Func _MsgBoxCount($Flag, $Title, $Text, $Time=0, $ButtonIDName='Button1')
    Local $Pid = Run(@AutoItExe & ' /ErrorStdOut /AutoIt3ExecuteLine "StdinWrite(''' & @AutoItPID & ''', MsgBox(' & _
        $Flag & ', ''' & $Title & ''', ''' & $Text & ''',' & $Time & '))"', '', '', 6)

        Local $OldWTMM = Opt("WinTextMatchMode", 2)
    If $Time > 0 Then
        WinWait($Title, $Text)
        Local $ButtonText = ControlGetText($Title, $Text, $ButtonIDName)
        For $i = $Time To 0 Step -1
            If Not WinExists($Title, $Text) Then ExitLoop
            ControlSetText($Title, $Text, $ButtonIDName, $ButtonText & ' (' & $i & ')')
            Sleep(1000)
        Next
    EndIf
    Opt("WinTextMatchMode", $OldWTMM)
    Return StdoutRead($Pid)
EndFunc

Пробовал по разному использовать StdOutRad, StdinWrite, но так ничего и не вышло...

[Maza Faka]

Creat0R,

По умолчанию функция так и возвращает если не задано значение по Return, видимо у тебя в функции дело не доходит до Return - MsgBox показывается перед выходом с функции?

Да, MsgBox показывается с путём C:\Program Files\IsqLite, но скрипт не завершает работу, а пару секунд, чего то там делает, и возвращает ноль. Такое ощущение, что после появления MsgBox скрипт продолжает работу.

Код:

Dim $path
MsgBox(64, "Done", WritePathToReg("icqlite.exe", @ProgramFilesDir))

Func WritePathToReg($icq, $path)
    $search = FileFindFirstFile($path & "\*.*")
    While 1
        $file = FileFindNextFile($search)
        If @error Then ExitLoop
            $full_path = $path & "\" & $file
            If StringInStr(FileGetAttrib($full_path), "D") Then WritePathToReg($icq, $full_path)
                If $file = $icq Then
                    MsgBox(0, "", $path)
                    Return $path
                EndIf
            WEnd
            FileClose($search)
        EndFunc

[Creat0R]

Maza Faka,

скрипт не завершает работу, а пару секунд, чего то там делает, и возвращает ноль

Он ищет далее по папкам

Какого назначение этой функции? сюдя по названию что-то пишет в реестер, но судя по содержанию, рекурсивно ищет определённый файл...

Во-первых у тебя при выходе не закрывается поиск, это уже ошибка.
Во-вторых, если ничего не найдено, нужно решить что возвращать, иначе будет 0... и тогда ты сможешь определить ошибку...
А в третьих, зачем обьявлять переменную $path в начале скрипта? она ведь используется как параметр в функции, обьявлять в этом случае незачем, имхо.

Код:

Func WritePathToReg($icq, $path)
	$search = FileFindFirstFile($path & "\*.*")
	While 1
		$file = FileFindNextFile($search)
		If @error Then ExitLoop
		$full_path = $path & "\" & $file
		If StringInStr(FileGetAttrib($full_path), "D") Then WritePathToReg($icq, $full_path)
		If $file = $icq Then
			FileClose($search)
			Return $path
		EndIf
	WEnd
	FileClose($search)
	Return -1
EndFunc

После этого, я сразу вижу что функция ВСЕГДА возвращает значение -1, потому как цикл заканчивается (после рекурсива). Но я если честно даже не знаю что она на самом деле должна возвращать, все пути где найден файл, или что? или может писать в реестер каждый путь? - Тогда зачем возвращать значения путей?

[amel27]

Maza Faka

Почему функция возвращает ноль?

Кроме ошибки с атрибутами, на которую указал Creat0R у тебя в скрипте есть еще ряд мелких ошибок: используемые в функции переменные не объявлены как Local; выход из функции по Return происходит без закрытия хэндла FileClose().

Теперь к вопросу о возвращаемом значении… Во-первых, функция не является рекурсивной, так как нарушено одно из правил рекурсии: возвращаемое функцией значение должно передаваться по всей цепочке рекурсивных вызовов, у тебя же значение, возвращаемое WritePathToReg() вообще игнорируется… из этого имеем два следствия:
- дальше первого уровня подкаталогов функция и не пытается заглянуть, если бы файл лежал глубже чем на один уровень функция бы его не нашла;
- функция, осуществившая рекурсивный вызов не знает о результате этого вызова… поэтому даже если файл найден (как в твоем случае) на возвращаемое значение это никак не повлияет и результат будет зависеть только от содержимого текущего каталога ($path).

один из возможных вариантов,
ключевой переменной, передаваемой между рекурсивными вызовами является $sRetPath:

Код:

MsgBox(64, "Done", _FindFile("icqlite.exe", @ProgramFilesDir))

Func _FindFile($sFile, $sPath)
    Local $sRetPath='', $sFullPath
    Local $hSearch = FileFindFirstFile($sPath & "\*.*"), $sName = FileFindNextFile($hSearch)
    While @error=0 And $sRetPath = ''
        $sFullPath = $sPath &'\'& $sName
        If $sName = $sFile Then $sRetPath = $sPath
        If StringInStr(FileGetAttrib($sFullPath), "D") Then $sRetPath = _FindFile($sFile, $sFullPath)
        $sName = FileFindNextFile($hSearch)
    WEnd
    FileClose($hSearch)
    Return $sRetPath
EndFunc

[Maza Faka]

amel27
Спасибо! Отличный код! Работает в 3 раза быстрее чем мой корявый код.

[amel27]

Maza Faka
Всегда пожалуйста ИМХО единственный случай, когда оправдано применение глобальных данных в рекурсии это массивы, во всех остальных случаях можно обойтись правильным выбором передаваемого значения.... И еще важное замечание - если в функции используются глобальные переменные их нужно обязательно объявлять в параметрах через ByRef, иначе потом легко забыть и запутаться.

[Maza Faka]

ключевой переменной, передаваемой между рекурсивными вызовами является $sRetPath:

If StringInStr(FileGetAttrib($sFullPath), "D") Then $sRetPath = _FindFile($sFile, $sFullPath)
Но ведь переменная $sRetPath заново обьявляется в начале функции:
Local $sRetPath='', $sFullPath, какой смысл присваивать ей значение?

Ммм...голова уже пухнет, кажется, что начинаю, что-то понимать, но оказывается, что понимаю не так.

[amel27]

какой смысл присваивать ей значение?

Что возвращает функция _FindFile() ?... либо "пусто" (файл в каталоге не найден), либо путь к каталогу с файлом, поэтому: при входе в функцию $sRetPath "пусто", далее устанавливаем его значение для каждого элемента каталога:

для файлов: просто проверяем условие - если подходит, то присваиваем значение $sRetPath = $sPath;
для каталогов: функция _FindFile() сама устанавливает требуемое значение $sRetPath.

Может тебе так будет понятней (пожалуй, это будет и правильней):

Код:

MsgBox(64, "Done", _FindFile("icqlite.exe", @ProgramFilesDir))

Func _FindFile($sFile, $sPath)
    Local $sRetPath='', $sFullPath
    Local $hSearch = FileFindFirstFile($sPath &"\*"), $sName = FileFindNextFile($hSearch)
    While @error=0 And $sRetPath = ''
        $sFullPath = $sPath &'\'& $sName
        If StringInStr(FileGetAttrib($sFullPath), "D") Then
            $sRetPath = _FindFile($sFile, $sFullPath)
        Else
            If $sName = $sFile Then $sRetPath = $sPath
        EndIf
        $sName = FileFindNextFile($hSearch)
    WEnd
    FileClose($hSearch)
    Return $sRetPath
EndFunc

голова уже пухнет

для рекурсий это нормально

[Creat0R]

Есть такая нестандартная задачка:

Имеется массив содержащий 6 значимых элементов:

Код:

Global $PlayersArray[7] = [6, "Вася", "Петя", "Паша", "Толик", "Лёня", "Кеша"]

Элементы массива, как видно, представляют имена игроков (скажем в настольный теннис ), нужно чтобы каждый игрок, поиграл со всеми остальными пятью игроками, но таким образом, чтобы все игроки ждали одинаковое количество игр между своими встречами, и при этом чтобы не получилось такого что один игрок играет более одной игры подряд ...

Результат желательно вывести в качесте подобной таблицы:

Вася vs Паша Лёня vs Петя Толик vs Кеша И т.д.

Пытался решить циклами типа такого:

Код:

Global $TotalPlayers = 6
Global $PlayersArray[$TotalPlayers+1] = [$TotalPlayers, "Вася", "Петя", "Паша", "Толик", "Лёня", "Кеша"]

$GamesList = ''

For $i = 1 To $TotalPlayers
    $CurrentGameArr = GetRandomGame()

        While StringInStr($GamesList, $CurrentGameArr[0] & " vs " & $CurrentGameArr[1]) Or _
        StringInStr($GamesList, $CurrentGameArr[1] & " vs " & $CurrentGameArr[0])
        $CurrentGameArr = GetRandomGame()
    WEnd
    $GamesList &= $CurrentGameArr[0] & " vs " & $CurrentGameArr[1] & @LF
Next

MsgBox(0, "", $GamesList)

Func GetRandomGame()
    Local $Player_1 = $PlayersArray[Random(1, $TotalPlayers, 1)]
    Local $Player_2 = $PlayersArray[Random(1, $TotalPlayers, 1)]
    While $Player_2 = $Player_1
        $Player_2 = $PlayersArray[Random(1, $TotalPlayers, 1)]
    WEnd
    Local $RetArr[2] = [$Player_1, $Player_2]
    Return $RetArr
EndFunc

Но как видно результат не впечатляющий
Если кто то сможет решить задачку, буду очень благодарен, я если честно после трёхчасового просижывания потерял надежду на то что это вообще реально... оч нужно ..