[решено] Редактирование функции _FileListToArray()

[AzazeLHAck]

Ребята, вот проблема:
Мне нужно сделать так, чтобы после:
$nnn = _FileListToArray("Data","*",2)
если папок в папке Data нет, то чтобы он не просто возвращал 0, а вносил его так: $nnn[0] = 0
Вариант ли такое замутить..? Может можно как-нибудь отредактировать функцию _FileListToArray(), если вытащить её из File.au3..?

[kaster]

AzazeLHAck, а зачем? сделать такое можно, но для проверки разного рода условий есть разные значения @error. Вот на них и стоит ориентироваться. Делай проверку. Обычно все так делают. Но если все же тебе нужен именно тот способ что ты описал, то
$nnn = _FileListToArray("Data","*",2)
If @error = 4 Then
Dim $nnn[1] = 0
EndIf

[AzazeLHAck]

kaster,
Почему-то пишет Syntax error.. :(
Общий вид таков:
Func 123()
For to
$nnn = _FileListToArray("Data","*",2)
If @error = 4 Then
Dim $nnn[1] = 0
EndIf
Next
EndFunc
В чём может быть проблема..?

[madmasles]

AzazeLHAck,
Попробуйте так:#include (http://www.autoitscript.com/autoit3/docs/keywords.htm##include) <File.au3>

Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) _DirListToArray($sFullPath)
Local (http://www.autoitscript.com/autoit3/docs/keywords.htm#Local) $aTemp, $aReturn[1] = [0]
$aTemp = _FileListToArray (http://dundats.mvps.org/help/html/libfunctions/_filelisttoarray.htm)($sFullPath, '*', 2)
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) Not (http://www.autoitscript.com/autoit3/docs/keywords.htm#Not) @error (http://www.autoitscript.com/autoit3/docs/macros.htm#@error) Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$aReturn = $aTemp
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
Return (http://www.autoitscript.com/autoit3/docs/keywords.htm#Return) $aReturn
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc) ;==>_DirListToArray

[AzazeLHAck]

madmasles,
Получилось! :) Спасибо!

[kaster]

For to
так писать нельзя. отсюда и ошибка

madmasles, в твоем коде помимо случаев когда файла/папки нет обработаются и все остальные ошибки.

[AzazeLHAck]

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

[kaster]

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

[madmasles]

kaster,
Вопрос изначально был
если папок в папке Data нет, то чтобы он не просто возвращал 0, а вносил его так: $nnn[0] = 0 »Если надо обработать ошибки, то можно поменять на#include (http://www.autoitscript.com/autoit3/docs/keywords.htm##include) <File.au3>
#include (http://www.autoitscript.com/autoit3/docs/keywords.htm##include) <Array.au3>

Global (http://www.autoitscript.com/autoit3/docs/keywords.htm#Global) $aDir, $sText = 'Все OK!'

$sPath = @DesktopDir (http://www.autoitscript.com/autoit3/docs/macros.htm#@desktopdir) & '\MyFolder'

$aDir = _DirListToArray($sPath)
Switch (http://www.autoitscript.com/autoit3/docs/keywords.htm#Switch) @error (http://www.autoitscript.com/autoit3/docs/macros.htm#@error)
Case (http://www.autoitscript.com/autoit3/docs/keywords.htm#Case) 1
$sText = 'Нет такой папки.'
Case (http://www.autoitscript.com/autoit3/docs/keywords.htm#Case) 2
$sText = 'Это не папка.'
Case (http://www.autoitscript.com/autoit3/docs/keywords.htm#Case) 4
$sText = 'Нет папок.'
EndSwitch (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndSwitch)
_ArrayDisplay (http://dundats.mvps.org/help/html/libfunctions/_arraydisplay.htm)($aDir, $sText)


Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) _DirListToArray($sFullPath)
Local (http://www.autoitscript.com/autoit3/docs/keywords.htm#Local) $aTemp, $aReturn[1] = [0]
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) Not (http://www.autoitscript.com/autoit3/docs/keywords.htm#Not) FileExists (http://www.autoitscript.com/autoit3/docs/functions/FileExists.htm)($sFullPath) Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then) Return (http://www.autoitscript.com/autoit3/docs/keywords.htm#Return) SetError (http://www.autoitscript.com/autoit3/docs/functions/SetError.htm)(1, 0, $aReturn)
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) Not (http://www.autoitscript.com/autoit3/docs/keywords.htm#Not) StringInStr (http://www.autoitscript.com/autoit3/docs/functions/StringInStr.htm)(FileGetAttrib (http://www.autoitscript.com/autoit3/docs/functions/FileGetAttrib.htm)($sFullPath), 'D') Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then) Return (http://www.autoitscript.com/autoit3/docs/keywords.htm#Return) SetError (http://www.autoitscript.com/autoit3/docs/functions/SetError.htm)(2, 0, $aReturn)
$aTemp = _FileListToArray (http://dundats.mvps.org/help/html/libfunctions/_filelisttoarray.htm)($sFullPath, '*', 2)
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) Not (http://www.autoitscript.com/autoit3/docs/keywords.htm#Not) @error (http://www.autoitscript.com/autoit3/docs/macros.htm#@error) Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$aReturn = $aTemp
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
Return (http://www.autoitscript.com/autoit3/docs/keywords.htm#Return) SetError (http://www.autoitscript.com/autoit3/docs/functions/SetError.htm)(@error (http://www.autoitscript.com/autoit3/docs/macros.htm#@error), 0, $aReturn)
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc) ;==>_DirListToArray

[kaster]

если папок в папке Data нет »
за него отвечает @error = 4. зачем остальные коды ошибок?

[madmasles]

зачем остальные коды ошибок? »Чтобы узнать причину того, почему вернулся массив с 0 в $aAr[0]. Я не знаю, что нужно автору темы вернуть, если будут другие ошибки.

[AzazeLHAck]

нельзя не указывать начальный и конечные индексы. »
:) Я знаю, что нельзя, я ведь написал просто, какие команды там стоят, данные нет смысла писать, они как всегда..

Я не знаю, что нужно автору темы вернуть, если будут другие ошибки. »
Да ничего не нужно, там другие скрипты блокируют другие варианты :)
Спасибо всем, я сделал, как предложил madmasles

#include <File.au3>

Func _DirListToArray($sFullPath)
Local $aTemp, $aReturn[1] = [0]
$aTemp = _FileListToArray($sFullPath, '*', 2)
If Not @error Then
$aReturn = $aTemp
EndIf
Return $aReturn
EndFunc ;==>_DirListToArray