egghelp/eggheads community

Writing to a TXT

2006-05-08T01:42:32-04:00

Nope, he works a couple of minutes and after that he isnt working anymore..

Statistics: Posted by Nivko — Mon May 08, 2006 1:42 am

Writing to a TXT

2006-05-07T14:08:30-04:00

Thanks all, working perfect!

Statistics: Posted by Nivko — Sun May 07, 2006 2:08 pm

Writing to a TXT

2006-05-07T14:03:07-04:00

Ok i gonna test

Statistics: Posted by Nivko — Sun May 07, 2006 2:03 pm

Writing to a TXT

2006-05-07T14:01:43-04:00

No, that's for every 10 minutes. For saving every 10 seconds:

Code:

bind join - * addtolistbind part - * remfromlistbind sign - * remfromlistif {![file exists online.txt]} { close [open online.txt w] }set nicklist [split [read [set oltxt [open online.txt]]] \n][close $oltxt]set recentnicks 0if {[utimerexists savelist]==""} { utimer 10 savelist}proc savelist {} { global recentnicks if {$recentnicks} {  set file [open online.txt w]  foreach n $::nicklist {   if {$n != ""} { puts $file $n }  }  close $file  set recentnicks 0 } utimer 10 savelist}proc addtolist {nick uhost hand chan} { global nicklist recentnicks set nick [string tolower $nick] if {[lsearch -exact $nicklist $nick] == -1} {  lappend nicklist $nick  set recentnicks 1 }}proc remfromlist {nick uhost hand chan rsn} { global nicklist recentnicks set nick [string tolower $nick] if {[set i [lsearch -exact $nicklist $nick]] != -1} {  set nicklist [lreplace $nicklist $i $i]  set recentnicks 1 }}

Note: alltools.tcl should be loaded for the utimerexists command to work.

Statistics: Posted by Sir_Fz — Sun May 07, 2006 2:01 pm

Writing to a TXT

2006-05-07T13:56:17-04:00

Ok i will save on every 10 seconds should i use this:?

Code:

bind time - ?10* savelist bind join - * addtolist bind part - * remfromlist bind sign - * remfromlist if {![file exists online.txt]} { close [open online.txt w] } set nicklist [split [read [set oltxt [open online.txt]]] \n][close $oltxt] proc savelist args {  set file [open online.txt w]  foreach n $::nicklist {   if {$n != ""} { puts $file $n }  }  close $file } proc addtolist {nick uhost hand chan} {  global nicklist  set nick [string tolower $nick]  if {[lsearch -exact $nicklist $nick] == -1} {   lappend nicklist $nick  } } proc remfromlist {nick uhost hand chan rsn} {  global nicklist  set nick [string tolower $nick]  if {[set i [lsearch -exact $nicklist $nick]] != -1} {   set nicklist [lreplace $nicklist $i $i]  } }

Statistics: Posted by Nivko — Sun May 07, 2006 1:56 pm

Writing to a TXT

2006-05-07T13:37:39-04:00

if you want max speed on casual events and make slow on more frequent events, you could use a var like "recentlysaved" and set it to 1 each time you save, use a utimer to wait for 10sec until next save. or you generally initialize a 1 sec delayed save on each event (which gives time for more events to be saved within that 1sec).

Statistics: Posted by De Kus — Sun May 07, 2006 1:37 pm

Writing to a TXT

2006-05-07T11:47:40-04:00

So this:

Code:

proc addtolist {nick uhost hand chan} {  global nicklist  set nick [string tolower $nick]  if {[lsearch -exact $nicklist $nick] == -1} {   lappend nicklist $nick   savelist  } } proc remfromlist {nick uhost hand chan rsn} {  global nicklist  set nick [string tolower $nick]  if {[set i [lsearch -exact $nicklist $nick]] != -1} {   set nicklist [lreplace $nicklist $i $i]   savelist  } }proc savelist args {  set file [open online.txt w]  foreach n $::nicklist {   if {$n != ""} { puts $file $n }  }  close $file }

I gonna this it and else i use your way

Statistics: Posted by Nivko — Sun May 07, 2006 11:47 am

Writing to a TXT

2006-05-07T11:38:35-04:00

It's not recommended because it becomes CPU intensive to open and close the file everytime someone joins/parts/quits especially on mass events. Your code is alright, you only need to change these procs:

Code:

proc addtolist {nick uhost hand chan} { global nicklist set nick [string tolower $nick] if {[lsearch -exact $nicklist $nick] == -1} {  lappend nicklist $nick  savelist }}proc remfromlist {nick uhost hand chan rsn} { global nicklist set nick [string tolower $nick] if {[set i [lsearch -exact $nicklist $nick]] != -1} {  set nicklist [lreplace $nicklist $i $i]  savelist }}

Statistics: Posted by Sir_Fz — Sun May 07, 2006 11:38 am

Writing to a TXT

2006-05-07T11:29:05-04:00

Why it isnt recommed? BTW is this good without timer?:

Code:

bind join - * addtolist bind part - * remfromlist bind sign - * remfromlist if {![file exists online.txt]} { close [open online.txt w] } set nicklist [split [read [set oltxt [open online.txt]]] \n][close $oltxt] proc savelist args {  set file [open online.txt w]  foreach n $::nicklist {   if {$n != ""} { puts $file $n }  }  close $file } proc addtolist {nick uhost hand chan} {  global nicklist  set nick [string tolower $nick]  if {[lsearch -exact $nicklist $nick] == -1} {   lappend nicklist $nick  } } proc remfromlist {nick uhost hand chan rsn} {  global nicklist  set nick [string tolower $nick]  if {[set i [lsearch -exact $nicklist $nick]] != -1} {   set nicklist [lreplace $nicklist $i $i]  } }

[/code]

Statistics: Posted by Nivko — Sun May 07, 2006 11:29 am

Writing to a TXT

2006-05-07T11:26:08-04:00

Well, what you're requesting is not recommended. If you want it to save immediately, you know what to fix.

Statistics: Posted by Sir_Fz — Sun May 07, 2006 11:26 am

Writing to a TXT

2006-05-07T11:24:06-04:00

Sorry, but i need live if somone parts he must write and joins too:$

Statistics: Posted by Nivko — Sun May 07, 2006 11:24 am

Writing to a TXT

2006-05-07T11:22:43-04:00

Code:

bind time - ?0* savelistbind join - * addtolistbind part - * remfromlistbind sign - * remfromlistif {![file exists online.txt]} { close [open online.txt w] }set nicklist [split [read [set oltxt [open online.txt]]] \n][close $oltxt]proc savelist args { set file [open online.txt w] foreach n $::nicklist {  if {$n != ""} { puts $file $n } } close $file}proc addtolist {nick uhost hand chan} { global nicklist set nick [string tolower $nick] if {[lsearch -exact $nicklist $nick] == -1} {  lappend nicklist $nick }}proc remfromlist {nick uhost hand chan rsn} { global nicklist set nick [string tolower $nick] if {[set i [lsearch -exact $nicklist $nick]] != -1} {  set nicklist [lreplace $nicklist $i $i] }}

This will add the nicks on join to the list and will remove the nicks from the list on part/quit. The list will be saved every 10 minutes into the file.

Statistics: Posted by Sir_Fz — Sun May 07, 2006 11:22 am

Writing to a TXT

2006-05-07T10:29:19-04:00

Uhm, i cant script TCL... Could you make it for me..

Statistics: Posted by Nivko — Sun May 07, 2006 10:29 am

Writing to a TXT

2006-05-07T10:26:49-04:00

best you save the nicks as a list. and lsearch/lreplace the nick (or lappend in case to add one).

Statistics: Posted by De Kus — Sun May 07, 2006 10:26 am

Writing to a TXT

2006-05-07T09:49:49-04:00

Ok, thanks that is the first part of the script

Now how remove the line if somone parts

Statistics: Posted by Nivko — Sun May 07, 2006 9:49 am