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