AutoHotkey Community

#NoEnv
SetWorkingDir, %A_ScriptDir%
txt=
(
Some Text
Some Text
Some Text
)
IfExist, %A_ScriptDir%\test.txt
 FileDelete, %A_ScriptDir%\test.txt
FileAppend, % txt, %A_ScriptDir%\test.txt
FileRead, T, %A_ScriptDir%\test.txt
InputBox, S, Search, , , 200, 100 ; SearchStr...
If !ErrorLevel
 InputBox, R, Replace, , , 200, 100 ; Replacement...
If !ErrorLevel
 Replace(T, S, R)
Run, %A_ScriptDir%\test.txt

Replace(T, S, R) {
 FoundPos := RegExMatch(T, S)
 If(FoundPos != "0") {
    NewTxt := RegExReplace(T, S, R)
     IfExist, %A_ScriptDir%\test.txt
     {
      FileDelete, %A_ScriptDir%\test.txt
      FileAppend, % NewTxt, %A_ScriptDir%\test.txt
     }
  }
}