AutoHotkey Community

FileDeleteLine(FileName, LineNum)
{
   FileReadLine, Line_Contents, %FileName%, LineNum
   FileRead, File_Contents, %FileName%
   StringReplace, New_File, File_Contents, %Line_Contents%
   FileDelete, %FileName%
   FileAppend, %New_File%, %FileName%
   }

FileDeleteLine("TestFile.txt", 2)

filedelete, temp.txt
fileappend,
(
1
2
2
2
1
3
), temp.txt


FileDeleteLine("temp.txt",5)
FileRead, OutputVar, temp.txt
msgbox, %OutputVar%

FileDeleteLine(FileName, LineNum)
{
   FileReadLine, Line_Contents, %FileName%, LineNum
   FileRead, File_Contents, %FileName%
   StringReplace, New_File, File_Contents, %Line_Contents%
   StringReplace, New_File, New_File, `n ; Credits to en for showing me how to do this a while back. It has still helped me quite alot.
   FileDelete, %FileName%
   FileAppend, %New_File%, %FileName%
}

FileDeleteLine("TestFile.txt", 3)

FileDeleteLine(FileName, LineNum)
{
   FileReadLine, Line_Contents, %FileName%, LineNum
   FileRead, File_Contents, %FileName%
   Loop, Parse, File_Contents, `n
   {
      If A_Index != %LineNum%
      {
         MsgBox,, Not Found, Line was not found!
         }
      If A_Index = %LineNum%
      {
         MsgBox,, Found, Line was found!
         }
      }
   FileDelete, %FileName%
   FileAppend, %New_File%, %FileName%
   }

FileDeleteLine(file, line = 1, eol = "`n") {
   ; eol = end of line character
   FileRead, src, %file%
   If line = 1 ; offset should be 0 for first line:
      start = 0
   Else {
      line-- ; since there is no linefeed at the start (i.e. 0 based index)
      StringGetPos, start, src, %eol%, L%line% ; find position of specified line
      If ErrorLevel != 0 ; if it was not found, return here (do nothing)
         Return
   }
   ; get ending linefeed (if any) where the offset is the length of the eol more than the starting position:
   StringGetPos, end, src, %eol%, , start + StrLen(eol)
   If ErrorLevel = 0 ; if this is not the last line (ending linefeed was found) then:
      StringTrimLeft, newEnd, src, end + 1 ; get trailing part of file
   StringLeft, newStart, src, start ;
   ; replace file contents
   FileDelete, %file%
   FileAppend, %newStart%%newEnd%, *%file% ; use * to preserve \n in Unix files
}

FileDeleteLine(FileName, line_to_delete)
{
  Loop, Read, %FileName%, %FileName%.new
  {
    if A_Index <> %line_to_delete%
      FileAppend, %A_LoopReadLine%`n
  }
  FileMove, %FileName%.new, %FileName%, 1
}

FileDeleteLine("file.txt", "1,5,8,25") ; comma separated lines to delete

FileDeleteLine(FileName, line_to_delete)
{
  Loop, Read, %FileName%, %FileName%.new
  {
    if A_Index not in %line_to_delete%
      FileAppend, %A_LoopReadLine%`n
  }
  FileMove, %FileName%.new, %FileName%, 1
}

FileDeleteLine(FileName, line_to_delete)
{
  Loop, Read, %FileName%, %FileName%.new
  {
    if A_Index not in %line_to_delete%
      FileAppend, %A_LoopReadLine%`n
  }
  FileMove, %FileName%.new, %FileName%, 1
  if (ErrorLevel != 0)
    FileDelete, %FileName%.new
  Return %ErrorLevel%
}