egghelp/eggheads community

Help split the result

2007-05-02T07:24:47-04:00

Read the faq about basic file operations (reading/writing files) and use puts instead of puthelp of course.

Statistics: Posted by rosc2112 — Wed May 02, 2007 7:24 am

Help split the result

2007-05-02T02:37:07-04:00

how about i split file.txt?

set sometext "some real long string of text over 400 chars for example"

set sometext "file.txt"

Statistics: Posted by Merky — Wed May 02, 2007 2:37 am

some enhancement for splitting long lines

2006-08-03T02:11:01-04:00

I did a little enhancement to this word-wrapper, thought I'd share

Code:

############################################################################################################# If the input came from a msg bind, we set $chan to "privmsg" # for example:bind msg - !mytrigger myprocproc mytrigger {nick uhost hand text} {        # pass the params to 'wrapproc' and set the channelname to "privmsg"        wrapproc $nick $uhost $hand privmsg $text        return}bind pub - !mytrigger wrapprocproc wrapproc {nick uhost hand chan text} {        if {$chan == "privmsg"} {set chan $nick}        # inputtitle would normally be the commandline given with the trigger, such as '!horoscope leo'         # title would be set to 'leo'        # You'd have to do further processing on the $text input of course, to limit its length,         # split it to make it tcl-special char safe, etc.        if {$text != ""} {set inputtitle "$text"} else {set inputtitle "titlefoo"}        # here we grab data into a var, say $sometext, from something like a geturl/regexp operation        set sometext "some real long string of text over 400 chars for example"        # word wrapper        set j 0        set linecount 0        foreach line [split $sometext \n] {                if {$line != ""} {                        set len 375                        set splitChr " "                        set out [set cur {}]; set i 0                        foreach word [split $line $splitChr] {                                if {[incr i [string len $word]]>$len} {                                        lappend out [join $cur $splitChr]                                        set cur [list $word]                                        set i [string len $word]                                        incr j                                } else {                                        lappend cur $word                                }                                incr i                        }                        lappend out [join $cur $splitChr]                        foreach line2 $out {                                if {$linecount == 0} {                                        set line2 [linsert $line2 0 \002[string totitle $inputtitle]\002:]                                        incr linecount                                        if {$j >= 1} {                                                set line2 [linsert $line2 end \002(con't)\002]                                                set j [expr $j - 1]                                        }                                } else {                                        set line2 [linsert $line2 0 \002($inputtitle con't)\002]                                        if {$j >= 1} {                                                set line2 [linsert $line2 end \002(con't)\002]                                                set j [expr $j - 1]                                        }                                }                                puthelp "PRIVMSG $chan :$line2"                        }                }        }        puthelp "PRIVMSG $chan :\[end of $inputtitle output.\]"}

I've been using this for various scripts, like the dream and funny horoscope scripts I made. The final result looks something like:

Taurus: Everything will suddenly sound good to you today. This may be due to a syringing appointment you have earlier in the week, or it may be become love has just entered your life in the form someone floating down a river in a large plastic swan-type boat. Or it may just be because you've won a serious amount of money and people want to shower you with platitudes. Speaking of (con't)
(taurus con't) which - you do look amazing today! Parts of you feel like giving up the ghost today, but feeding those parts with ice-cream and bacon bits may revive them, to an extent. Clowns with pickaxes will haunt your dreams tonight and will affect you at around mid-morning the following day. The effect of such dreams will cause you to a) be tired, b) look startled when people slam (con't)
(taurus con't) the door, or c) be nice to any clowns you meet.
[end of taurus horoscope]

Statistics: Posted by rosc2112 — Thu Aug 03, 2006 2:11 am

Help split the result

2006-03-24T13:03:54-04:00

There is another problem, message send, too fast, the bot always quit (excess flood). any idea? i set the char to 250
how to make it delay 5seconds each line?

1st:
"PRIVMSG $chan :" is at least 12 characters long, depending on channel maybe even 20. So I'd advise to wrap at around 230-235 chars, if want to keep line size below 256 bytes.
2nd:
if your bot floods on putserv or even on puthelp, you should consider increasing '#define msgrate' in your 'src/mod/server.mod/server.c' (and of course recompile and reinstall). This will however slow down reaction speed of the bot, but better 1s later than ending in being kicked.
Default and advised value is 2, my bots run well with 1 on QuakeNet and EuIRCnet. But might need to be set to 3 or 4 on more strict networks and depending on expected line length (1 assumes you do not exceed 250 characters/line).

Statistics: Posted by De Kus — Fri Mar 24, 2006 1:03 pm

Help split the result

2006-03-17T23:37:06-04:00

There is another problem, message send, too fast, the bot always quit (excess flood). any idea? i set the char to 250
how to make it delay 5seconds each line?

Statistics: Posted by Reynaldo — Fri Mar 17, 2006 11:37 pm

Help split the result

2006-03-17T20:07:09-04:00

Code:

foreach line [wordwrap $word] {    puthlp "PRIVMSG $chan :$line" }

i got it!
Thank you Guys

Statistics: Posted by Reynaldo — Fri Mar 17, 2006 8:07 pm

Help split the result

2006-03-17T18:43:48-04:00

btw. if server supports multitargeting of messages I would suggest to use:
[join [channels] ,]
as target .

Statistics: Posted by De Kus — Fri Mar 17, 2006 6:43 pm

Help split the result

2006-03-17T17:30:50-04:00

Code:

set output "$wordwrap $word"

Did you mean

Code:

set output [wordwrap $word]

Statistics: Posted by Sir_Fz — Fri Mar 17, 2006 5:30 pm

Help split the result

2006-03-17T01:19:40-04:00

after parse the html into $word

Code:

    set output "$wordwrap $word"    foreach x [channels] {    putserv "PRIVMSG $x :$output"  }proc wordwrap {str {len 70} {splitChr { }}} {    set out [set cur {}]; set i 0    foreach word [split [set str][unset str] $splitChr] {       if {[incr i [string len $word]]>$len} {          lappend out [join $cur $splitChr]          set cur [list $word]          set i [string len $word]       } {          lappend cur $word       }       incr i    }    lappend out [join $cur $splitChr] }

seems it's not working

Statistics: Posted by Reynaldo — Fri Mar 17, 2006 1:19 am

Help split the result

2006-03-16T05:51:43-04:00

search function is your friend:
http://forum.egghelp.org/viewtopic.php?t=6690#33031

Statistics: Posted by De Kus — Thu Mar 16, 2006 5:51 am

Help split the result

2006-03-16T03:15:27-04:00

i've already grab from web into $result

Code:

foreach line [split $result "\n"] {puthlp "PRIVMSG $nick :$notc $line"}

but the problem is, some lines in $result is to long. how to make it about max 200 words each lines?.

Statistics: Posted by Reynaldo — Thu Mar 16, 2006 3:15 am