[RegExp] ошибка в функции StringRegExp

Dim $ARRAY

Func _open()
	$var = FileOpenDialog($message, @ScriptDir & "\", "config (*.txt)", 1 + 4 )
If @error Then
    $ADDR = 0
Else
$ADDR = $var
_FileReadToArray($ADDR, $ARRAY)
For $i = 1 To UBound($ARRAY) - 1
    $ARRAY[$i] = StringRegExp($ARRAY[3], "^.*\:(.*)\;.*$", 3)  ;фамилия
    $ARRAY[$i] = StringRegExp($ARRAY[3],"^.*\:.*\;(.*)$", 3) ;имя
    Next
GUICtrlSetData($Input1, $ARRAY[3])
GUICtrlSetData($Input2, $ARRAY[3])
EndIf
EndFunc

$sText = 'д;анныеданныед;анныеданныеданные:фамилия;имя'

$sSurname = StringRegExpReplace($sText, '(?s).*?:(.*?);.*', '\1')
$sName = StringRegExpReplace($sText, '(?s).*?:.*?;(.*?)$', '\1')
MsgBox(0, '', $sSurname & ' - ' & $sName)

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

Dim $aText
Dim $aResult[1][2]
$j = 0
_FileReadToArray(@ScriptDir & '\test.txt', $aText)
For $i = 1 To $aText[0]
		$aSurname = StringRegExp($aText[$i], '(?s).*?:(.*?);.*', 3)
		$aName = StringRegExp($aText[$i], '(?s).*?:.*?;(.*?)$', 3)
		If IsArray($aSurname) And IsArray($aName) Then
		$j += 1
		ReDim $aResult[$j + 1][2]
		$aResult[$j][0] = $aSurname[0]
		$aResult[$j][1] = $aName[0]
	EndIf
Next
$aResult[0][0] = $j
_ArrayDisplay($aResult)

Dim $ARRAY

Func _open()
	$var = FileOpenDialog($message, @ScriptDir & "\", "config (*.txt)", 1 + 4)
	If @error Then
		$ADDR = 0
	Else
		$ADDR = $var
		_FileReadToArray($ADDR, $ARRAY)

		$tmp = StringRegExp($ARRAY[3], ":(.*);(.*)$", 3)
		If Not @error Then
			GUICtrlSetData($Input1, $tmp[0])
			GUICtrlSetData($Input2, $tmp[1])
		EndIf

	EndIf
EndFunc

$tmp = StringRegExp($ARRAY[3], ":(.*);(.*)$", 3)
        If Not @error Then
            GUICtrlSetData($Input1, $tmp[0])
            GUICtrlSetData($Input2, $tmp[1])
        EndIf

#include <File.au3>

Dim $ARRAY, $message

_open()

Func _open()
	$var = FileOpenDialog($message, @ScriptDir, "config (*.txt)", 1 + 4)
	
	If @error Then
		$ADDR = 0
	Else
		$ADDR = $var
		_FileReadToArray($ADDR, $ARRAY)
		If @error Then Return
		
		$aData = StringRegExp($ARRAY[3], "^.*:(.*);(.*)$", 3) ;[0] = фамилия, [1] = имя
		
		$sFamily = $aData[0]
		$sName = $aData[1]
		
		ConsoleWrite($sFamily & @LF)
		ConsoleWrite($sName & @LF)
		
		;GUICtrlSetData($Input1, $sFamily)
		;GUICtrlSetData($Input2, $sName)
	EndIf
EndFunc