seeking an example of small string proc...

[abn0rmal]

does anyone have an example of procedure that cuts one long string into short ones ?
but it should not cut words.
actually i need it because ircd cuts long strings that my eggy tries to msg to chan...

[ppslim]

somthing like

Code: Select all

proc ml_privmsg {to text} {
  while {$text != ""} {
    puthelp "PRIVMSG $to :[string range $text 0 50]"
    set text [string range $text 51 end]
  }
}

use the command as:

Code: Select all

ml_privmsg "destination" "very very very long line of text"

Note, this can break a word in 2 (placing different portions on different lines).

There are a few changes that could be made, but I can't be bothered.

[abn0rmal]

thanx!

[Iridium]

Heh, I wrote this then went out. Mine is a little more complex, as it will not split words down.

Code: Select all

proc splitstring {string strmax} {
	set strlen [string length $string]
	putlog "blah - $strlen | blah - $strmax"
	if {$strlen > $strmax} {
		set curpos 0
		set lstartpos 0
		set lspacepos $strlen
		set final ""
		for {set i 0} {$i <= $strlen} {incr i} {
			putlog "$curpos | $final | $lspacepos | $i | $lstartpos | $strlen"
			if {$i==$strlen} {
				lappend final [string trim [string range $string $lstartpos end]]
				return $final
			}
			if {$curpos >= $strmax} {
				set curpos 0
				lappend final [string trim [string range $string $lstartpos $lspacepos]]
				set lstartpos $lspacepos
			}
			if {[string index $string $i] == " "} {
				set lspacepos $i
			}
			incr curpos
		}
		return $final
	}
	return [list $string]
}

This returns a list containing each line.

E.G.

Code: Select all

foreach z [splitstring "my very very very long line of text that will go on forever until I die" 10] {
  putserv "PRIVMSG #wherever :$z"
}

the function there will output "{my very very very} {long line of text} {that will go on forever} {until I die}"

and the loop will output (in #whatever)

Code: Select all

<botname> my very very very
<botname> long line of text
<botname> that will go on forever
<botname> until I die

Hope that helps.

[abn0rmal]

cute :) indeed, thank you...

[Iridium]

No problem

[Iridium]

Oh crap, I just realised I left a putlog in there.. that will make your partyline REALLY spammy..

I suggset you remove all putlogs, I used them to debug..

[abn0rmal]

huh... i'll get over it ;)))
#thx again...

[Wcc]

For one, 50 is alittle short to be cutting it to, as a msg can be a total of 512 chars. I'd use 400 to be safe, being that the nick, etc take up space.. Hell, even 300 if needed. Here is the code I use. It will also not split up words.

Code: Select all

proc send_privmsg_wrap_text {dest text} {
  while {[string compare $text ""] != 0} {
    if {[string length $text] <= 400} { putserv "PRIVMSG $dest :$text" ; return }
    putserv "PRIVMSG $dest :[string range $text 0 [set lr [string last " " [string range $text 0 400]]]]"
    set text [string range $text $lr end]
  }
}

[abn0rmal]

small && nice code :)