#1 · 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
#2 · 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
#3 · Posted December 13, 2015 If you reading as binary you can use BinaryMid instead stringmid. It's faster. Saludos Would you like to say thank to Danyfirex using a warmy way? offer me a cup of coffee... 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
#4 · 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
