Jump to content

problems with "If" not working


dsk04
 Share

Recommended Posts

i am trying to write a md5 check sum checker, i have a list filled with 24,000 MD5 check sums... $fileq = FileOpen("FileList.txt", 0)

my "if" statement is not working and i know that it should... one of the the check sums should match one that i manual found for a file, it goes though the whole list without the "if" statement matching any

i tried msgbox in the "if" and it is never working

i am pretty new at coding and i am hoping to get this working, heres the code, what im i doing wrong?

Func LogFile($FileName)

Local $fileq

Local $XR3

Local $MD5

if $FileName = $lastfile then ;if 1

else

$plH = PluginOpen("C:\MD5Hash.dll")

$XR3 = MD5Hash($FileName, 2, True)

PluginClose($plH)

$XD2 = FileGetSize($FileName)

$filesize = $filesize + $XD2

$fileq = FileOpen("FileList.txt", 0)

if $XR3 = "0" then ;if 2

ToolTip($FileName & @CRLF & "File In Use." & @CRLF & Round($XX2 * $filesize, 3) & "%",0,0)

else

ToolTip($FileName & @CRLF & "MD5: " & $XR3 & @CRLF & Round($XX2 * $filesize, 3) & "%",0,0)

While $fileq

$MD5 = FileReadLine($fileq)

If @error = -1 Then ExitLoop

$result = StringCompare($XR3, $MD5, 2)

if $result = "0" then ;if 3

MsgBox(0, "Search result:", $result)

$FileCnt = $FileCnt + 1

FileWriteLine("dups.txt", $FileName) ; line for deleting file

FileDelete($FileName)

endif ;if 3

Wend

EndIf ;if 2

EndIf ;if 1

FileClose($fileq)

$lastfile = $FileName

EndFunc

Link to comment
Share on other sites

dsk04,

A little offtopic from your question but when you post code could you please use the AutoIt tags [autoit][/autoit] (click the blue 'A' icon next to the quote button) as it makes your code easier to read. Also if possible posting code that can be run will help even more when fixing an issue, thanks.

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 parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 22/04/2018

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...