hi, a snippet is needed.

[Meropie]

hello, im searching for a snippet to delete a line from a file.

my file looks like:
bla
bla2
bla4
meropie
egghelp

and such..

i want to delete a line, but i am searching the whole line, so it will be much easier (i think).
example:
i want to delete meropie, i will search for meropie and delete it so the file will look like:
bla
bla2
bla4
egghelp
.

thanks.

[Maiki]

Code: Select all

bind pub - !delete delLine

proc delLine {nick uhost hand chan arg} {
	set file [open /usr/dir r]
        set data [read -nonewline $file]
	close $file
        if {[set pos [lsearch -glob [set ldata [split $data \n]] $arg]] != -1} {
            set data [open /usr/dir w]
            puts $data [join [lreplace $ldata $pos $pos] \n]
            close $data
            putserv "PRIVMSG $chan :Deleted $arg"
        } else {
            close $data
            putserv "PRIVMSG $chan :Can not find $arg in the file"

        }

}

[Meropie]

yo, thanks for the help, but error accurs:
[16:57] Tcl error [delLine]: can not find channel named "Meropie"

[Maiki]

Fixed..

[Sir_Fz]

Check out user's code in this thread.