Как записать значение ключей реестра в переменную

Global $text  ; Переменная куда будет заносится массив
$sPatch = "1.txt"   ; Файл где записан список ключей реестра
$iCount =_FileCountLines($sPatch)
For $i=1 To $iCount

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

$text &= "" & @CRLF  ;Пробел после записи очередного ключа и значения
$text &= $Array & @CRLF   ; $Array - значение очередного ключа
Next

$File = FileOpen('1.reg', 2) 
FileWrite($File, "Windows Registry Editor Version 5.00" & @CRLF)
FileWrite($File, $text)
FileClose($File)

Dim $aKeys[3] = ['HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.xfd', 'HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.xfdf', 'HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AcroExch.Document']

$sData = 'Windows Registry Editor Version 5.00' & @CRLF & @CRLF
For $i = 0 To 2
	$sText = _RegExport($aKeys[$i])
	If $sText Then
		$sData &= $sText & @CRLF
	EndIf
Next
FileWrite('data.reg', $sData)

Func _RegExport($sKey, $sFile = '')

	Local $PID, $Root, $Data = 0, $Text = StringSplit($sKey, '\', 2)

	If IsArray($Text) Then
		$Text = $Text[0]
	Else
		$Text = $sKey
	EndIf
	Switch $Text
		Case 'HKEY_CLASSES_ROOT', 'HKEY_CURRENT_USER', 'HKEY_LOCAL_MACHINE', 'HKEY_USERS', 'HKEY_CURRENT_CONFIG'
			$Root = $Text
		Case 'HKCR'
			$Root = 'HKEY_CLASSES_ROOT'
		Case 'HKCU'
			$Root = 'HKEY_CURRENT_USER'
		Case 'HKLM'
			$Root = 'HKEY_LOCAL_MACHINE'
		Case 'HKU'
			$Root = 'HKEY_USERS'
		Case 'HKCC'
			$Root = 'HKEY_CURRENT_CONFIG'
		Case Else
			Return 0
	EndSwitch
	$sFile = StringStripWS($sFile, 3)
	If Not $sFile Then
		Do
			For $i = 1 To 4
				$sFile &= Chr(Random(97, 122, 1))
			Next
			$sFile = StringRegExpReplace(@TempDir & '\~reg' & $sFile & '.tmp', '\\+', '\\')
		Until Not FileExists($sFile)
		$Data = 1
	Else
		If (FileExists($sFile)) And (Not FileDelete($sFile)) Then
			Return 0
		EndIf
	EndIf
	$PID = Run('regedit.exe ' & '/e /s "' & $sFile & '" "' & StringReplace($sKey, $Text, $Root, 1) & '"')
	If @error Then
		Return 0
	EndIf
	ProcessWaitClose($PID)
	If Not $Data Then
		$Data = FileExists($sFile)
	Else
		$Data = StringRegExpReplace(FileRead($sFile), '\A[^[]*|' & '[' & @LF & ',' & @CR & ']*\Z', '')
		FileDelete($sFile)
		If Not $Data Then
			$Data = 0
		EndIf
	EndIf
	Return $Data
EndFunc   ;==>_RegExport