MsgBox if the txt file is changed

[PINTO1927]

Hi guys,

 

through a script, a button refers me content in a txt file. You can have a MsgBox if this file is modified the content?

[Melba23]

PINTO1927,

Do you mean you are reading the content of the file and wish to see if it has changed, or do you want to find out if the file has changed without reading its content?

If the former, then a simple comparison to a stored version of the content should suffice. If the latter, then I have found seangriffin's FileSystemMonitor UDF to work well.

M23

 

 

[PINTO1927]

 

 

I developed a simple program.

This program is present in a shared and is used by various people.

They open it in the form of shortcut on your desktop. Through a button that reads the txt files, leave notes that each one can read in the form of MsgBox.

In the case in which the txt file is changed I would need that the program writing a MsgBox to update any user.

[water]

On startup of the script I would read the modification date/time of the file and store it in a variable.
Use AdlibRegister to register a function that is called every x seconds or minutes. This function would read the modification date/time of the file and if different to the original date/time popup the MsgBox.

But the solution you are looking for depends on how fast the users need to be informed about a change.

[PINTO1927]

 

thanks, you can provide a simple example of AdlibRegister ..

The need to inform users should be instant

[water]

This example takes no longer than 1/4 second to inform you when the file has changed.

#include <Array.au3>
Global $sFileToCheck = "C:\temp\test.txt"
Global $bFileChanged = False
Global $sFileDateTime = _ArrayToString(FileGetTime($sFileToCheck))
AdlibRegister("_CheckFile", 250)
While 1
    Sleep(10)
    If $bFileChanged Then
        MsgBox(0, "Info", "File has changed")
        $sFileDateTime = _ArrayToString(FileGetTime($sFileToCheck))
        $bFileChanged = False
    EndIf
WEnd

Func _CheckFile()
    If $sFileDateTime <> _ArrayToString(FileGetTime($sFileToCheck)) Then $bFileChanged = True
EndFunc   ;==>_CheckFile

 

Edited June 17, 2016 by water

[PINTO1927]

Perfect... thank's so much..

[water]

[PINTO1927]

how could I put this script in my program?

It is structured in this way ..

 

GUISetState(@SW_SHOW, $Form)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
        Case...
        Case...
        Case...
   EndSwitch
Wend

 

[water]

Something like this:

#include <Array.au3>
Global $sFileToCheck = "C:\temp\test.txt"
Global $bFileChanged = False
Global $sFileDateTime = _ArrayToString(FileGetTime($sFileToCheck))
AdlibRegister("_CheckFile", 250)

; GUI creation etc goes here

GUISetState(@SW_SHOW, $Form)
While 1
    If $bFileChanged Then
        MsgBox(0, "Info", "File has changed")
        $sFileDateTime = _ArrayToString(FileGetTime($sFileToCheck))
        $bFileChanged = False
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case...
        Case...
        Case...
    EndSwitch
WEnd

Func _CheckFile()
    If $sFileDateTime <> _ArrayToString(FileGetTime($sFileToCheck)) Then $bFileChanged = True
EndFunc   ;==>_CheckFile

 

Edited June 17, 2016 by water

[PINTO1927]

Very Good...