VB.Net Tutorial/Data Type/String Pad
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........]