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
|