Поиск текста в txt файле + действие

elscripts

Участник
Автор темы
61
30
Приветствую, нужна помощь с написанием кода без samp.udf и прочего, просто чистый ахк. Есть текстовый документ, и в нем логируются сообщения, например: Добро пожаловать на. При выводе этого текста должен появиться гуи или msgbox. При повторной отправке текста, будет происходить тоже самое, а не бесконечный цикл с одним текстом

Приветствую, нужна помощь с написанием кода без samp.udf и прочего, просто чистый ахк. Есть текстовый документ, и в нем логируются сообщения, например: Добро пожаловать на. При выводе этого текста должен появиться гуи или msgbox. При повторной отправке текста, будет происходить тоже самое, а не бесконечный цикл с одним текстом
Смог решить проблему самостоятельно.

Код:
global file_update := "C:\RAGEMP\clientdata\cef_game_logs.txt"
SetTimer, update1, 50
SetTimer, update2, 50

update1:
FileEncoding, UTF-8
FileRead, chatlog, % file_update
if(RegExMatch(chatlog, "Остановите редактирование", out))
{
SoundPlay, Dev Files\ok.wav
State3:=!State3


Gui +LastFound +AlwaysOnTop -Caption

Gui, Color, 3A3B3C

Gui, Font, s11, Corbel

Gui, Font, cWhite

Gui, Font, w6000

Gui, Add, Picture,, Dev Files\stopr.png
                                                                                                    
                                                                                                                                                            
WinSet, TransColor, brown
Gui, Color, brown

Gui, Show, x2 y250 NoActivate, window.
sleep 3000
Gui, Destroy
file := "C:\RAGEMP\clientdata\cef_game_logs.txt"
FileReadLine, line, %file%, 1
FileRead, All, % File
FileOpen(File, "w").Write(RegexReplace(All, "Остановите редактирование"))
}
return

update2:
FileEncoding, UTF-8
FileRead, chatlog, % file_update
if(RegExMatch(chatlog, "Продолжайте редактирование", out))
{
SoundPlay, Dev Files\ok.wav
State3:=!State3


Gui +LastFound +AlwaysOnTop -Caption

Gui, Color, 3A3B3C

Gui, Font, s11, Corbel

Gui, Font, cWhite

Gui, Font, w6000

Gui, Add, Picture,, Dev Files\prodr.png
                                                                                                    
                                                                                                                                                            
WinSet, TransColor, brown
Gui, Color, brown

Gui, Show, x2 y250 NoActivate, window.
sleep 3000
Gui, Destroy
file := ""
FileReadLine, line, %file%, 1
FileRead, All, % File
FileOpen(File, "w").Write(RegexReplace(All, "Продолжайте редактирование"))
}
return
 
Последнее редактирование: