String.GetEnumerator Method

' Example for the String.GetEnumerator( ) method. 
Imports System
Imports System.Collections
Imports Microsoft.VisualBasic

Module GetEnumerator

    Sub Main()
        Console.WriteLine( _
            "This example of String.GetEnumerator( ) " & _
            "generates the following output.")

        EnumerateAndDisplay("Test Case")
        EnumerateAndDisplay("Has" & vbTab & "two" & vbTab & "tabs")
        EnumerateAndDisplay("Two" & vbLf & "new" & vbLf & "lines")
    End Sub 'Main

    Sub EnumerateAndDisplay(Operand As String)

        Console.WriteLine( _
            vbCrLf & "The characters in the string ""{0}"" are:", Operand)

        Dim OperandEnum As IEnumerator = Operand.GetEnumerator()
        Dim CharCount As Integer = 0

        While OperandEnum.MoveNext()
            CharCount += 1
            Console.Write(" ""{0}"" ", OperandEnum.Current)
        End While

        Console.WriteLine(vbCrLf & " Character count: {0}", CharCount)

    End Sub 'EnumerateAndDisplay
End Module 'GetEnumerator

' This example of String.GetEnumerator( ) generates the following output. 
'  
' The characters in the string "Test Case" are: 
'  "T"  "e"  "s"  "t"  " "  "C"  "a"  "s"  "e" 
'  Character count: 9 
'  
' The characters in the string "Has       two     tabs" are: 
'  "H"  "a"  "s"  "       "  "t"  "w"  "o"  "     "  "t"  "a"  "b"  "s" 
'  Character count: 12 
'  
' The characters in the string "Two 
' new 
' lines" are: 
'  "T"  "w"  "o"  " 
' "  "n"  "e"  "w"  " 
' "  "l"  "i"  "n"  "e"  "s" 
'  Character count: 13