egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2001-10-09T18:46:00-04:00 https://forum.eggheads.org/app.php/feed/topic/119 2001-10-09T18:46:00-04:00 2001-10-09T18:46:00-04:00 https://forum.eggheads.org/viewtopic.php?p=428#p428 <![CDATA[search for a word in a file and rename the word next to it]]>

Code: 

set text "let's get some sexy goats"regsub -all -- {(^|W)(sexy) w*} $text {12 sheep} newtext# now it's "let's get some sexy sheep"

Statistics: Posted by stdragon — Tue Oct 09, 2001 6:46 pm

]]> 2001-10-09T18:33:00-04:00 2001-10-09T18:33:00-04:00 https://forum.eggheads.org/viewtopic.php?p=426#p426 <![CDATA[search for a word in a file and rename the word next to it]]>

Code: 

set word1 "hello"set word2 "bob"set word3 "replace"set file "blah"file copy -force -- $file "${file}.bak"set rfp [open "${file}.bak" r]set wfp [open $file w]while {![eof $rfp]} {  set s [gets $rfp]  while {[string match "* $word1 $word2 *" $s]} {    set s [string replace $s [string first $word2 $s] [string wordend $s [string first $word $s]] $word3]  }  puts $wfp $s}close $wfpclose $rfp
Note, this is untested.

Statistics: Posted by ppslim — Tue Oct 09, 2001 6:33 pm

]]> 2001-10-09T17:51:00-04:00 2001-10-09T17:51:00-04:00 https://forum.eggheads.org/viewtopic.php?p=420#p420 <![CDATA[search for a word in a file and rename the word next to it]]> hello bob
how can i make it search the file for hello and replace bob with another word?

Statistics: Posted by Guest — Tue Oct 09, 2001 5:51 pm

]]>