egghelp/eggheads community

Spliting text in two lines

2019-01-27T13:54:38-04:00

As i was looking on the forums for something I stumbled onto a very old discussion (this) where user and strikelight (two forum users, long time idle sadly) debated over a pice of code user made to wrap some text output. Here is the final code with the changes they discussed:

Code:

proc wordwrap {str {len 70} {splitChr { }}} {set out [set cur {}]; set i 0foreach word [split [set str][set str ""] $splitChr] {if {[incr i [string len $word]]>$len} {lappend out [join $cur $splitChr]set cur [list $word]set i [string len $word]} else {lappend cur $word}incr i}   lappend out [join $cur $splitChr]}

Statistics: Posted by caesar — Sun Jan 27, 2019 1:54 pm

Spliting text in two lines

2019-01-24T08:59:41-04:00

Yes its from a trivia script i wrote from scratch.

I was thinking of something to add the letters after the split, but never got it working.

Statistics: Posted by Madalin — Thu Jan 24, 2019 8:59 am

Spliting text in two lines

2019-01-24T03:40:22-04:00

Basically the line you are mentioned is most likely from a trivia bot and is "obfuscated" by adding a character between words and a special color so that regular legit users can see the question without the extra colored characters, but anyone else why tries to be cheeky or copy/paste the question would have a hard time "decoding" it back to a normal question.

If you own the bot (based on your claim that you can start/stop the "obfuscation" process) that is spitting the trivia questions why do you need this? What exactly do you want to achieve here? Want to cheat at your own game?

Since the "special" character used to "obfuscate" the code (in the given example is "m") is also found in the other words used in the question reversing the process is kind off an impossible task, unless you know exactly at what positions it was added. For example an extra 'm' is added at 2, 5, 8, and so on. So if you know the pattern then is easy to replace the special character with a space and then recreate the question into a "word word word" that with the code I mentioned would get the result you wanted.

Statistics: Posted by caesar — Thu Jan 24, 2019 3:40 am

Spliting text in two lines

2019-01-23T15:05:30-04:00

heartbroken: Works only if i stop the antihack part. So when the questions is "word word word" works, but when its in a single word it brocks.

Anyone with an idea on how to make anything split using the antihack option?

Antihack = it adds a random letter each question between the spaces of the words, so if you try to copy - paste the question it would be "impossible" to read.

Statistics: Posted by Madalin — Wed Jan 23, 2019 3:05 pm

Spliting text in two lines

2019-01-23T14:42:45-04:00

It looks that way because of the ANTI HACK part.

Statistics: Posted by Madalin — Wed Jan 23, 2019 2:42 pm

Spliting text in two lines

2019-01-22T12:16:51-04:00

tcllib/textutil could be an alternative: https://core.tcl.tk/tcllib/doc/trunk/em ... split.html

Statistics: Posted by heartbroken — Tue Jan 22, 2019 12:16 pm

Spliting text in two lines

2019-01-22T01:34:12-04:00

That script tries to split the text in a correct place, at the nearest space.

The string you try is long, but has no spaces.

That is not a valid string, there is no single "word" that long:)

Statistics: Posted by SpiKe^^ — Tue Jan 22, 2019 1:34 am

Spliting text in two lines

2019-01-21T13:10:02-04:00

Code:

proc Trivia247:wraptext {chan text characters} {   set len [string length $text] putlog $len    while {$len} {       if {$len > $characters} {          set cut [string range $text 0 [expr $characters - 1]]          set output [string range $cut 0 [string last " " $cut]]          set text [string range $text [string length $output] end]          incr len -$characters       } else {          set output [string range $text 0 $len]          set len 0       }putlog "$output"putlog "[string length $output]"      putserv "PRIVMSG $chan :$output"   } }

DCC CHAT:

[18:09:03] 1499
[18:09:03] BONUS +14:
[18:09:03] 44

[18:09:03] 0

[18:09:03] 0
[18:09:03] InmcemanmamavutmlocmprimamparticiparemamRomanieimlamunmturneumfinalmalmCampionatuluimMondialInmc
[18:09:03] 300

Channel:

BONUS +14:
InmcemanmamavutmlocmprimamparticiparemamRomanieimlamunmturneumfinalmalmCampionatuluimMondialInmc
1st Hint: *** +12 Bonus
2nd Hint: d** +10 Bonus
3rd Hint: *aa +8 Bonus

Don`t why... from your example it should work.

Statistics: Posted by Madalin — Mon Jan 21, 2019 1:10 pm

Spliting text in two lines

2019-01-20T14:36:08-04:00

In PHP there's a function called wordwrap that dose this nicely. Here's how I got about the same results in TCL.

Code:

proc wordwrap {text max} {set len [string length $text]while {$len} {if {$len > $max} {set cut [string range $text 0 [expr $max - 1]]set output [string range $cut 0 [string last " " $cut]]set text [string range $text [string length $output] end]incr len -$max} else {set output [string range $text 0 $len]set len 0}puts "output: $output"}}

results:

Code:

% set text "Evening, can anyone help me with a code that will split the text in two lines (getting all the text in does 2 lines) if its bigger than a max length ? Thanks"Evening, can anyone help me with a code that will split the text in two lines (getting all the text in does 2 lines) if its bigger than a max length ? Thanks% wordwrap $text 80output: Evening, can anyone help me with a code that will split the text in two linesoutput: (getting all the text in does 2 lines) if its bigger than a max length ? Thank% wordwrap $text 50output: Evening, can anyone help me with a code that willoutput: split the text in two lines (getting all the textoutput: in does 2 lines) if its bigger than a max lengthoutput: ? Thanks% wordwrap $text 100output: Evening, can anyone help me with a code that will split the text in two lines (getting all the textoutput: in does 2 lines) if its bigger than a max length ? Thanks

Notice that it doesn't break words so it looks nicely.

PS: The code at the end of the Character hiding and showing topic isn't working or completly forgot about that topic?

PS #2: On Rosetta Code there's wrapParagraph with another approach on this.

Statistics: Posted by caesar — Sun Jan 20, 2019 2:36 pm

Spliting text in two lines

2019-01-20T11:36:57-04:00

Evening, can anyone help me with a code that will split the text in two lines (getting all the text in does 2 lines) if its bigger than a max length ? Thanks

Statistics: Posted by Madalin — Sun Jan 20, 2019 11:36 am