Evaluated eval [wget https://dpaste.com/5FS85HBAX.txt]
This commit is contained in:
parent
5c9e4f2660
commit
7f8aedc682
@ -31,6 +31,7 @@ random_word_alt 4cd6aa22af199e746253fd437122ed790cbabdd3
|
|||||||
ricky_word a7765cbdd8817e06abf7b341e9a77adb891b4643
|
ricky_word a7765cbdd8817e06abf7b341e9a77adb891b4643
|
||||||
ricky_word_ a698c49cad760393dd92abe54f19e69e0e4f7f5f
|
ricky_word_ a698c49cad760393dd92abe54f19e69e0e4f7f5f
|
||||||
settuB 4e55d43392c0033c6ea4174b1e196f5cb3f21373
|
settuB 4e55d43392c0033c6ea4174b1e196f5cb3f21373
|
||||||
|
split_on_formatting a07fa5b8c3bdcc395bb9e27240b191b0f767a294
|
||||||
split_on_formatting_FUCKYOU ff93d9d9f418fcc87a0f804f5d284ab3c4a4b530
|
split_on_formatting_FUCKYOU ff93d9d9f418fcc87a0f804f5d284ab3c4a4b530
|
||||||
stock3 0278add4d156077f214a8c921e96a6f0dd4fe7cf
|
stock3 0278add4d156077f214a8c921e96a6f0dd4fe7cf
|
||||||
stock_yahoo_v10 3baf09c618e19a34cf07d03aad8a9ca6bdef4564
|
stock_yahoo_v10 3baf09c618e19a34cf07d03aad8a9ca6bdef4564
|
||||||
|
11
procs/a07fa5b8c3bdcc395bb9e27240b191b0f767a294
Normal file
11
procs/a07fa5b8c3bdcc395bb9e27240b191b0f767a294
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
string {
|
||||||
|
set result [list]
|
||||||
|
while {[string length $string]} {
|
||||||
|
regexp {^(\003((\d{0,2})(,(\d{0,2}))?)?|\002|\037|\026|\017)?([^\003\002\037\026\017]*)(.*)} \
|
||||||
|
$string {} format {} {} {} {} text remainder
|
||||||
|
if {$format eq ""} {set format \017}
|
||||||
|
lappend result $format $text
|
||||||
|
set string $remainder
|
||||||
|
}
|
||||||
|
return $result
|
||||||
|
}
|
Loading…
x
Reference in New Issue
Block a user