egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-08-11T14:12:28-04:00 https://forum.eggheads.org/app.php/feed/topic/8092 2004-08-11T14:12:28-04:00 2004-08-11T14:12:28-04:00 https://forum.eggheads.org/viewtopic.php?p=39694#p39694 <![CDATA[cant clean file]]>

Statistics: Posted by KrzychuG — Wed Aug 11, 2004 2:12 pm

]]> 2004-08-11T13:13:01-04:00 2004-08-11T13:13:01-04:00 https://forum.eggheads.org/viewtopic.php?p=39693#p39693 <![CDATA[cant clean file]]>
Use this to replace or remove line from file:

Code: 

 # Replace line(s) in file  # Usage:  #  replaceLines <file> <first line> <last line> [replacement data]  proc replaceLines { args } {    if {[llength $args] >= 3} then {      foreach {file start end} $args break      set cmd [list lreplace [split [read [set f [open $file r]]] \n] $start $end]      close $f      if {[llength $args] > 3} then {lappend cmd [lindex $args 3]}      puts -nonewline [set f [open $file w]] [join [eval $cmd] \n]      close $f    } else {      error "wrong # args: should be "[lindex [info level 0] 0] file start end ?replacement?""    }  } ;# replaceLines
What's up with the screwed up indentation and added braces and keywords? :P
btw: here's a more recent version of that proc (the syntax is identical, but you can also add more lines passed as separate arguments and it's a bit faster)

Code: 

proc replaceLines {file args} {if {[llength $args]>=2} {set data [eval lreplace [list [split [read [set f [open $file]]] \n]] $args]close $fputs -nonewline [set f [open $file w]] [join $data \n]close $f} {error "wrong # args: should be "[lindex [info level 0] 0] file start end ?replacement?""}}

Statistics: Posted by user — Wed Aug 11, 2004 1:13 pm

]]> 2004-08-11T12:34:06-04:00 2004-08-11T12:34:06-04:00 https://forum.eggheads.org/viewtopic.php?p=39692#p39692 <![CDATA[cant clean file]]>

Statistics: Posted by the_crow — Wed Aug 11, 2004 12:34 pm

]]> 2004-08-11T12:15:56-04:00 2004-08-11T12:15:56-04:00 https://forum.eggheads.org/viewtopic.php?p=39691#p39691 <![CDATA[cant clean file]]>

Code: 

 # Replace line(s) in file  # Usage:  #  replaceLines <file> <first line> <last line> [replacement data]  proc replaceLines { args } {    if {[llength $args] >= 3} then {      foreach {file start end} $args break      set cmd [list lreplace [split [read [set f [open $file r]]] \n] $start $end]      close $f      if {[llength $args] > 3} then {lappend cmd [lindex $args 3]}      puts -nonewline [set f [open $file w]] [join [eval $cmd] \n]      close $f    } else {      error "wrong # args: should be \"[lindex [info level 0] 0] file start end ?replacement?\""    }  } ;# replaceLines
To remove first line use:

Code: 

replaceLines "file.txt" 0 0
To replace first line use:

Code: 

replaceLines "file.txt" 0 0 "new data"

Statistics: Posted by KrzychuG — Wed Aug 11, 2004 12:15 pm

]]> 2004-08-11T10:09:18-04:00 2004-08-11T10:09:18-04:00 https://forum.eggheads.org/viewtopic.php?p=39686#p39686 <![CDATA[cant clean file]]>

Code: 

bind pub - !duvida idle_getnickbind pub o !listar listar:pubbind pub o !apagar apagar:pubbind join - * file_checkset id 0proc file_check {n u h c} {  set ficheiro "scripts/duvidas.txt"  if {[file size $ficheiro] > 0} then {    putserv "PRIVMSG $n :Existem duvidas para tirar,faz !listar para veres e depois de resolvidas faz !apagar"  }}proc idle_getnick {nick mask hand chan text} {global botnick idset ficheiro "scripts/duvidas.txt"putserv "PRIVMSG $chan : A sua duvida foi enviada com sucesso. Será respondido o mais depressa possível."set fp [open $ficheiro a+]puts $fp "$id -> $nick : $text"catch {close $fp}incr id 1}proc listar:pub {nick mask hand chan text} {global botnickset ficheiro "scripts/duvidas.txt"putserv "PRIVMSG $nick : Lista de Duvidas por user"set fs [open $ficheiro r]while {![eof $fs]} {gets $fs lineputserv "PRIVMSG $nick : $line"}close $fs}proc apagar:pub {nick mask hand chan text} {set id [string tolower [lindex $text 0]]set ficheiro "scripts/duvidas.txt"if {$id == ""} { putserv "privmsg $nick : insert the id to clean." }set fs [open $ficheiro a]while {![eof $fs]} {   set linha "[gets $fs]"   if {$linha != ""} {     set ident [lindex $linha 0]     if {$id == $ident} {      puts $fs2 ""      close $fs2      putserv "privmsg $nick : THe id that you wanted was clean."     }    }   }}
Like you saw i made same alterations, but know when i try to clean one ID like !apagar 1, it doesn´t work...

its a exemple:
!duvita hellp

!listar
(it will appear) 0 - $nick - Hello

!apagar 0

it doesn't work :(

Statistics: Posted by the_crow — Wed Aug 11, 2004 10:09 am

]]> 2004-08-10T20:24:14-04:00 2004-08-10T20:24:14-04:00 https://forum.eggheads.org/viewtopic.php?p=39676#p39676 <![CDATA[cant clean file]]>

Netux pois agora começo a reparar... vai aparecendo la mais vezes :) ja agora obrigado pelo codigo... mas prefiro o do outro bacano nao keria tar a fazer incrementacoes :S

Statistics: Posted by the_crow — Tue Aug 10, 2004 8:24 pm

]]> 2004-08-10T20:13:58-04:00 2004-08-10T20:13:58-04:00 https://forum.eggheads.org/viewtopic.php?p=39675#p39675 <![CDATA[cant clean file]]>

Code: 

bind join - * file_checkproc file_check {n u h c} {  set ficheiro "scripts/duvidas.txt"   if {[file size $ficheiro] > 0} then {    putserv "PRIVMSG $n :File $ficheiro is not empty"  }} ;# file_check

Statistics: Posted by KrzychuG — Tue Aug 10, 2004 8:13 pm

]]> 2004-08-10T20:05:54-04:00 2004-08-10T20:05:54-04:00 https://forum.eggheads.org/viewtopic.php?p=39674#p39674 <![CDATA[cant clean file]]>

Code: 

bind join - * file_checkproc file_check {n u h c} {  if {$n != "|The_Crow|"} {return 0} ; set ficheiro [open "scripts/duvidas.txt"] ; set linhas 0  while {![eof $ficheiro]} {gets $ficheiro line ; if {$line != ""} {incr linhas 1}} ; close $ficheiro  if {$linhas != 0} {puthelp "PRIVMSG $n : ficheiro não está vazio!"}}
tinhas ajuda ai ao lado ;]

Statistics: Posted by netux — Tue Aug 10, 2004 8:05 pm

]]> 2004-08-10T19:10:23-04:00 2004-08-10T19:10:23-04:00 https://forum.eggheads.org/viewtopic.php?p=39673#p39673 <![CDATA[cant clean file]]> Statistics: Posted by the_crow — Tue Aug 10, 2004 7:10 pm

]]> 2004-08-10T16:57:24-04:00 2004-08-10T16:57:24-04:00 https://forum.eggheads.org/viewtopic.php?p=39672#p39672 <![CDATA[cant clean file]]>

Code: 

set fs [open $ficheiro w]close $fs

Statistics: Posted by KrzychuG — Tue Aug 10, 2004 4:57 pm

]]> 2004-08-10T16:34:42-04:00 2004-08-10T16:34:42-04:00 https://forum.eggheads.org/viewtopic.php?p=39671#p39671 <![CDATA[cant clean file]]>

Code: 

bind pub - !duvida idle_getnickbind pub o !listar listar:pubproc idle_getnick {nick mask hand chan text} {global botnickset ficheiro "scripts/duvidas.txt"putserv "PRIVMSG $chan : A sua duvida foi enviada com sucesso. Será respondido o mais depressa possível."set fp [open $ficheiro a+]puts $fp "$nick : $text"catch {close $fp}}proc listar:pub {nick mask hand chan text} {global botnickset ficheiro "scripts/duvidas.txt"set fs [open $ficheiro r]while {![eof $fs]} {gets $fs lineputserv "PRIVMSG $nick : $line"}close $fs}

how can i make procedure that clean my file when i trig !clean ? thanks :)

Statistics: Posted by the_crow — Tue Aug 10, 2004 4:34 pm

]]>