[Массивы] _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

Dim $Array[3] = [ _ 
                'Всем привет!', _ 
                'Функция List!', _ 
                'Присваивает переменным значения из массива.' _ 
                ]
                
_List($Array, "Greeting, Title, Description")

ConsoleWrite("Error: " & @error & @CRLF & "Extended: " & @extended &  @CRLF)
ConsoleWrite("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & @CRLF)
ConsoleWrite( _ 
            "Variable: $Greeting -> " & Eval('Greeting') & @CRLF & _ 
            "Variable: $Title -> " & Eval('Title') & @CRLF & _ 
            "Variable: $Description -> " & Eval('Description') & @CRLF _ 
            )
ConsoleWrite("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & @CRLF)

...

Global $test
MsgBox(0, "Declared: " & IsDeclared ("test"), "$test = " & $test)
Assign("test","Test!", 2)
MsgBox(0, "Declared: " & IsDeclared ("test"), "$test = " & $test)

;~ Global $test
;~ MsgBox(0, "Declared: " & IsDeclared ("test"), "$test = " & $test)
Assign("test","Test!", 2)
MsgBox(0, "Declared: " & IsDeclared ("test"), "$test = " & $test)

Assign("test","Test!", 2)
MsgBox(0, "Declared: " & IsDeclared ("test"), "$test = " & Eval('test'))

Assign("test","Test!", 2)