egghelp/eggheads community

File Reading (Code to learn file functions); error

2005-08-09T03:34:54-04:00

{} is the last (empty) string which you get when splitting data by \n and your file ends with \n

Statistics: Posted by demond — Tue Aug 09, 2005 3:34 am

File Reading (Code to learn file functions); error

2005-08-08T22:26:42-04:00

OK, there's two places that could go, though I'm pretty sure you meant the one in the while statement. More importantly to me is *why* is that getting in there? I mean, where is that token coming from? Is this some default behaviour I could override?

OK, I found it. Easier solution is to change the <= to <

Statistics: Posted by darkmare — Mon Aug 08, 2005 10:26 pm

File Reading (Code to learn file functions); error

2005-08-08T21:38:30-04:00

Try [split $arg] instead of $arg.

Statistics: Posted by Sir_Fz — Mon Aug 08, 2005 9:38 pm

File Reading (Code to learn file functions); error

2005-08-08T20:09:20-04:00

OK, we're getting somewhere now. The code that works is as follows: (Mostly so those that come after me see what the fix was)

Code:

proc act:trigger {nick mask hand chan keyword arg} {if {[lindex $arg 0] == "Pix"} {global temp_file data counter temp_string file_name lengthset temp_file ""set data ""set temp_string ""set file_name [lindex $arg 3]if {[lindex $arg 2] == "create"} {set temp_file [open $file_name "w+"]putserv "PRIVMSG $chan :\001ACTION created file named $file_name\001"close $temp_fileputserv "PRIVMSG $chan :\001ACTION closed file named $file_name\001"return}if {[lindex $arg 2] == "read"} {set temp_file [open $file_name "r"]putserv "PRIVMSG $chan :\001ACTION opened file named $file_name\001"putserv "PRIVMSG $chan :\001ACTION read file named $file_name\001"set data [read -nonewline $temp_file]set temp_string [split $data "\n"]set length [llength $temp_string]putserv "PRIVMSG $chan :\001ACTION is parsing data. . .\001"set counter 0while {$counter < $length} {putserv "PRIVMSG $chan :\001ACTION sees \"[lindex $temp_string $counter]\" as line $counter in $file_name.\001"incr counter}close $temp_fileputserv "PRIVMSG $chan :\001ACTION closed file named $file_name\001"return}if {[lindex $arg 2] == "append"} {putserv "PRIVMSG $chan :\001ACTION opened file named $file_name\001"set temp_string ""set counter 4while {$counter <= [llength $arg]} {lappend temp_string [lindex $arg $counter]incr counter}set temp_file [open $file_name "a"]puts $temp_file $temp_stringputserv "PRIVMSG $chan :\001ACTION appended \"$temp_string\" to file named $file_name\001"close $temp_fileputserv "PRIVMSG $chan :\001ACTION closed file named $file_name\001"return}}}

Now, while not an error per se, I am getting some strange stuff:

* AuntieChrist Pix file append test.egt I Like Blue.
* PixelCatv2 opened file named test.egt
* PixelCatv2 appended "I Like Blue. {}" to file named test.egt
* PixelCatv2 closed file named test.egt
* AuntieChrist Pix file read test.egt
* PixelCatv2 opened file named test.egt
* PixelCatv2 read file named test.egt
* PixelCatv2 is parsing data. . .
* PixelCatv2 sees "Now for something *really* different. {}" as line 0 in test.egt.
* PixelCatv2 sees "Something not so different. {}" as line 1 in test.egt.
* PixelCatv2 sees "I Like Blue. {}" as line 2 in test.egt.
* PixelCatv2 closed file named test.egt

Where are those braces and the space coming from? Is there a way to get rid of them?

And thanks for the help

Statistics: Posted by darkmare — Mon Aug 08, 2005 8:09 pm

File Reading (Code to learn file functions); error

2005-08-08T19:04:56-04:00

I meant, I read all the FAQs and such; I didn't look at dates for any new ones, *that* part is my bad

Statistics: Posted by darkmare — Mon Aug 08, 2005 7:04 pm

File Reading (Code to learn file functions); error

2005-08-08T19:01:42-04:00

Well, I did, but it was over a year ago

Hehe, demond's post is less than a week old

Anyway, the first thing I caught was this:

Code:

set data [read -nonewline $temp_file]

you already closed $temp_file, you can't read it.

Statistics: Posted by Sir_Fz — Mon Aug 08, 2005 7:01 pm

File Reading (Code to learn file functions); error

2005-08-08T18:57:21-04:00

Well, I did, but it was over a year ago I only come here when I've gone over stuff for hours, and no luck, hence the long time between visits. My apologies.

Statistics: Posted by darkmare — Mon Aug 08, 2005 6:57 pm

File Reading (Code to learn file functions); error

2005-08-08T18:51:59-04:00

You didn't read the first sticky topic in this forum, use

Code:

 tags when showing snippets.

Statistics: Posted by Sir_Fz — Mon Aug 08, 2005 6:51 pm

File Reading (Code to learn file functions); error

2005-08-08T18:56:14-04:00

To learn about playing with files, I put this code in the v2-alpha of my bot. (If you'd like to see examples of some of it's new code, go to http://3whack.org/forums and look all the way at the bottom under PIxelCat Dev Team).

When I try to read the file, it gets all the way through the code, but doesn't spit anything out. Via the telnet, I get this error: "[15:18] Tcl error [act:trigger]: can not find channel named "file14""

What shows in channel is this:
* AuntieChrist Pix file read test.egt (yeah, I'm silly, I made a file extention for EGgdrop Text)
* PixelCatv2 file14
* PixelCatv2 opened file named test.egt
* PixelCatv2 read file named test.egt
* PixelCatv2 closed file named test.egt

For my tutorial, I used this post here: http://forum.egghelp.org/viewtopic.php?t=6885
The append and create work just fine, the reading isn't.

Code:

proc act:trigger {nick mask hand chan keyword arg} {if {[lindex $arg 0] == "Pix"} {global temp_file data counter temp_string file_nameset temp_file ""set data ""set temp_string ""set file_name [lindex $arg 3]if {[lindex $arg 2] == "create"} {set temp_file [open $file_name "w+"]putserv "PRIVMSG $chan :\001ACTION created file named $file_name\001"close $temp_fileputserv "PRIVMSG $chan :\001ACTION closed file named $file_name\001"return}if {[lindex $arg 2] == "read"} {set temp_file [open $file_name "r"]putserv "PRIVMSG $chan :\001ACTION $temp_file\001"putserv "PRIVMSG $chan :\001ACTION opened file named $file_name\001"putserv "PRIVMSG $chan :\001ACTION read file named $file_name\001"close $temp_fileputserv "PRIVMSG $chan :\001ACTION closed file named $file_name\001"set data [read -nonewline $temp_file]putlog "Debug B"set temp_string [split $data "\n"]putserv "PRIVMSG $chan :\001ACTION is parsing data. . .\001"set counter 0while {$counter <= [llength $data]} {putserv "PRIVMSG #chan :\001ACTION sees [lindex $temp_string $counter] as line [$counter + 1] in $file_name.\001"incr counter}return}if {[lindex $arg 2] == "append"} {set temp_file [open $file_name "r"]putserv "PRIVMSG $chan :\001ACTION opened file named $file_name\001"set temp_string ""set counter 4while {$counter <= [llength $arg]} {lappend temp_string [lindex $arg $counter]incr counter}set [lindex $arg 3] [open $file_name "a"]puts $temp_file $temp_stringputserv "PRIVMSG $chan :\001ACTION appended $temp_string to file named $file_name\001"close $temp_fileputserv "PRIVMSG $chan :\001ACTION closed file named $file_name\001"return}}}

Any help would be appreciated,
Brendan

Statistics: Posted by darkmare — Mon Aug 08, 2005 6:37 pm