egghelp/eggheads community

problem with ;

2001-10-14T01:08:00-04:00

damn it... after that all bot still says a text with {}
i'll go to sleep now and try to do something tomorrow...

{;)}

Statistics: Posted by Guest — Sun Oct 14, 2001 1:08 am

problem with ;

2001-10-14T00:50:00-04:00

Taking your example and changing it around the the right format yeilds.

Code:

proc pub_blabla {nick uhost hand chan strrr} {  set str [split $strrr]  lappend botarray $str...proc save_blabla {} {  set fff [open "some_file" w]  foreach n $botarray {    puts $fff " "[join $n]""  }

There was some un-needed code in there, so removed it.

if { [lsearch $botarray [lindex $botarray $n]] >= $n } {

this is the equvilant of "Stab myself in heart to see if there is a knife in my heart.

Statistics: Posted by ppslim — Sun Oct 14, 2001 12:50 am

problem with ;

2001-10-14T00:34:00-04:00

no, not so easy, i'm idiot:)))
once again:

proc pub_blabla {nick uhost hand chan strrr} {
set str [split [lrange $strrr 0 end]]
lappend botarray $str
...
proc save_blabla {} {
set fff [open "some_file" w]
for {set n 0} {$n < [llength $botarray]} {incr n} {
if { [lsearch $botarray [lindex $botarray $n]] >= $n } {
puts $fff " "[lindex $botarray $n]""
}

please, show me in my code, where should i use JOIN

Statistics: Posted by Guest — Sun Oct 14, 2001 12:34 am

problem with ;

2001-10-13T23:42:00-04:00

OK - here is a better example, with some output.

Here is a basic TCL session, that takes some punishment with some ; in it.

% set h ""
% lappend h "heya peeps "
{heya peeps }
% lappend h ";)"
{heya peeps } {;)}
% lappend h test
{heya peeps } {;)} test
% lappend h test again
{heya peeps } {;)} test test again
% lappend h {and some more }
{heya peeps } {;)} test test again {and some more }
lappend h {j {;)}}
{heya peeps } {;)} tes test again {and some more } {j {;)}}

OK!

Now, to make make it spit each item in the list out

% foreach a $h { puts stdout $a }
heya peeps

test
test
again
and some more
j {;)}

So lets do it the proper way

% foreach a $h { puts stdout [join $a] }
heya peeps

test
test
again
and some more
j

NOTE: the use of "join" in the last outout, it made sure the {;)} became

[ This Message was edited by: ppslim on 2001-10-13 21:44 ]

Statistics: Posted by ppslim — Sat Oct 13, 2001 11:42 pm

problem with ;

2001-10-13T23:37:00-04:00

the thing is that bot adds user-text to list and then reads list and says random phrase.
so i need to get rid of these {} before it saves text to file

Statistics: Posted by Guest — Sat Oct 13, 2001 11:37 pm

problem with ;

2001-10-13T23:33:00-04:00

Post the script here.

Yes, as stated in my previous post, the tcl will add the {}, coz it is suposed to, it could be dangerous not to.

{} = good
{} = good

So long as you join the text later, it will work fine.

Statistics: Posted by ppslim — Sat Oct 13, 2001 11:33 pm

problem with ;

2001-10-13T23:27:00-04:00

ohhh.. tried to use:
lappend myarray [split $str]

it doesn't help, bot still adds {} to the text :/

dunno why, i did as you told...

Statistics: Posted by Guest — Sat Oct 13, 2001 11:27 pm

problem with ;

2001-10-13T22:55:00-04:00

Due to the way some chars work in TCL, they need to be corectly handled. {}[];$ are a few of these chars.

No regsub is required, just the corect useage of a few commands.

When taking input, use the split command. This will make sure that none of the text is interprited as a commands or anything else.

When writting it to file, use the join command, this will make sure it is written corectly.

EG, lets take a string of text from a channel, and put it into a a list (what you refer to as an array, is actualy a list).

Code:

bind pubm - * test:procproc test:proc {nick uh hand chan arg} {  global mylist  lappend mylist "[split $arg]"}

yes, this will mean that ; becomes {;}, but that doesn't matter, as it means the script is corectly storing things.

To write to file, we can now use

Code:

proc writefile {} {  gloabl mylist  set fp [open "some.file" w]  foreach a $mylist {    puts $fp "[join $a]"  }}

Statistics: Posted by ppslim — Sat Oct 13, 2001 10:55 pm

problem with ;

2001-10-13T22:35:00-04:00

#i thought it should help, now i think not
proc RegSubStr {str} {
regsub -all {;} $str {;} outstr
return $outstr
}
#adding text written by user to the array
lappend DumbBotArray [RegSubStr $str]
#saving it to file (with for ... $n)
puts $txtf " "[lindex $DumbBotArray $n]""
#or
puts $txtf " {[lindex $DumbBotArray $n]}"

suggestions?

[ This Message was edited by: abn0rmal on 2001-10-13 20:48 ]

Statistics: Posted by Guest — Sat Oct 13, 2001 10:35 pm

problem with ;

2001-10-13T22:20:00-04:00

You aren't handling lists and strings properly. You should paste your script here so one of us can tell you where exactly the problem lies.

Statistics: Posted by Petersen — Sat Oct 13, 2001 10:20 pm

problem with ;

2001-10-13T22:18:00-04:00

Let it add it to the array like this. Use the "join" command when reading the array later.

Statistics: Posted by ppslim — Sat Oct 13, 2001 10:18 pm

problem with ;

2001-10-13T21:57:00-04:00

i'm writing a "talking script"...
the bot adds text, written by user to the array, and saves it with interval.
the problem is when user writes a text containing ` ; `, then bot adds {} to it
and i get {;)} instead of normal smile
i tried to regsub it ( ` ; ` to ` ; ` ), before adding to array, but it doesn't help and even makes the bot not to write that string to file..

what should i do?

Statistics: Posted by Guest — Sat Oct 13, 2001 9:57 pm