- Сообщения
- 3,999
- Репутация
- 967
_List(arr Value, str Variable, [int Declared])
Описание: Дана функция _List(), является подобием функции list() в PHP. Эта функция присваивает списку переменных, значения за одну операцию.
Замечание: Функция _List() работает только с одномерными массивами, индексы которых начинаются с ноля.
Функция и пример:
Описание: Дана функция _List(), является подобием функции list() в PHP. Эта функция присваивает списку переменных, значения за одну операцию.
Замечание: Функция _List() работает только с одномерными массивами, индексы которых начинаются с ноля.
Функция и пример:
Код:
Dim $Array[3] = [ _
'Всем привет!', _
'Функция List!', _
'Присваивает переменным значения из массива.' _
]
_List($Array, "Greeting, Title, Discription")
ConsoleWrite("Error: " & @error & @CRLF & "Extended: " & @extended & @CRLF)
ConsoleWrite("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & @CRLF)
ConsoleWrite( _
"Variable: $Greeting -> " & $Greeting & @CRLF & _
"Variable: $Title -> " & $Title & @CRLF & _
"Variable: $Discription -> " & $Discription & @CRLF _
)
ConsoleWrite("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & @CRLF)
#Region Function
#cs~~~/ Begin _List /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Name: _List
Sintaxis: _List($aValue, $sVariable, [$iDeclared])
Description: Присваивает переменным из списка значения подобно массиву
Parameters: $aValue - Одномерный массив значений, которые нужно присвоить переменным.
$sVariable - Строка имён переменных, которым нужно присвоить значения (через запятую).
$iDeclared - Проверка на ранее объявленные переменные (опционально).
0 - off (Default)
1 - on
Return values: Success - Возвращает глобально объявленные переменные с присвоенными им значениями,
и устанавливает @error и @extended
@error - 0 нет ошибок
@extended - 0
Failure - Нечего не возвращает и устанавливает @error и @extended
@error - 1 параметр $aValue не является массивом
@extended - 0
@error - 2 в параметре $sVariable указаны имена ранние объявленных переменных
(смотрите $iDeclared)
@extended - n количество ранее объявленных переменных в параметре $sVariable
@error - 3 параметр $aValue не является одномерным массивом
@extended - n указатель размерности массива
@error - 4 количество заявленных переменных $sVariable больше или меньше количества
значений $aValue или наоборот
@extended - 0
Author: Garrett
#ce~~~/ End _List /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Func _List($aValue, $sVariable, $iDeclared = 0)
Local $aVariable, $iCount
$aVariable = StringSplit(StringStripWS($sVariable, 8), ",")
If $iDeclared Then
For $i = 1 To $aVariable[0]
Switch IsDeclared($aVariable[$i])
Case 1
$iCount += 1
Case 0
Assign($aVariable[$i], "", 2)
EndSwitch
Next
If $iCount <> 0 Then _
Return SetError(2, $iCount)
EndIf
Select
Case Not IsArray($aValue)
Return SetError(1, 0)
Case UBound($aValue, 0) <> 1
Return SetError(3, UBound($aValue, 0))
Case UBound($aValue) <> $aVariable[0]
Return SetError(4, 0)
Case Else
For $i = 0 To UBound($aValue)-1
Assign($aVariable[$i+1], $aValue[$i], 2)
Next
EndSelect
Return SetError(0, 0)
EndFunc ; <!-- _List //-->
#EndRegion Function
