[SOLVED] How to save any file in a reverse byte order

[mLipok]

I want to read file into memory

revers byte order

and write into a diffrent file

I try some concept with for next but when I use 200 kbytes files it was too slow

Do anybody have any concept how to do that in fast way ?

Edited December 2, 2012 by mlipok

[AZJIO]

How do I know that this is a different concept, if I don't see yours?

$sText = FileRead(@ScriptDir&'file.txt')
$timer = TimerInit()
$aText = StringSplit($sText, '')
$sText = ''
For $i = $aText[0] To 1 Step -1
    $sText &= $aText[$i]
Next
MsgBox(0, 'time : ' & Round(TimerDiff($timer), 2) & ' msec', $sText)

[UEZ]

Is the file a text or binary file?

If text you can use _StringReverse() function. If is binary it will a little more complicated.

Br,

UEZ

[mLipok]

thanks for answer

I was little busy

so I try to continue now

Yes it's binary file for example try any PDF or JPG

[AZJIO]

There is a problem, but I tried to. Some of the characters still disappear.

$hFile = FileOpen(@ScriptDir & 'file.gif', 16)
$sText = FileRead($hFile)
FileClose($hFile)

$sText = BinaryToString($sText)

$a = StringRegExp($sText, '(?s)(.)', 3)
$sText = ''
MsgBox(0, 'Size', UBound($a))
; Exit
For $i = UBound($a) - 1 To 0 Step -1
    $sText &= $a[$i]
Next
MsgBox(0, 'Size', StringLen($sText)) ; I do not understand why size is smaller
Exit

$sText = Binary($sText)

$hFile = FileOpen(@ScriptDir & 'file2.gif', 16 + 2)
FileWrite($hFile, $sText)
FileClose($hFile)

I give up

#include <Array.au3>

$hFile = FileOpen(@ScriptDir & 'file.gif', 16)
$sText = FileRead($hFile)
FileClose($hFile)

$sText = String($sText)
; MsgBox(0, 'Size', $sText)
; Exit
; MsgBox(0, 'Size', StringLen($sText))
$a = StringRegExp($sText, '(?s)(..)', 3)
; $sText = $a[0]
$sText = ''
; _ArrayDisplay($a, 'Array')
; MsgBox(0, 'Size', UBound($a))
; Exit
For $i = UBound($a) - 1 To 1 Step -1
    ; $sText &= Chr($a[$i])
    $sText &= $a[$i]
Next
; MsgBox(0, 'Size', StringLen($sText)) ; I do not understand why size is smaller
; Exit

$sText = StringToBinary($sText)
If @error Then MsgBox(0, 'StringToBinary', 'error')
$sText = Binary($sText)
If @error Then MsgBox(0, 'Binary', 'error')

$hFile = FileOpen(@ScriptDir & 'file2.gif', 16 + 2)
FileWrite($hFile, $sText)
FileClose($hFile)

Edited October 4, 2012 by AZJIO

[UEZ]

Try this:

#include <WinAPI.au3>

$t = TimerInit()
_WinAPI_FileReverse(@ScriptDir & "Test.bmp", @ScriptDir & "Test_reversed.bmp")
ConsoleWrite(TimerDiff($t) & @LF)
_WinAPI_FileReverse(@ScriptDir & "Test_reversed.bmp", @ScriptDir & "Test_reborn.bmp")
ShellExecute(@ScriptDir & "Test_reborn.bmp")

Func _WinAPI_FileReverse($sFile, $sNewFile) ;coded by UEZ build 2012-10-04
    If Not FileExists($sFile) Then Return SetError(1, 0, 0)
    Local $iFileSize = FileGetSize($sFile)
    If $iFileSize > 4294967296 Then Return SetError(2, 0, 0) ; 4294967296 = 2^32
    If $sNewFile = "" Then Return SetError(3, 0, 0)
    Local $hFile= _WinAPI_CreateFile($sFile, 2, 2, 2), $iBytes, $p, $bNewData
    If Not $hFile Then Return SetError(4, 0, 0)
    Local $tBuffer = DllStructCreate("byte[" & $iFileSize & "]")
    Local $tBuffer_new = DllStructCreate("byte[" & $iFileSize & "]")
    _WinAPI_SetFilePointer($hFile, 0, $FILE_BEGIN)
    _WinAPI_ReadFile($hFile, DllStructGetPtr($tBuffer),  $iFileSize, $iBytes)
    _WinAPI_CloseHandle($hFile)
    Local $bData = DllStructGetData($tBuffer, 1)
    For $p = $iFileSize To 1 Step - 1
        $bNewData &= Hex(BinaryMid($bData, $p, 1), 2)
    Next
    DllStructSetData($tBuffer_new, 1, Binary("0x" & $bNewData))
    $hFile = _WinAPI_CreateFile($sNewFile, 1, 4, 4)
    If Not $hFile Then Return SetError(5, 0, 0)
    _WinAPI_WriteFile($hFile, DllStructGetPtr($tBuffer_new), $iFileSize, $iBytes)
    _WinAPI_CloseHandle($hFile)
    $tBuffer = 0
    $tBuffer_new = 0
    Return 1
EndFunc

Br,

UEZ

Edited October 4, 2012 by UEZ

[trancexx]

Doesn't the OP want to reverse the byte order? Not read file backward?

[UEZ]

Yes you are right. I read reverse only and did the file backward stuff.

However, here the next try (slightly modified version from the code above):

expandcollapse popup

#include <WinAPI.au3>

$t = TimerInit()
_WinAPI_ReverseByteOrder(@ScriptDir & "Test.bmp", @ScriptDir & "Test_reversed.bmp")
ConsoleWrite(TimerDiff($t) & @LF)
_WinAPI_ReverseByteOrder(@ScriptDir & "Test_reversed.bmp", @ScriptDir & "Test_reborn.bmp")
ShellExecute(@ScriptDir & "Test_reborn.bmp")

Func _WinAPI_ReverseByteOrder($sFile, $sNewFile, $iW = 2) ;coded by UEZ build 2012-10-04
    If Not FileExists($sFile) Then Return SetError(1, 0, 0)
    Local $iFileSize = FileGetSize($sFile)
    If $iFileSize > 4294967296 Then Return SetError(2, 0, 0) ; 4294967296 = 2^32
    If $sNewFile = "" Then Return SetError(3, 0, 0)
    Local $hFile= _WinAPI_CreateFile($sFile, 2, 2, 2), $iBytes, $p, $bNewData
    If Not $hFile Then Return SetError(4, 0, 0)
    Local $tBuffer = DllStructCreate("byte[" & $iFileSize & "]")
    Local $tBuffer_new = DllStructCreate("byte[" & $iFileSize & "]")
    _WinAPI_SetFilePointer($hFile, 0, $FILE_BEGIN)
    _WinAPI_ReadFile($hFile, DllStructGetPtr($tBuffer),  $iFileSize, $iBytes)
    _WinAPI_CloseHandle($hFile)
    Local $bData = DllStructGetData($tBuffer, 1)
    For $p = 1 To $iFileSize Step $iW
        $bNewData &= ReverseByteOrder(Hex(BinaryMid($bData, $p, $iW), 2))
    Next
    DllStructSetData($tBuffer_new, 1, Binary("0x" & $bNewData))
    $hFile = _WinAPI_CreateFile($sNewFile, 1, 4, 4)
    If Not $hFile Then Return SetError(5, 0, 0)
    _WinAPI_WriteFile($hFile, DllStructGetPtr($tBuffer_new), $iFileSize, $iBytes)
    _WinAPI_CloseHandle($hFile)
    $tBuffer = 0
    $tBuffer_new = 0
    Return 1
EndFunc

Func ReverseByteOrder($bString)
    Local $aBytes = StringRegExp($bString, ".{2}", 3)
    Local $i, $sRevers
    For $i = UBound($aBytes) -1 To 0 Step - 1
        $sRevers &= $aBytes[$i]
    Next
    Return $sRevers
EndFunc

Is this what you want?

Br,

UEZ

[MilesAhead]

I want to read file into memory

revers byte order

and write into a diffrent file

I try some concept with for next but when I use 200 kbytes files it was too slow

Do anybody have any concept how to do that in fast way ?

If you are more interested in getting it done than learning how to implement it then get a Windows port of the Linux "dd" command. Copying from input file to output file with bytes reversed is a one-liner with dd.

http://forums.techguy.org/linux-unix/66330-byte-swap.html

[mLipok]

I finally do what I need

expandcollapse popup

#include 
Local $start_time = TimerInit()
$f_plik = @ScriptDir & '\TEST2.pdf'
$f_plik = @ScriptDir & '\TEST.pdf'
_FileReverse($f_plik)

Func _FileReverse($f_file_to_reverse, $b_check_after_Reverse = False)
ConsoleWrite('' & @CRLF)

$f_handle = FileOpen($f_file_to_reverse, 16 + 32)
;~ FileSetPos($f_handle, 0,0)
;~ $v_test = FileRead($f_handle, 170)
$v_test = FileRead($f_handle)
;~ ConsoleWrite('Use Unicode UTF16 Little Endian reading and writing mode. Reading does not override existing BOM.' & @CRLF)
;~ ConsoleWrite($v_test & @CRLF)
FileClose($f_handle)

;~ ConsoleWrite('' & @CRLF)



;~ ConsoleWrite('$v_test__1 = ' & $v_test & @CRLF)
$v_test__1_len = StringLen($v_test)
;~ ConsoleWrite('$v_test__1_len= ' & $v_test__1_len & @CRLF)

$s_BtoS = BinaryToString($v_test)
;~ ConsoleWrite('$v_test__$s_BtoS_Len = ' & StringLen($s_BtoS) & @CRLF)
$v_test__StoB = StringToBinary($s_BtoS)
;~ ConsoleWrite('$v_test__StoB = ' & $v_test__StoB & @CRLF)
;~ ConsoleWrite('' & @CRLF)
$s_REVERSE2 = _StringReverse2($v_test__StoB)
;~ ConsoleWrite('' & @CRLF)
;~ ConsoleWrite('' & @CRLF)
;~ ConsoleWrite('$v_test__5_LE = ' & StringToBinary($s_REVERSE) & @CRLF)
;~ ConsoleWrite('' & @CRLF)
$v_test__5_LE2 = BinaryToString($s_REVERSE2)
;~ ConsoleWrite('$v_test__5_LE2= ' & $v_test__5_LE2 & @CRLF)
;~ ConsoleWrite('' & @CRLF)
;~ ConsoleWrite('$v_test__StoB = ' & $v_test__StoB & @CRLF)
;~ ConsoleWrite('' & @CRLF)
;~ ConsoleWrite('' & @CRLF)

;~ ConsoleWrite('' & @CRLF)
;~ ConsoleWrite('' & @CRLF)
ConsoleWrite('ACOMPLISHED' & @CRLF)
ConsoleWrite('TESTING' & @CRLF)
;~ ConsoleWrite('' & @CRLF)
;~ ConsoleWrite('' & @CRLF)

Local $timer = TimerInit()
Local $timer_roznica = $timer - $start_time
Local $tick_time_klienta = TimerDiff($start_time)
ConsoleWrite($tick_time_klienta / 1000)

If $b_check_after_Reverse = True Then
For $i = 1 To $v_test__1_len Step 2
$s_1 = StringMid($v_test__StoB, $i, 2)
$s_2 = StringMid($v_test__5_LE2, StringLen($v_test__5_LE2) - $i, 2)
If $s_1 <> $s_2 Then
ConsoleWrite('$s_1 = ' & $s_1 & '<====>' & '$s_2 = ' & $s_2)
ConsoleWrite(' HERE ARE DIFF ')
ConsoleWrite(@CRLF)
EndIf
Next
EndIf

;~ ConsoleWrite('' & @CRLF)
;~ ConsoleWrite('' & @CRLF)
ConsoleWrite('FINISHED' & @CRLF)
;~ ConsoleWrite('' & @CRLF)
ConsoleWrite('' & @CRLF)
EndFunc ;==>_FileReverse
;######################################################################################################################################
Func _StringReverse2($s_String)
Local $i_len = StringLen($s_String)
If $i_len < 1 Then Return SetError(1, 0, "")

Local $t_chars = DllStructCreate("char[" & $i_len + 1 & "]")
DllStructSetData($t_chars, 1, $s_String)

Local $a_rev = DllCall("msvcrt.dll", "ptr:cdecl", "_wcsrev", "struct*", $t_chars)
ConsoleWrite('--> TEST 1' & @CRLF)
If @error Or $a_rev[0] = 0 Then Return SetError(2, 0, "")
ConsoleWrite('--> TEST 2' & @CRLF)
$v_var_to_return = DllStructGetData($t_chars, 1)
ConsoleWrite('--> TEST 3' & @CRLF)
Return $v_var_to_return
EndFunc ;==>_StringReverse2

it works

but

there is one problem ...

[mLipok]

when I use it in that loop

For $i = 1 To 100
ConsoleWrite('> test : ' & $i & @CRLF)
_FileReverse($f_plik)
Next

then in console I've got that error

> test : 11

--> TEST 1

--> TEST 2

--> TEST 3

ACOMPLISHED

TESTING

0.156006657143164FINISHED

> test : 12

--> TEST 1

--> TEST 2

!>02:21:45 AutoIT3.exe ended.rc:-1073741819

Edited November 19, 2012 by mlipok

[mLipok]

SOLVED