number of users

[Koepi]

I count the number of users in my channel with

Code: Select all

set anzahl [expr [llength [chanlist $chan]]]

i have a txt file, user.txt. every nick in the channel who is in this file should be decrease from the number of users.

user.txt

Code: Select all

user1
user2
user3

I hope you understand what i mean and can help me.

greets Koepi

[demond]

Code: Select all

set count [llength [chanlist $chan]]
foreach n [split [read [open user.txt]] \n] {
   if {[onchan $n $chan]} {incr count -1}
}

[Koepi]

thx, works fine

[Sir_Fz]

The file should be closed though.

Code: Select all

set count [llength [chanlist $chan]] 
foreach n [split [read [set f [open user.txt]]] \n][close $f] { 
   if {[onchan $n $chan]} {incr count -1} 
}

[Koepi]

Okay thx. Is integrated, but you explan me what does this do?

[Sir_Fz]

It's the same script, but this one closes the file after reading it in order not to open too many files which will lead to errors if excess files has been opened.

[Koepi]

Okay, thanks.