egghelp/eggheads community

romain

Hello, 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] :: [to...

romain

Lol demond, i write now for work for the NSA :P Just, i have this code foreach d [split $list] { if [regexp {\d} $d] { putlog "$d is a number" } else { putlog"$d is not a number" } } It's good? If yes, it's not possible to make more simple and fast for verify if a list is just a ...

romain

Thx Sir_Fz.

Yes it's a number. How verifier who a list is well a list of number?

Code: Select all

regexp {\d} [split $list]

romain

Hello , I've this script for {set i 0} {$i < [lindex $a 0]} {incr i} { if {0 < [lindex $a 0] <=5} { ##blabla if {$i == [lindex $a 0]} { ##blabla } } elseif {5 < [lindex $a 0] <= 10} { ##blabla if {$i == 5} { ##blabla } elseif {$i == [lindex $a 0]} { ##blabla } } } But don't works :?:

romain

Sir_Fz wrote:Yes you can use lsearch to search through the list, as for deleting check your permissions.

Sorry but how check permisions

For "lsearch" , Which is for you the fastest way ?

thx

romain

Ok thx i try.

it's not possible to use "lsearch" for verifier the data?

And i have

Code: Select all

file delete -force -- scripts/file1.txt 
file rename -force -- scripts/file2.txt scripts/file1.txt

[17:10] Tcl error [pub:aj]: error deleting "scripts/file1.txt": permission denied

romain

Yes but,

with

Code: Select all

  foreach a [split [read [open $file1] \n] {
    foreach b [split [read [open $file2] \n] {
     if [string equal $a $b] {
       continue
     } else {
       lappend c $a
     }
    }
   }

Don't works

romain

hello,

I've 2 files(file1,file2),have the same number of lines,30 lines max.I want to write data which are in the file1 but which is not in the file2.I try use foreach 2 time but I've many difficulties to write these data.Can you help me in the realization of this script?Thx

romain

Yeah, it's ok.
Thanks

romain

Hello,

I've more difficulty to write the results like this

1. kili with 30 kicks
2. lili with 15 kicks
3. lolo with 10 kicks
4. kilo with 3 kicks

if somebody can help me

romain

hello, I have this script set ::kick(lolo) 10 set ::kick(lili) 15 set ::kick(kilo) 3 set ::kick(kili) 30 bind pub - !kick pub:test proc pub:test {nick host hand chan arg} { foreach {x y} [array get ::kick] { putserv "privmsg $chan : $x with $y kicks" } } It works.But it's possible to write...

romain

Hello, I've this script bind pub n|n !restart pub:restart proc pub:restart { nick uhost handle chan arg } { foreach user [chanlist $chan] { if {[isop $user $chan]} { putquick "notice $user:blabla.." } } restart } But egg restart before all ops receive the notice.With a timer it's possible ...

egghelp/eggheads community

Search found 12 matches

regexp?

Problem with <,<=

compare two files

array question

rehash command