VB.Net/Development/StringInfo

Localization StringInfo

<source lang="vbnet"> Imports System.Globalization Module Module1

  Sub Main()
     Dim MyStr, OutBuf As String
     Dim Iter As TextElementEnumerator
     MyStr = "this is a test"
     Iter = StringInfo.GetTextElementEnumerator(MyStr)
     Do While (Iter.MoveNext)
        OutBuf = "Character at position " + Iter.ElementIndex.ToString() + " = " + Iter.Current
        Console.WriteLine(OutBuf)
     Loop
     Dim k As Int16
     For k = 0 To Len(MyStr) - 1
        OutBuf = "Character at position " + k.ToString + " = " + StringInfo.GetNextTextElement(MyStr, k)
        Console.WriteLine(OutBuf)
     Next
     Dim j As Int16
     For j = 1 To Len(MyStr)
        OutBuf = "Character at position " + j.ToString + " = " + Mid(MyStr, j, 1)
        Console.WriteLine(OutBuf)
     Next
  End Sub

End Module

 </source>