Evaluated rename split_on_formatting split_on_formatting_FUCKYOU

This commit is contained in:
radical_honesty on #flashsupport 2023-01-08 17:03:06 -08:00 committed by dupa dup
parent 870c1f218d
commit 2131e7500c
2 changed files with 2 additions and 0 deletions

View File

@ -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_FUCKYOU ff93d9d9f418fcc87a0f804f5d284ab3c4a4b530
stock3 0278add4d156077f214a8c921e96a6f0dd4fe7cf stock3 0278add4d156077f214a8c921e96a6f0dd4fe7cf
stock_yahoo_v10 3baf09c618e19a34cf07d03aad8a9ca6bdef4564 stock_yahoo_v10 3baf09c618e19a34cf07d03aad8a9ca6bdef4564
strip_all 4f2fcfac11b586cc810f9858a5b5613f19d25525 strip_all 4f2fcfac11b586cc810f9858a5b5613f19d25525

View File

@ -0,0 +1 @@
str {set ret [list]; while {[string length $str]} {regexp {^(((\d{0,2})(,(\d{0,2}))?)?||||)?([^]*)(.*)} $str {} f {} {} {} {} t r; if {$f eq ""} {set f }; lappend ret $f $t; set str $r}; return $ret}