egghelp/eggheads community

replacing line problem

2004-05-02T05:49:34-04:00

As I told you on irc, no, you don't NEED it to be "text", because in Tcl,
set var word , is the same as set var "word" ...
If it is a multi-word, the list command will make it set var {word1 word2}, which is essentially the same as set var "word1 word2", less variable substitution, which your original line will take care of anyway...

Statistics: Posted by strikelight — Sun May 02, 2004 5:49 am

replacing line problem

2004-05-02T02:25:34-04:00

yea, that's what I needed, however it poses yet another problem

in the file it actually sets it as:

Code:

set variwannaset text

instead of what I NEED it to be

Code:

set variwannaset "text"

I've also tried the

Code:

[list set variwannaset "\"$text\""]

and every combination I possibly know...

Statistics: Posted by collett9 — Sun May 02, 2004 2:25 am

replacing line problem

2004-05-01T19:03:26-04:00

I think this is what you want...

Code:

replaceLines vars.tcl 76 76 [list set variwannaset "$text"]

Statistics: Posted by user — Sat May 01, 2004 7:03 pm

replacing line problem

2004-04-30T00:53:25-04:00

The script you found seems to remove line 76 and add another one onto the very end. You want to replace 76? Change the lreplace command to add the new line in place of the one you remove. See the tcl manual http://www.tcl.tk/man/tcl8.4/TclCmd/contents.htm for the lreplace command for details.

Statistics: Posted by stdragon — Fri Apr 30, 2004 12:53 am

replacing line problem

2004-04-30T00:24:02-04:00

Well after my last post and getting that to work, it turned out not to be what I needed exactly.

I need to REPLACE the line, so I did a bit of searching and found:

http://forum.egghelp.org/viewtopic.php?p=27613#27613

Here is what I have, and it's not working:

Code:

bind pub - !setvar replaceLinesbind pub - !setvar cmd:setvarproc replaceLines {args} {    if {[llength $args]>=3} {       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} {lappend cmd [lindex $args 3]}       puts -nonewline [set f [open $file w]] [join [eval $cmd] \n]       close $f    } {       error "wrong # args: should be \"[lindex [info level 0] 0] file start end ?replacement?\""    } } proc cmd:setvar {nick host handle chan text} { global privchan variwannaset foreach channel $privchan {   if {$chan == "$privchan"} {   set variwannaset "$text"   replaceLines vars.tcl 76 76 [set variwannaset "$text"]   putquick "NOTICE $nick :Variable has been set to: \002$variwannaset\002"   } }}

(As you can tell, the line I want to edit is 76)

Help?

Statistics: Posted by collett9 — Fri Apr 30, 2004 12:24 am