| 指定の文字数になるまで先頭又は末尾に指定文字を埋める (２個) (SNo.015) １．文字を右寄せし指定の文字数になるまで左側に空白または指定した文字を埋める ２．文字を左寄せし指定の文字数になるまで右側に空白または指定した文字を埋める |
|
| 使用コントロール | Button1 Button2 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
１．文字を右寄せし指定の文字数になるまで左側に空白または指定した文字を埋める
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click '文字を右寄せし、指定の文字数になるまで、左側に空白または指定した文字を埋める Dim str1 As String = "12345" Dim wk As String wk = "[" & str1.PadLeft(10, "0") & "]" Debug.WriteLine(wk) '結果 [0000012345] End Sub |
|
|
２．文字を左寄せし指定の文字数になるまで右側に空白または指定した文字を埋める
Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click '文字を左寄せし、指定の文字数になるまで、右側に空白または指定した文字を埋める Dim str1 As String = "ABCDEF" Dim wk As String wk = "[" & str1.PadRight(10, ".") & "]" Debug.WriteLine(wk) '結果 [ABCDEF....] End Sub |
|