Can This Be Faster?

[CrypticKiwi 5]

$Handle = FileOpen("ASCII.txt",16)
$Read = FileRead($Handle)
$NEWFILE = ""
_TOBinary($Read)
Func _TOBinary($Read)
for $i = 1 to StringLen($Read) step 3
    $Mid = StringMid($Read,$i,3)
        if $Mid > 255 Then
            $i -= 1
            $Mid = StringMid($Read,$i,2)
        EndIf
    $NEWFILE &= Chr($Mid)
Next
FileWrite("Binary.txt",$NEWFILE)
EndFunc

Its still running and its more than 3 hours now for a 1mb file...

Edited December 13, 2015 by CrypticKiwi

[jguinch 389]

Can you provide an example of ASCII.TXT and say us what is desired result ?

[Danyfirex 505]

If you reading as binary you can use BinaryMid instead stringmid. It's faster.

 

Saludos

[CrypticKiwi 5]

Thanks guys the problem slowing it down was reading the file as binary. its way faster now...