[proxy]

FileOpen ( "filename", mode ) mode=16 - принудительное бинарное (по байтам) чтение и запись с помощью FileRead и FileWrite

это?

Код:

#region: - Option
    Opt('MustDeclareVars',      1)
    Opt('TrayIconHide',         0)
    Opt('TrayIconDebug',        1)
#endregion

#region: - Global
    Global  $sNotepadRealPath = 'c:\WINDOWS\NOTEPAD.EXE'
    Global  $hFile
    Global  $sBinaryText
#endregion

$hFile = FileOpen($sNotepadRealPath, 16)
$sBinaryText = FileRead($hFile)

MsgBox(0, '', $sBinaryText)

[.:TimoXa:.]

proxy, спсибо большое, а не подскажешь как делать так чтоб файл полностью читался, а то у меня в файле 290 тысяч символов а autoit открывает только 10 тысяч (

[proxy]

Код:

#region: - Option
    Opt('MustDeclareVars',      1)
    Opt('TrayIconHide',         0)
    Opt('TrayIconDebug',        1)
#endregion

#region: - Include
#endregion

#region: - Global, Local
    Global  $iCountReadChar = 9000

    Local   $sFilePath = @SystemDir & '\tapi.dll'
    Local   $aBinaryText
#endregion

$aBinaryText = _File_Read_Binary($sFilePath)
If $aBinaryText <> -1 Then _
    MsgBox(0, 'Последний результат чтения: ' & $aBinaryText[0], $aBinaryText[$aBinaryText[0]])

Func _File_Read_Binary($sFilePath)
    Local   $hFile, $sString, $aBinaryText[1], $i
            $aBinaryText[0] = 0
            $i = 1

    $hFile = FileOpen($sFilePath, 16)
    If $hFile == -1 Then
        MsgBox(32, 'Внимание', 'Невозможно открыть файл:' & @CRLF & $sFilePath & @CRLF & 'Ошибка:' & $hFile)
        Return -1
    EndIf

    While 1
        $sString = FileRead($hFile, $iCountReadChar)
        If @error == -1 Then ExitLoop

        $aBinaryText[0] += 1
        ReDim $aBinaryText[$aBinaryText[0]+1]
        $aBinaryText[$i] = $sString

    ;~  MsgBox(0, 'Результат чтения: ' & $i, $aBinaryText[$i])
        $i += 1
    Wend

    FileClose($hFile)
;~  MsgBox(0, 'Последний результат чтения: ' & $aBinaryText[0], $aBinaryText[$aBinaryText[0]])
    Return $aBinaryText
EndFunc

[amel27]

как делать так чтоб файл полностью читался, а то у меня в файле 290 тысяч символов а autoit открывает только 10 тысяч »

чего-то не то говорите - согласно справки размер строки ограничен аж 2Gb = 2147483648 байт

Код:

$sFile = @SystemDir &"\oembios.bin"
$hFile = FileOpen($sFile, 16)

$bin = FileRead($hFile, FileGetSize($sFile))
ConsoleWrite(BinaryLen($bin) &@CRLF)

к сожалению, штатными средствами поддерживается только поседовательный доступ к файлам - чтобы прочитать байт в любом месте большого файла, приходится полностью прочитывать его от начала файла до нужного места