[Данные, строки] Не удается получить содержимое файла (из за символа Chr(0) ).

$File = FileOpen("test.txt", 16)
dim $msg, $t
While 1
	$t = FileRead($file, 1)
	If @error Then ExitLoop
	If $t <> 0x00 Then $msg &= BinaryToString($t)
WEnd

MsgBox(4096, "", $msg)

$sText = FileRead("test.txt")
$sBin = StringToBinary($sText)
$sText2 = BinaryToString($sBin)
$sText3=""
$i=1
For $i =1 to BinaryLen($sBin)
	$buf = BinaryMid($sBin,$i,1)
	If $buf = 0x00 Then
		$sText3 = $sText3&" "
	Else
	$buf2 = BinaryToString($buf)
	$sText3 = $sText3&$buf2
	EndIf
Next
MsgBox(0,"",$sText3)

$h = FileOpen(@ScriptDir & '\test.txt', 16)
$a = FileRead($h)
If Mod(StringInStr($a, '00'), 2) = 1 Then
	$a = StringReplace($a, '00', '')
EndIf
MsgBox(0, '', BinaryToString($a))

$h  = FileOpen(@ScriptDir & '\test3.txt', 16)
$a = FileRead($h)
If StringInStr($a,'00') = True Then $a = StringReplace($a, '00', '')
MsgBox(0, '', BinaryToString($a))

$a = '0x20CDE0F7E00BEE20F2E5EAF1F2E02028002920EAEEEDE5F62002E5EAF1F2E02E0D0A'
If StringInStr($a, '00') Then
	$b = StringReplace($a, '00', '')
EndIf
ConsoleWrite($a & @CRLF & $b & @CRLF)

If Mod(StringInStr($a, '00'), 2) = 1 Then Msgbox(0,"","есть")

If StringInStr($a, '00')= True Then Msgbox(0,"","есть")

$hFileOld = FileOpen("d.zip", 16)
$sText = FileRead($hFileOld)
FileClose($hFileOld)
$hFileNew = FileOpen("d_1.zip", 18)
FileWrite($hFileNew, $sText)
FileClose($hFileNew)