VB.Net Tutorial/Data Type/Special Chars
Содержание
Concatenate vbTab with Integer
<source lang="vbnet">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</source>
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
<source lang="vbnet">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</source>
A B C D E A B C (inserted) D E
NewLine sign: vbNewLine, vbLrLf, vbCr, Environment.NewLine, ControlChars.NewLine
<source lang="vbnet">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</source>
vbNewLine vbCrLf vbLf Chr(10) Chr(13) & Chr(10) Environment.NewLine ControlChars.CrLf ControlChars.NewLine
vbNewLine
<source lang="vbnet">Public Class Tester
Public Shared Sub Main Console.WriteLine("a" & vbNewLine & "b") End Sub
End Class</source>
a b