mesale0077 Posted October 19, 2013 Share Posted October 19, 2013 (edited) file compare $hosts = (@ScriptDir & "\hosts") $s5HTML = StringSplit(fileread(@ScriptDir & "\HOSTS_1"), @LF) For $i = 1 To $s5HTML[0] If StringInStr(fileread($hosts), $s5HTML[$i]) Then tooltip("True") Else filewrite($hosts,@LF&$s5HTML[$i]) tooltip("False") EndIf next file comparehttp://www.mediafire.com/download/475i7zrbidw6mpl/hosta.rar file compare dont fast this code very slow ,do you have another method how fast can take action Edited October 19, 2013 by mesale0077 Link to comment Share on other sites More sharing options...
guinness Posted October 19, 2013 Share Posted October 19, 2013 Regular expressions. I discussed about HOSTS file parsing back in Feb 2013. Just search the Forum. UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
water Posted October 19, 2013 Share Posted October 19, 2013 Or use any of the free file compare utilities awailable on the Web like WinMerge. My UDFs and Tutorials: Spoiler UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki Link to comment Share on other sites More sharing options...
UEZ Posted October 19, 2013 Share Posted October 19, 2013 (edited) Is this working for you?Global $sAddHosts, $t = TimerInit() $sHosts = FileRead(@ScriptDir & "\Hosts") $aHosts_1 = StringRegExp(FileRead(@ScriptDir & "\Hosts_1"), "\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\s+(?:\w+)\S+", 3) For $i = 0 To UBound($aHosts_1) - 1 $sHost_ = StringRegExpReplace($aHosts_1[$i], "(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s+(.*)", "$2") $sIP = StringRegExpReplace($aHosts_1[$i], "(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s+(.*)", "$1") If StringInStr($sHosts, $sHost_) Then ConsoleWrite("Found " & $sHost_ & " in Hosts already - skipping." & @LF) Else $sAddHosts &= $sIP & " " & $sHost_ & @CRLF EndIf Next $hFile = FileOpen(@ScriptDir & "\Hosts_new", 2) FileWrite($hFile, $sHosts & @CRLF & $sAddHosts) FileClose($hFile) ConsoleWrite(@LF & "Runtime: " & StringFormat("%.2f ms", TimerDiff($t)) & @LF & @LF)Br,UEZ Edited October 19, 2013 by UEZ mesale0077 1 Please don't send me any personal message and ask for support! I will not reply! Selection of finest graphical examples at Codepen.io The own fart smells best! ✌Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!¯\_(ツ)_/¯ ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ Link to comment Share on other sites More sharing options...
mesale0077 Posted October 19, 2013 Author Share Posted October 19, 2013 Is this working for you? Global $sAddHosts, $t = TimerInit() $sHosts = FileRead(@ScriptDir & "\Hosts") $aHosts_1 = StringRegExp(FileRead(@ScriptDir & "\Hosts_1"), "\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\s+(?:\w+)\S+", 3) For $i = 0 To UBound($aHosts_1) - 1 $sHost_ = StringRegExpReplace($aHosts_1[$i], "(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s+(.*)", "$2") $sIP = StringRegExpReplace($aHosts_1[$i], "(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s+(.*)", "$1") If StringInStr($sHosts, $sHost_) Then ConsoleWrite("Found " & $sHost_ & " in Hosts already - skipping." & @LF) Else $sAddHosts &= $sIP & " " & $sHost_ & @CRLF EndIf Next $hFile = FileOpen(@ScriptDir & "\Hosts_new", 2) FileWrite($hFile, $sHosts & @CRLF & $sAddHosts) FileClose($hFile) ConsoleWrite(@LF & "Runtime: " & StringFormat("%.2f ms", TimerDiff($t)) & @LF & @LF) Br, UEZ thank you UEZ , worked nice 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