CrypticKiwi 6 Posted December 13, 2015 (edited) $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) EndFuncIts still running and its more than 3 hours now for a 1mb file... Edited December 13, 2015 by CrypticKiwi Share this post Link to post Share on other sites
jguinch 405 Posted December 13, 2015 Can you provide an example of ASCII.TXT and say us what is desired result ? Hide jguinch's signature Hide all signatures Spoiler Network configuration UDF, _DirGetSizeByExtension, _UninstallList Firefox ConfigurationArray multi-dimensions, Printer Management UDF Share this post Link to post Share on other sites
Danyfirex 576 Posted December 13, 2015 If you reading as binary you can use BinaryMid instead stringmid. It's faster. Saludos Hide Danyfirex's signature Hide all signatures Danysys.com AutoIt... UDFs: VirusTotal API 2.0 UDF - libZPlay UDF - Apps: Guitar Tab Tester - VirusTotal Hash Checker Examples: Text-to-Speech ISpVoice Interface - Get installed applications - Enable/Disable Network connection PrintHookProc - WINTRUST - Mute Microphone Level - Get Connected NetWorks - Create NetWork Connection ShortCut Share this post Link to post Share on other sites
CrypticKiwi 6 Posted December 13, 2015 Thanks guys the problem slowing it down was reading the file as binary. its way faster now... Share this post Link to post Share on other sites
