CrypticKiwi 5 Report post 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 387 Report post Posted December 13, 2015 Can you provide an example of ASCII.TXT and say us what is desired result ? Spoiler Network configuration UDF, _DirGetSizeByExtension, _UninstallList Firefox ConfigurationArray multi-dimensions, Printer Management UDF Share this post Link to post Share on other sites
Danyfirex 464 Report post Posted December 13, 2015 If you reading as binary you can use BinaryMid instead stringmid. It's faster. Saludos Sometimes I learn, Sometimes I teach... 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 5 Report post 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
