CrypticKiwi Posted December 13, 2015 Share 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 Link to comment Share on other sites More sharing options...
jguinch Posted December 13, 2015 Share 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 Link to comment Share on other sites More sharing options...
Danyfirex Posted December 13, 2015 Share Posted December 13, 2015 If you reading as binary you can use BinaryMid instead stringmid. It's faster. Saludos 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 Link to comment Share on other sites More sharing options...
CrypticKiwi Posted December 13, 2015 Author Share Posted December 13, 2015 Thanks guys the problem slowing it down was reading the file as binary. its way faster now... Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now