[Creat0R]

amel27,
Спасибо.

По поводу рекурсии...
Всё это хорошо, но на склько известно, есть ограничение на количество вызовов подфункции? можно как то его обойти?

[Creat0R]

Попутный вопрос: Как можно получить число не больше указанного, если как второе число передаёся большее число, но при этом, если всё же передаётся меньшее число, нужно вернуть именно его...

Я это делаю так (надеялся может есть какой-то быстрый метод, используя всякие BitShift/And/Or и т.п.):

Код:

Func BitNumber($Nmber, $Value)
    If $Value >= $Nmber Then Return $Nmber
    Return $Value
EndFunc

[Diamond]

Maza Faka,

А зачем постоянно передавать глобальный массив по ссылке? »

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

[amel27]

Maza Faka

Помнишь пример который ты постил для меня »

помню, там не было глобальных данных, поэтому рукурсивная функция возвращала результат ($ret) который передавался "по цепочке" вызовов. В твоем случае в этом нет необходимости.

зачем постоянно передавать глобальный массив по ссылке? »

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

Creat0R

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

в общем случае нет... в данном случае это некритично - не встречал каталога на глубине 384 уровня ... особенно если учесть, что весь путь к файлу обычно не больше 255 символов

может есть какой-то быстрый метод »

это и есть самый быстрый, можно сделать короче (одной строчкой) но считаться будет дольше "IF"

используя всякие BitShift/And/Or и т.п

только если $Nmber есть степень двойки, т.е. в двоичном виде есть последовательность "единичек"

[Creat0R]

Может кому пригодится (или может кто мне покажет более правильное/простое решение), вот функция для получения числа разделённого запятыми (когда то на батнике пробовал решить, получилось - но кривовато, а тут совсем другое дело )...

Код:

$MyNumber = 212347525 ;> 212,347,525

MsgBox(64, "Внимание", "Конвертировали обычное число: " & @LF & @LF & _
    $MyNumber & @LF & @LF & _
    "В строку (числовую) разделённую запятыми: " & @LF & @LF & GetComasNumber($MyNumber))

Func GetComasNumber($iNumber)
    $iNumber = Number($iNumber)
    If $iNumber <= 1000 Then Return $iNumber

    Local $iLength = StringLen($iNumber)
    Local $RetStr = '', $iN

    For $i = 1 To $iLength
        $iN = StringMid($iNumber, $i, 1)
        If IsInt(($iLength - $i) / 3) And ($iLength - $i) / 3 > 0 Then
            $RetStr &= $iN & ','
        Else
            $RetStr &= $iN
        EndIf
    Next
    Return $RetStr
EndFunc

amel27,

в общем случае нет

А жаль - Я как раз написал собственный редактор реестра, он правда медленно работает, но полагаю что даже если у кого то и хватит терпения дождаться окончания считывания всех строчек с реестра (у меня не хватает ), то он увидит не полный список, или скрипт выпадет с ошибкой о рекурсивном вызове подфункции.

можно сделать короче (одной строчкой)

О, как это одной строчкой сделать? (скорость не критична в моём случае, проверяться будет вне цикла).

только если $Nmber есть степень двойки, т.е. в двоичном виде есть последовательность "единичек"

У меня число (в этом конкретном случае), всегда 15, т.е нужно проверить, если исло болльше чем 15, то вернуть 15, если меньше, то вернуть то которое меньше (это подходит под критерии сказанного? я просто в математике совсем не силён)... понимаю что решать подобные задачи для конкретного случая нет особого смысла, но мне больше для расширения своего круга знании, вот такие мелочи иногда помагают решить серъёзную проблему.

[amel27]

Creat0R

А жаль - Я как раз написал собственный редактор реестра

любую рекурсию можно так или иначе заменить на циклы... вот вариант решения задачи для списка каталогов без использования рекурсии:

Код:

#include <File.au3>
#include <Array.au3>

Global $DirArray[1]
_ArrayAddFileListSubDir($DirArray, "c:\windows")
_ArrayDisplay($DirArray,'')

Func _ArrayAddFileListSubDir (ByRef $aGDir, $sPath = @ScriptDir)
    Local $i = UBound($aGDir), $aLDir = _FileListToArray($sPath, "*", 2)
    _ArrayAddFileList($aGDir, $sPath)
    While $i < UBound($aGDir)
        _ArrayAddFileList($aGDir, $aGDir[$i])
        $i+=1
    WEnd
EndFunc

Func _ArrayAddFileList(ByRef $aGDir, $sPath)
    Local $i, $aLDir = _FileListToArray($sPath, "*", 2)
    If UBound($aGDir, 0)=1 And UBound($aLDir, 0)=1 Then
        For $i = 1 To $aLDir[0]
            _ArrayAdd($aGDir, $sPath & '\' & $aLDir[$i])
        Next
    EndIf
EndFunc

как это одной строчкой сделать?

арифметический вариант _IIF() :

Код:

$res = ($Value<$Nmber)*$Value + Not($Value<$Nmber)*$Nmber

мне больше для расширения своего круга знании

в такой формулировке одними битовыми операциями все равно не обойтись, поэтому получится еще длиннее... вот если бы $value с каждым шагом изменялось на 1, то отфиксировать переход "границы" можно контролем одного бита... или можно "обрезать" часть старших разрядов... ну и т.д.

[NikLok]

Корифеи! Кто нибуть реализовал просмотр сети?

[Creat0R]

amel27,

любую рекурсию можно так или иначе заменить на циклы

Ну тут как мне кажется, не так циклы как вызов подфункции играют главную роль.
И кстати, а почему While $i < UBound($aGDir) а не простое использоване For? вроде как разницы нет?

арифметический вариант _IIF()

Супер! Спасибо!

NikLok,

Кто нибуть реализовал просмотр сети?

Полагаю что да.

[amel27]

Creat0R

не так циклы как вызов подфункции играют главную роль

выделение функций лишь вопрос удобства - можно объединить и в одну

почему While $i < UBound($aGDir) а не простое использоване For?

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

Кто нибуть реализовал просмотр сети? Полагаю что да.

вы о чем?

[Creat0R]

amel27,

выделение функций лишь вопрос удобства - можно объединить и в одну

Точно, я не присмотрелся поглубже в работу функции...

у этого способа есть один недостаток по сравнению с рекурсией - результирующий массив не отсортирован по каталогам/подкаталогам

Хм... в некоторых случаях довольно весомый недостаток .

вы о чем

Если бы я знал, ответил бы наверное более подробно