Mega Code Archive

 

Categories / VB.Net / Data Types

 

Split by ControlChars Tab

Public Class MainClass    Public Shared Sub Main()       Dim lineInput As String = "this is a \ttest"              Dim fields() As String = lineInput.Split(ControlChars.Tab)       Dim isFirstField As Boolean = True       Dim item As String       For Each item In  fields         If isFirstField Then            isFirstField = False         Else            Console.Write(",")         End If         Try            Console.Write(Convert.ToByte(Convert.ToBoolean(item)))         Catch            Console.Write(item)         End Try       Next item    End Sub End Class