egghelp/eggheads community

write to a text file..

2007-04-21T21:20:58-04:00

I doubt you got any result at all because $nick does not exist. Perhaps this is better:

Code:

proc addtemp nick {  global temp  set addtemp_file [open $temp r+]  set linecount [llength [split [read $addtemp_file] \n]]  puts $addtemp_file "$linecount $nick"  close $addtemp_file  return 0}

usage: addtemp (this is supposed to continue the count, so we assume that the pevious nicks are already numbered in the file).

Statistics: Posted by Sir_Fz — Sat Apr 21, 2007 9:20 pm

write to a text file..

2007-04-21T19:55:24-04:00

still samething..

Code:

1 lomax1 evil

Statistics: Posted by sdays — Sat Apr 21, 2007 7:55 pm

write to a text file..

2007-04-21T19:43:27-04:00

+ You're not reading your file. Try

Code:

proc addtemp {} {  global temp  set addtemp_file [open $temp a+]  set lines [split [read $addtemp_file] \n]  set linecount [llength $lines]  puts $addtemp_file "[expr {$linecount+1}] $nick"  close $addtemp_file  return 0}

Statistics: Posted by Sir_Fz — Sat Apr 21, 2007 7:43 pm

write to a text file..

2007-04-21T18:41:10-04:00

It would seem you reset linecount to 0 after you've read all the lines in the file. Also, rather than using foreach to increase the count, you might considder using llength (since you already split it to a list) instead.

Statistics: Posted by nml375 — Sat Apr 21, 2007 6:41 pm

write to a text file..

2007-04-21T16:43:40-04:00

i done that now other bug..

heres tcl:

Code:

proc addtemp {} {  global linecount temp  set addtemp_file [open $temp a+]  set lines [split $addtemp_file "\n"]  foreach line $lines {   incr linecount  }  set linecount 0  puts $addtemp_file "$linecount $nick"  close $addtemp_file  return 0}

here's text file:

Code:

0 lomax0 evil

Statistics: Posted by sdays — Sat Apr 21, 2007 4:43 pm

write to a text file..

2007-04-21T07:34:32-04:00

You're opening the file in write-only mode. Check your "access" argument for your open-command. Best approach would be to first open your file as readonly, read all the data, close it, reopen it as write only (with truncation) and write the modified data.

Statistics: Posted by nml375 — Sat Apr 21, 2007 7:34 am

write to a text file..

2007-04-21T05:58:53-04:00

ok heres what i get now " Tcl error [temp_add]: channel "file12" wasn't opened for reading

Code:

set temp "templist.txt"proc addtemp {} {  global file linecount temp nick  set addtemp_file [open $temp w]  set linecount 0  set lines [split [read $addtemp_file] \n]  foreach line $lines {    incr linecount  }  puts $addtemp_file "$linecount $nick"  close $addtemp_file  return 0}

Statistics: Posted by sdays — Sat Apr 21, 2007 5:58 am

write to a text file..

2007-04-20T19:49:43-04:00

i need it to count the line before adding ,like add 1 then the line_here

Statistics: Posted by sdays — Fri Apr 20, 2007 7:49 pm

write to a text file..

2007-04-19T21:19:41-04:00

Code:

proc addtemp {nick uhost} {  global tempfile file   set file [open $tempfile a]  puts $file "$nick $uhost"  close $file  return 0}

Statistics: Posted by sdays — Thu Apr 19, 2007 9:19 pm

write to a text file..

2007-04-19T21:12:28-04:00

Show us your code.

Statistics: Posted by Sir_Fz — Thu Apr 19, 2007 9:12 pm

write to a text file..

2007-04-19T21:07:45-04:00

when my bot add a line to a text file i need it to add a num like below.

like:

Code:

1 line2 line

Statistics: Posted by sdays — Thu Apr 19, 2007 9:07 pm