VB.Net Tutorial/Data Type/Special Chars — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Текущая версия на 15:54, 26 мая 2010

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