Вернуть значение из функции массивом в массиве =) (это вообще законно ? )

[FlatX007]

На работе делать нечего было, решил вспомнить массивы ... вообщем навоял беспредел =) похоже на задание в учебнике программирования ...
Код работает, компилятор не ругается.

#include <File.au3>

Dim $array[1], $array2[1]
$PATCH = "c:\Program Files"

Global $a[2] = [_one($PATCH)[0], _one($PATCH)[1]] ; строка "вне закона" 
_ArrayDisplay($a[0])
_ArrayDisplay($a[1])

Func _one($sPatch)

    Local $aFl = _FileListToArray($sPatch, "*", 2)
    ReDim $array[$aFl[0]]
    ReDim $array2[$aFl[0]]

    For $i = 1 To $aFl[0] - 1
        $array[$i] = $aFl[$i]
        $array2[$aFl[0] - $i] = $aFl[$i]
    Next

    Local $arr[2] = [$array, $array2]
    Return $arr

EndFunc   ;==>_one

 

[joiner]

в чем вопрос?

 

[FlatX007]

почему работает запись типа

_one($PATCH)[0]

?

 

[joiner]

так задумано

MsgBox(0, '', (DirGetSize(@ScriptDir & '\Test', 1))[1])

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

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

что то похожее есть и в работе со структурами

Local $tData = DllStructCreate('wchar test[1024]')
$tData.test = 'привет';добавляем данные в структуру
ConsoleWrite($tData.test & @LF); получаем данные из структуры

 

[FlatX007]

кстати случайно нашел уже давно, просто сейчас вспомнил...
в справке вроде нигде про это не написано ?

 

[joiner]

считай это недокументированными возможностями )))

 

[FlatX007]

так задумано

MsgBox(0, '', (DirGetSize(@ScriptDir & '\Test', 1))[1])

только это опасный вариант. нужно быть уверенным, что индекс массива существует. иначе крах кода.

Если полазить по всяким Стандартным UDF из недр Autoit можно найти полно недокументированных читов приемов прямиком растущие из "C++" надо бы собраться задукоментировать, думаю много чего интересного найдется

 

[InnI]

считай это недокументированными возможностями

Это "задокументировано" в истории изменений:
3.3.10.0 (23rd December, 2013) (Release)
AutoIt:
...
Added: Array access on expression: StringSplit("a,b", ",")[1].
...

Оригинал:

History

Перевод:

AutoIt 3.3.10.0 - Финал

Список изменений: 23 Декабря 2013г. AutoIt: Убрано: PluginOpen() и PlugInClose() за не использованием. Изменено: Убрана поддержка Windows 2000. Минимальная поддерживаемая версия теперь Windows XP RTM / Windows Server 2003. Изменено: upx.exe обновлён 3.07 -> 3.91. Изменено: Движок PCRE (рег...

autoit-script.ru

Сообщение автоматически объединено: 10 Дек 2019

Кстати, в справке к функции StringSplit() третий пример содержит подобную конструкцию и соответствующий комментарий

MsgBox($MB_SYSTEMMODAL, "", StringSplit($sText, '\n', $STR_ENTIRESPLIT)[2]) ; Directly access the array index by using array access on expression.