Call StrTrim String '*' STR_RIGHT,
     StrReplace * ':' ';' '*',
     StrSplit * "\n" '*',
     Sort * '*' ( S, 'Order_by' : 
                                  Order_by = Tokens.1 
                                  Where Tokens : Array <- S, ';'
                ),
     StrJoin * "\n" 'New_string'