４．指定の文字数になるまで、先頭又は、末尾に指定文字を埋める(39_Str_04)　(旧、SampleNo.015)

１．文字を右寄せし、指定の文字数になるまで、左側に空白または指定した文字を埋める ２．文字を左寄せし、指定の文字数になるまで、右側に空白または指定した文字を埋める ３． ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．文字を右寄せし、指定の文字数になるまで、左側に空白または指定した文字を埋める

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '文字を右寄せし、指定の文字数になるまで、左側に空白または指定した文字を埋める     Dim str1 As String = "12345"     Dim wk As String     wk = "[" & str1.PadLeft(10, "0"c) & "]"     Debug.WriteLine(wk)     '結果　[0000012345]     MessageBox.Show("文字列 [" & str1 & _             "] を右寄せし１０文字になるまで０で埋めた結果 " & wk & " です。") End Sub

２．文字を左寄せし、指定の文字数になるまで、右側に空白または指定した文字を埋める

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '文字を左寄せし、指定の文字数になるまで、右側に空白または指定した文字を埋める     Dim str1 As String = "ABCDEF"     Dim wk As String     wk = "[" & str1.PadRight(10, "."c) & "]"     Debug.WriteLine(wk)     '結果　[ABCDEF....]     MessageBox.Show("文字列 [" & str1 & _             "] を左寄せし１０文字になるまで . で埋めた結果 " & wk & " です。") End Sub

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)