egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2008-11-04T17:08:28-04:00 https://forum.eggheads.org/app.php/feed/topic/16294 2008-11-04T17:08:28-04:00 2008-11-04T17:08:28-04:00 https://forum.eggheads.org/viewtopic.php?p=85724#p85724 <![CDATA[regexp?]]>
example:

word word word word
word word word word
word1 word word word

i search where in my file i have word1

Code: 

set hcs [open $file r]; set scorefile [split [read $hcs] "\n"]; close $hcs    foreach newscore $scorefile {       if {[lindex $newscore 0] == "word1"} {     set scoreall $newscore; # scoreall is my total line :)   }} unset scorefile putlog "total: [lindex $scoreall 1] [lindex $scoreall 2]"
if i whant to sum all resalts and write total under all scores

Code: 

set scoreall1 0; scoreall2 0set hcs [open $file r]; set scorefile [split [read $hcs] "\n"]; close $hcs    foreach newscore $scorefile {       if {[lindex $newscore 0] != "totaljoueur" || [lindex $newscore 0] != ""} {     set scoreall1 [expr [lindex $newscore 1] + $scoreall1]                             set scoreall2 [expr [lindex $newscore 2] + $scoreall2]   }}    set writedata [open $file w]       foreach newdata $scorefile {      if {[lindex $newdata 0] != "totaljoueur"} {            puts $writedata "$newdata"         } elseif {[lindex $newdata 0] != ""} {            puts $writedata "totaljoueur $scoreall1 $scoreall2"         }}  flush $writedata; close $writedata; unset scorefile
when script resum all set new total line under and remove old

Statistics: Posted by game_over — Tue Nov 04, 2008 5:08 pm

]]> 2008-11-03T19:15:54-04:00 2008-11-03T19:15:54-04:00 https://forum.eggheads.org/viewtopic.php?p=85716#p85716 <![CDATA[regexp?]]>
In the file with more lines
......
[00:17] <test> [05joueur1] :: [game1] [point]
[00:17] <test> [03Joueur2] :: [game2] [point]
[00:18] <test> |[06totaljoueur] :: [totalgame] [totalpoint]
.....
How to write only the line with "totaljoueur" for have this result

|[06totaljoueur] :: [totalgame] [totalpoint]
thx for help

Statistics: Posted by romain — Mon Nov 03, 2008 7:15 pm

]]>