(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
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