VB.Net Tutorial/Data Type/Special Chars

Concatenate vbTab with Integer

Option Strict On
 Imports System
 Module Module1
    Sub Main( )
       Dim counter As Integer
       For counter = 1 To 100
          Console.Write("{0} ", counter)
          If counter Mod 10 = 0 Then
             Console.WriteLine(vbTab & counter)
          End If
       Next counter
    End Sub 
 End Module

1 2 3 4 5 6 7 8 9 10    10
11 12 13 14 15 16 17 18 19 20   20
21 22 23 24 25 26 27 28 29 30   30
31 32 33 34 35 36 37 38 39 40   40
41 42 43 44 45 46 47 48 49 50   50
51 52 53 54 55 56 57 58 59 60   60
61 62 63 64 65 66 67 68 69 70   70
71 72 73 74 75 76 77 78 79 80   80
81 82 83 84 85 86 87 88 89 90   90
91 92 93 94 95 96 97 98 99 100  100

Insert line separator

Public Class Tester
    Public Shared Sub Main
        Dim result As New System.Text.StringBuilder
        result.AppendLine("A")
        result.AppendLine("B")
        result.AppendLine("C")
        result.AppendLine("D")
        result.Append("E")
        Dim resultAsString As String = result.ToString()
        Console.WriteLine(resultAsString)
        resultAsString = InsertLine(resultAsString, 3, "(inserted)")
        Console.WriteLine(resultAsString)
 
    End Sub
    Public Shared Function InsertLine(ByVal source As String, _
      ByVal lineNum As Integer, _
      ByVal lineToInsert As String) As String
        Dim lineSet() As String
        Dim atLine As Integer
        lineSet = Split(source, vbNewLine)
        atLine = lineNum
        If (atLine < 0) Then atLine = 0
        If (atLine >= lineSet.Length) Then
            lineSet(lineSet.Length - 1) &= vbNewLine & lineToInsert
        Else
            lineSet(atLine) = _
               lineToInsert & vbNewLine & lineSet(atLine)
        End If
        Return Join(lineSet, vbNewLine)
    End Function
End Class

A
B
C
D
E
A
B
C
(inserted)
D
E

NewLine sign: vbNewLine, vbLrLf, vbCr, Environment.NewLine, ControlChars.NewLine

Public Class Tester
    Public Shared Sub Main
        Dim result As New System.Text.StringBuilder
        result.Append("vbNewLine").Append(vbNewLine)
        result.Append("vbCrLf").Append(vbCrLf)
        result.Append("vbCr").Append(vbCr)
        result.Append("vbLf").Append(vbLf)
        result.Append("Chr(13)").Append(Chr(13))
        result.Append("Chr(10)").Append(Chr(10))
        result.Append("Chr(13)
"Chr" is not recognized as an internal or external command,
operable program or batch file.
        result.Append("Environment.NewLine").Append(Environment.NewLine)
        result.Append("ControlChars.CrLf").Append(ControlChars.CrLf)
        result.Append("ControlChars.NewLine").Append(ControlChars.NewLine)
        Console.WriteLine(result.ToString())
 
    End Sub
End Class

vbNewLine
vbCrLf
vbLf
Chr(10)
Chr(13) & Chr(10)
Environment.NewLine
ControlChars.CrLf
ControlChars.NewLine

vbNewLine

Public Class Tester
    Public Shared Sub Main
        Console.WriteLine("a" & vbNewLine & "b")
    End Sub
End Class

a
b