Localization StringInfo : StringInfo « Development « VB.Net

1. VB.Net
2. Development
3. StringInfo

Localization StringInfo

  
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

   
    
  

Related examples in the same category