Ограничение по работе с ini файлами

;Заменить :
	If @error Then Return SetError(1, 0, '')
	;на : 
	If @error Then Return SetError(1, 0, $sDefault)

#include <IniVirtual.au3>
#include <Array.au3>

$s_Ini=@ScriptDir & "\Small.Ini"

$s_INI_Text="[AAA]" & @CRLF & _ 
			"Ivan=33" & @CRLF & _
			"Ann=25" & @CRLF & _
			"[BBB]" & @CRLF & _
			"[CC]"

$h_File=FileOpen($s_Ini, 2)		
FileWrite($h_File, $s_INI_Text)
FileClose($h_File)
$s_INI_Text=FileRead($s_Ini)

$a_Ini_Virtual2D=_IniVirtual_Initial($s_INI_Text)

MsgBox(4096, "$s_INI_Text", $s_INI_Text)
_ArrayDisplay($a_Ini_Virtual2D, "$a_Ini_Virtual2D")
; тогда, как :     
$aSect=IniReadSectionNames($s_Ini)
_ArrayDisplay($aSect, "$aSect")

IniReadSection($s_Ini, "BBB")
MsgBox(4096, "@error", @error);  @error =1
_IniVirtual_ReadSection($a_Ini_Virtual2D, "BBB")
MsgBox(4096, "@error", @error) ; @error=0

$sRead = _IniVirtual_Read($a_Ini_Virtual2D, "AAA", '=Ann', "Def");вернет значение
$sRead = _IniVirtualSPE_Read($s_ini_Text, "AAA", '=Ann', "Def") ;вернет значение

$sRead = IniRead($s_Ini, "AAA",  '=Ann', "Def")                ;вернет : "Def"

#include <IniVirtualSPE.au3>
#include <IniVirtual.au3>

$s_INI_Text="[AAA]" & @CRLF & _ 
            "Ivan=33" & @CRLF & _
            "=Ann==Ann" & @CRLF & _
            "[BBB]" & @CRLF & _
            "[CC]"
$a_ini_Main2D = _IniVirtual_Initial($s_ini_Text)

$sRes1 = _IniVirtualSPE_Read($s_ini_Text, 'AAA', '=Ann', "Значение по умолчанию, если не найдено")
$sRes2 = _IniVirtual_Read($a_ini_Main2D, 'AAA', '=Ann', "Значение по умолчанию, если не найдено")
MsgBox(0, 'Сообщение', '|' & $sRes1 & '|' &@CRLF& '|' & $sRes2 & '|')

#include "IniVirtual.au3"
#include "IniVirtualSPE.au3"
$s_Ini=@ScriptDir & "\Small.Ini"


$s_INI_Text="[AAA]" & @CRLF & _ 
            "Ivan=33" & @CRLF & _
            "=Ann==Ann" & @CRLF & _
            "[BBB]" & @CRLF & _
            "[CC]"


$h_File=FileOpen(	$s_Ini, 2)		
FileWrite($h_File, $s_INI_Text)
FileClose($h_File)


$s_INI_Text=FileRead($s_Ini)
$a_ini_Main2D=_IniVirtual_Initial($s_INI_Text)

$sRes1 = _IniVirtualSPE_Read($s_ini_Text, "AAA", '=Ann',"Значение по умолчанию, если не найдено"); да
$sRes2 = _IniVirtual_Read($a_ini_Main2D, 'AAA', '=Ann', "Значение по умолчанию, если не найдено") ; да
$sRes3=IniRead($s_Ini, "AAA",  '=Ann', "Значение по умолчанию, если не найдено")                ; нет
MsgBox(0, 'Сообщение', '|' & $sRes1 & '|' &@CRLF& '|' & $sRes2 & '|'   &@CRLF& '|' & $sRes3 & '|')

IniRenameSection

_ReplaceStringInFile

$iRet = _IniRenameSection('Test.ini', 'Old Sect', 'New Sect')

ConsoleWrite('$iRet: ' & $iRet & @CRLF & '@error: ' & @error)

Func _IniRenameSection($sIni_File, $sSection, $sNew_Section, $iFlag = 0)
	If $iFlag = 1 Then
		IniDelete($sIni_File, $sNew_Section)
	EndIf
	
	Local $sIni_Content = FileRead($sIni_File)
	
	If @error Then
		Return SetError(1, 0, 0)
	EndIf
	
	$sNew_Section = StringRegExpReplace($sNew_Section, '([][\^\\.+*?$(){}=!|:])', '\\\1')
	
	If $iFlag <> 1 And StringRegExp($sIni_Content, '(\r?\n|)\[' & $sNew_Section & '\](\r?\n|)') Then
		Return SetError(2, 0, 0)
	EndIf
	
	$sSection = StringRegExpReplace($sSection, '([][\^\\.+*?$(){}=!|:])', '\\\1')
	$sIni_Content = StringRegExpReplace($sIni_Content, '\[' & $sSection & '\]', '[' & $sNew_Section & ']')
	
	Local $hIni_Open = FileOpen($sIni_File, 2)
	FileWrite($hIni_Open, $sIni_Content)
	Return FileClose($hIni_Open)
EndFunc

$sPath_ini = @ScriptDir & '\Example.ini'
IniWrite($sPath_ini, 'Section', 'Key', '"           Значение             "')
$sRead = IniRead($sPath_ini, 'Section', 'Key', '')
MsgBox(4096, '', 'Значение параметра "Key" в секции "Section": [' & $sRead & ']')
FileDelete($sPath_ini)