Sub SortStringLines(ByRef $s As String)


Sorts all lines in the string $s. Lines must be separated by a carriage return and line feed (chr(13)+chr(10), or CRLF).


Parameters


  • $s ... String expression that contains the lines to sort.


Example:

Dim $s

$s = "One" + Chr(13) + Chr(10) + "Two" + Chr(13) + Chr(10) + "Three"
SortStringLines($s)
' returns $s = "One"#13#10"Three"#13#10"Two"