Печать

[CreatoR [?]]

Функция удаляет определённую строчку с файла по её номеру.

Код: AutoIt [Выделить]

;Автор: CreatoR
;Удаление определённой строки (по номеру) в файле

;Удаляем 3-тью строчку с файла "File.txt"
_FileDeleteLine(@ScriptDir & "\File.txt", 3)

Func _FileDeleteLine($sFile, $iLine)
    $hFile = FileOpen($sFile, 0)
    If $hFile = -1 Then Return SetError(1, 0, 0)
   
    $sFileContent = ""
    $aFileContent = StringSplit(StringStripCR(FileRead($hFile)), @LF)
   
    FileClose($hFile)
   
    For $i = 1 To $aFileContent[0]
        If $i <> $iLine Then $sFileContent &= $aFileContent[$i] & @CRLF
    Next
   
    $hFile = FileOpen($sFile, 2)
    If $hFile = -1 Then Return SetError(2, 0, 0)
   
    FileWrite($hFile, StringTrimRight($sFileContent, 2))
    Return FileClose($hFile)
EndFunc

• Arei
• Ganibal95
• CreatoR
• Kaster
• Pasmer
• trizorka
• abelar
• centaur
• eropov
• Yashied
• Serafim
• enk
• inververs
• mr.Gbabak
• sagem830
• asdf8
• felikc
• spn123
• madmasles
• Viktor1703
• Pavel
• ORiON
• alexisnoy123
• Asshaker
• valdur2000