How to create an array containing a range of characters in VB.NET

1 Answer

0 votes
Imports System
Imports System.Linq

Public Class CharacterRangeArray
    Public Shared Function CreateCharacterRangeArray(ByVal startChar As Char, ByVal endChar As Char) As Char()
        If endChar < startChar Then
            Throw New ArgumentException("End character must be greater than or equal to start character.")
        End If

        Return Enumerable.Range(Convert.ToInt32(startChar), Convert.ToInt32(endChar) - Convert.ToInt32(startChar) + 1).
						  Select(Function(i) Convert.ToChar(i)).
	                      ToArray()
    End Function
			
	Public Shared Sub PrintCharacters(charArray As Char())
        For Each ch As Char In charArray
            Console.Write(ch & " ")
        Next
 
        Console.WriteLine()
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim charArray As Char() = CreateCharacterRangeArray("a"c, "m"c)

		PrintCharacters(charArray)
    End Sub
End Class



' run:
'
' a b c d e f g h i j k l m 
'

 



answered Mar 21 by avibootz
...