AutoHotkey Community

1=a1

; Text File bellow

Line1=~Open~a1~8
Line2=~Open~a2~8

fileread, in, %textfile%
stringreplace, out, in, %1%`r`n

ifnotexist, example.txt
   fileappend, one`ntwo`nthree`nfour, example.txt ; create file

1=three
fileread, file, example.txt
loop, parse, file, `n
{
   if a_loopfield not contains %1%
      newfile .= (newfile != "" ? "`n" : "") . a_loopfield   
}
filedelete, example.txt
fileappend, %newfile%, example.txt

MsgBox, % FileRemoveLine("YourFile.txt", "YourText") . " lines have been removed."

FileRemoveLine(paramFile, paramKey)
{
   c := 0, tmp := A_Temp . "\TMP_" . A_ScriptName . "_" . A_TickCount . ".txt"
   Loop, Read, % paramFile, % tmp
      IfNotInString, A_LoopReadLine, % paramKey
         FileAppend, % A_LoopReadLine
      Else c++
   FileMove, % tmp, % paramFile, 1
   Return c
}