Jump to content

Recommended Posts

Posted

#include <File.au3>

$test = "C:\test.txt"

msgbox(4096, "Info", "Deleting Last 4 lines  ")
$lastline = _FileCountLines($test)
FileDelLine($test, $lastline-3, $lastline) 

msgbox(4096, "Info", "Deleting line 2  ")
FileDelLine($test, 2, 2) 

func FileDelLine($file, $start_line, $end_line)

  local $tmpfile = _TempFile()

  local $fh = FileOpen ( $file, 0)
  local $fh_tmp = FileOpen ( $tmpfile, 2 )
  local $cur_line = 0

  while 1
    $line = FileReadLine($fh)
    $cur_line = $cur_line + 1
    if @error = -1 then
       FileClose($fh)
       FileClose($fh_tmp)
       FileDelete($file)
       FileMove($tmpfile, $file)
       return
    endif 

    if ($cur_line < $start_line) or ($cur_line > $end_line) then
       FileWriteLine($fh_tmp, $line)
    endif 
  wend
endfunc

Any ideas how to leave blank lines of deleted text? :)

Marius back in da hood! :)
Posted

#include <File.au3>

$test = "C:\test.txt"

msgbox(4096, "Info", "Deleting Last 4 lines  ")
$lastline = _FileCountLines($test)
FileDelLine($test, $lastline-3, $lastline) 

msgbox(4096, "Info", "Deleting line 2  ")
FileDelLine($test, 2, 2) 

func FileDelLine($file, $start_line, $end_line)

  local $tmpfile = _TempFile()

  local $fh = FileOpen ( $file, 0)
  local $fh_tmp = FileOpen ( $tmpfile, 2 )
  local $cur_line = 0

  while 1
    $line = FileReadLine($fh)
    $cur_line = $cur_line + 1
    if @error = -1 then
       FileClose($fh)
       FileClose($fh_tmp)
       FileDelete($file)
       FileMove($tmpfile, $file)
       return
    endif 

    if ($cur_line < $start_line) or ($cur_line > $end_line) then
       FileWriteLine($fh_tmp, $line)
    endif 
  wend
endfunc

Any ideas how to leave blank lines of deleted text?  :)

<{POST_SNAPBACK}>

not to sure if this is to simple...but why not instead of deleting lines replace the text with a NULL string

HardCopy

Contributions: UDF _DateYearFirstChildren are like Farts, you can just about stand your own.Why am I not a Vegetarian?...Well...my ancestors didn't fight & evolve to the Top of the food chain for me to survive on Salad

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...