egghelp/eggheads community

need to split a line if too long

2004-06-17T12:03:39-04:00

FYI, the wordwrap proc I posted here is about 3-10 times faster (depending on the data). (it also tries to keep lines below the max whenever possible without splitting words.)

Statistics: Posted by user — Thu Jun 17, 2004 12:03 pm

need to split a line if too long

2004-06-17T11:39:44-04:00

Also from me a BIG THANKS for that code!!!

Statistics: Posted by Jagg — Thu Jun 17, 2004 11:39 am

need to split a line if too long

2004-05-29T15:47:52-04:00

YES YES YES
thankyou thankyou thankyou thankyou lol

been geting on my nerves for so so long

Statistics: Posted by ShavdApe — Sat May 29, 2004 3:47 pm

need to split a line if too long

2004-05-29T15:20:50-04:00

i guess i was a bit fast earlier, it wont cut words in two

here its set to 2

.t set cs [cutlen "aaa bb cc d" 2]; foreach c $cs { putlog $c }
aaa
bb
cc
d

and with 4

.t set cs [cutlen "aaa bb cc d" 4]; foreach c $cs { putlog $c }
[21:31] aaa bb
[21:31] cc d

...
See if this works

set cutlines [cutlen [split $list] 75]
foreach cutline $cutlines {
putserv "PRIVMSG ......"
}

Statistics: Posted by greenbear — Sat May 29, 2004 3:20 pm

need to split a line if too long

2004-05-29T15:23:59-04:00

Doesnt seem to work

I tried reducing the length to 5 and it didnt work

Code:

............foreach row [sql "SELECT crapword FROM crapwords"] {incr wordcount 1append wordlist [lindex $row 0] " "    }putquick "PRIVMSG $chan : Total CrapFilter words: $wordcount"putlog " Count $wordcount "set string $wordlist set cutlines [cutlen $string 75] foreach cutline $cutlines {   putserv "PRIVMSG $chan :$cutlines " }}}proc cutlen {str len} { if {$str == ""} {return $str} set strlist "" while {[string length $str] > $len} {  set line ""  foreach word $str {    set line [lappend line $word]    if {[string length $line] >= $len} {      set strlist [lappend strlist $line]      set strpos [expr [string length $line] + 1]      set str [string range $str $strpos end]      break    }  } } set strlist [lappend strlist $str] }

I tried to reduce the length to 20 and no I still got the same line and not split over multiple lines
Left it at 75 same result and no multiple line

It does seem to have done something its added { } around the string that matches the length.
I would split using } but I have that charachter in the list of words so I would run into a problem there I guess.

Statistics: Posted by ShavdApe — Sat May 29, 2004 3:09 pm

need to split a line if too long

2004-05-29T14:51:58-04:00

Something like this should work

Code:

proc cutlen {str len} {if {$str == ""} {return $str}set strlist ""while {[string length $str] > $len} { set line "" foreach word $str {   set line [lappend line $word]   if {[string length $line] >= $len} {     set strlist [lappend strlist $line]     set strpos [expr [string length $line] + 1]     set str [string range $str $strpos end]     break   } }}set strlist [lappend strlist $str]}

then just call it with this code
and just change 75 to how many chars you want on each line

Code:

set cutlines [cutlen $var 75]foreach cutline $cutlines {  putserv "PRIVMSG ......"}

Hope this helps

Statistics: Posted by greenbear — Sat May 29, 2004 2:51 pm

need to split a line if too long

2004-05-29T14:27:46-04:00

I have a bunch of words stored in a mysql database that I want to list but the line is too long

Code:

foreach row [sql "SELECT crapword FROM crapwords"] {incr wordcount 1append wordlist [lindex $row 0] " "    }putquick "PRIVMSG $chan :Total Crapwords: $wordcount"putquick "PRIVMSG $chan : $wordlist "

anyway i can split the line once it reaches a certain size?

Statistics: Posted by ShavdApe — Sat May 29, 2004 2:27 pm