Не хочет обрабатыватся строчка

#include <File.au3>
Global $Array
Global $Mas
_FileReadToArray("Test.txt",$Mas)
For $i = 1 To $Mas[0]
$result = StringInStr($Mas[$i],"[")
if $result = 1 Then
$Array &= $Mas[$i]    
EndIf
if $result NOT = 1 and  $Mas[$i] = True Then
$Array &= "|||" & $Mas[$i] 
EndIf
if $Mas[$i] = "" Then
$Array &= @CR    
EndIf
Next
$Txt = FileOpen("Ключ.txt" ,2)
FileWrite($Txt, $Array)
FileClose($Txt)

#include <File.au3>
Global $Array
Global $Mas
_FileReadToArray("Test.txt", $Mas)
For $i = 1 To $Mas[0]
	Select
		Case StringInStr($Mas[$i], "[")
			$Array &= $Mas[$i]
		Case $Mas[$i] = ""
			$Array &= @CR
		Case Else
			$Array &= "|||" & $Mas[$i]
	EndSelect
Next
$Txt = FileOpen("Ключ.txt", 2)
FileWrite($Txt, $Array)
FileClose($Txt)

$str = FileRead("Test.txt")
$aSection = StringRegExp($str, '(?s)(?:^|[\r\n])(\[.+?(?=$|\n\[))', 3)
$sOut = ''
If IsArray($aSection) Then
	For $i=0 To UBound($aSection)-1
		$aSection[$i]=StringRegExpReplace($aSection[$i], '(?s)(.+?)[\r\n]*$', '\1')
		$aSection[$i]=StringReplace($aSection[$i], @CRLF, "|||")
		If $aSection[$i] Then
			$sOut &= $aSection[$i] & @CRLF
		EndIf
	Next
	If $sOut Then
		$file = FileOpen("Ключ.txt", 2)
		FileWrite($file, $sOut)
		FileClose($file)
	EndIf
EndIf

StringInStr($Mas[$i],"[")

$sStr = FileRead("Test.txt")
$sOut=StringRegExpReplace($sStr,"(.+?)\r\n","\1|||")& @CRLF
If @extended <> 0 Then
	$hFile = FileOpen("Ключ.txt", 2)
	FileWrite($hFile, $sOut)
	FileClose($hFile)
EndIf

#include <File.au3>

$sFile1 = "1.txt"
$sFile2 = "1.reg"

Reg_out($sFile1,$sFile2)

Func Reg_out($sFile_in,$sFile_out)
Local $Mas
Local $Array
_FileReadToArray($sFile_in, $Mas)
If @error Then Return SetError(4, 4, "")
;$Array &= "Windows Registry Editor Version 5.00" & @CRLF 
$Array &= "REGEDIT4" & @CRLF
For $i = 1 To $Mas[0]
;if StringInStr($Mas[$i],"[") = 1 Then
;$Array &= @CR
;EndIf
$Split = StringSplit($Mas[$i], "|||",1)
For $p = 1 To $Split[0]
$Array &= $Split[$p] & @CR
Next
Next
$Txt = FileOpen($sFile_out,2)
FileWrite($Txt, $Array)
FileClose($Txt)
EndFunc

$sOut=StringReplace($sStr,@CRLF,"|||")& @CRLF

#include<Array.au3>
#include<File.au3>
;Получение исходного текста Так :
	$sText = FileRead("Test.txt")
;Или (если необходим массив) так :
	Dim $aStr
	_FileReadToArray("Test.txt",$aStr)
	_ArrayDisplay($aStr,'$aStr')
	$sText=_ArrayToString($aStr, @CRLF, 1)
	MsgBox(0,'$sText',$sText)
;Получение строки ключей с их значениями :
	$sOut=StringRegExpReplace($sText,"\r\n[^\r\n\[]","|||")
	MsgBox(0,'$sOut',$sOut)
;-Повторение,сравнивание и т.п.
	;................................
;Получение массива - результата :
	$aRez=StringRegExp($sOut,"(.*?)(?:\|\|\||\r\n|[^|]$)",3)
	_ArrayDisplay($aRez)

_RegString('HKEY_USERS', 'HKU.txt')

Func _RegString($sKey,$sFile)
Local $Path,$PID,$sPath = 'regedit.exe'
Local $tPath = DllStructCreate('wchar[1024]')
Local $Ret = DllCall('shlwapi.dll', 'int', 'PathSearchAndQualifyW', 'wstr', StringStripWS($sPath, 7), 'ptr', DllStructGetPtr($tPath), 'int', 1024)
If @error Then
Return SetError(1, 0,$sPath)
EndIf
$Path= DllStructGetData($tPath, 1)
$PID = Run($Path & ' /e /s "' & $sFile & '" "' & $sKey & '"')
If @error Then
Return 0
EndIf
ProcessWaitClose($PID)
$sStr = FileRead($sFile)
$sOut=StringRegExpReplace($sStr,"(.+?)\r\n","\1|||")
If @extended <> 0 Then
$hFile = FileOpen($sFile, 2)
FileWrite($hFile, $sOut)
FileClose($hFile)
EndIf
EndFunc

#include<File.au3>

$sFile1 = "HKU.txt"
$sFile2 = "HKU.reg"

_RegOut($sFile1,$sFile2)

Func _RegOut($sFile_in,$sFile_out)
Local $Mas
Local $Array
_FileReadToArray($sFile_in, $Mas)
If @error Then Return SetError(4, 4, "")
$Array &= "REGEDIT4" & @CR & @CR
For $i = 1 To $Mas[0]
$Split = StringSplit($Mas[$i], "|||",1)
For $p = 1 To $Split[0]
$Array &= $Split[$p] & @CR
Next
Next
$Txt = FileOpen($sFile_out,2)
FileWrite($Txt, $Array)
FileClose($Txt)
EndFunc

$sText = FileRead($sFile1)