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

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

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

PadLeft, PadRight and PadCenter

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Dim content1 As String
       Dim content2 As String
       Dim content3 As String
       Dim content4 As String
       content1 = "Not padded"
       content2 = "PadLeft".PadLeft(50)
       content3 = "PadRight".PadRight(50)
       content4 = "PadCenter"
       content4 = content4.PadLeft((50 + _
          content4.Length) \ 2).PadRight(50)
       Console.WriteLine(String.Format("{0}{4}{1}{4}{2}{4}{3}", _
          content1, content2, content3, content4, vbNewLine))    
   End Sub

End Class</source>

Not padded
                                           PadLeft
PadRight
                    PadCenter

PadLeft, PadRight and PadCenter with dot

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Dim content1 As String
       Dim content2 As String
       Dim content3 As String
       Dim content4 As String
       content1 = "Not padded"
       content2 = "PadLeft".PadLeft(50, "."c)
       content3 = "PadRight".PadRight(50, "."c)
       content4 = "PadCenter"
       content4 = content4.PadLeft((50 + content4.Length) \ 2, _
          "."c).PadRight(50, "."c)
       Console.WriteLine(String.Format("{0}{4}{1}{4}{2}{4}{3}", _
          content1, content2, content3, content4, vbNewLine))  
   End Sub

End Class</source>

Not padded
...........................................PadLeft
PadRight..........................................
....................PadCenter.....................

String.Pad

<source lang="vbnet">public class Test

  public Shared Sub Main
       Dim strLeftPad, strRightPad As String
       strLeftPad = "[" & "Visual Basic Express".PadLeft(28) & "]"
       strRightPad = "[" & "Visual Basic Express".PadRight(28) & "]"
       Console.WriteLine(strLeftPad & vbCrLf & strRightPad)
       strLeftPad = "[" & "Visual Basic Express".PadLeft(28, "@") & "]"
       strRightPad = "[" & "Visual Basic Express".PadRight(28, ".") & "]"
       Console.WriteLine(strLeftPad & vbCrLf & strRightPad)
  End Sub

End class</source>

[        Visual Basic Express]
[Visual Basic Express        ]
[@@@@@@@@Visual Basic Express]
[Visual Basic Express........]