' Programmed by 4x2y for http://www.vbforums.com/showthread.php?841949-Contest-11-Sorting-Characters

' Date Thu, 19 Jan, 2017

​

Option Strict On

Option Explicit On

​

Imports System

Imports System.Text.RegularExpressions

Public Module Module1

​

    Public Sub Main()

​

        Dim strInput As String

​

        Console.WriteLine("               ---")

        Console.WriteLine("             -------")

        Console.WriteLine("         ---------------")

        Console.WriteLine("     -----------------------")

        Console.WriteLine(" -------------------------------")

        Console.WriteLine("|  Sorting Characters by 4x2y  |")

        Console.WriteLine(" -------------------------------")

        Console.WriteLine("     -------------------")

        Console.WriteLine("         ---------------")

        Console.WriteLine("             -------")

        Console.WriteLine("               ---")

        Console.WriteLine()

        Console.WriteLine()

        Console.WriteLine("To exit press Enter without any input.")

        Console.WriteLine()

​

        Do

            Console.WriteLine("Enter string to sort?")

​

            strInput = Console.ReadLine.ToLower

​

            If strInput = String.Empty Then

                Exit Do

            Else

                Dim strChars() As Char = New Regex("[^a-z]").Replace(strInput, String.Empty).ToCharArray

                Array.Sort(strChars)

                Console.WriteLine(New String(strChars))

                Console.WriteLine()

            End If

        Loop

    End Sub

​

End Module

​