「VB.NET」文字列の右側に指定文字を埋め込む

2021年9月29日

構文
Public Function PadRight (totalWidth As Integer, paddingChar As Char) As String
指定された文字数になるまで右側に指定された Unicode 文字を埋め込むことで、この文字列内の文字を左寄せした新しい文字列を返します。
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Module Module1
Sub Main()
'String型変数の定義
Dim str As String = "study"
Dim pad As Char = "*"
Console.WriteLine(str + " 長さ: " + Len(str).ToString)
'文字列の右側を指定文字埋める 桁数15
Dim res As String = str.PadRight(15, pad)
Console.WriteLine(res + " 長さ: " + Len(res).ToString)
'桁数5を指定 そのまま文字列を出力
Dim res2 As String = str.PadRight(5, pad)
Console.WriteLine(res2 + " 長さ: " + Len(res2).ToString)
Console.ReadKey()
End Sub
End Module
Module Module1 Sub Main() 'String型変数の定義 Dim str As String = "study" Dim pad As Char = "*" Console.WriteLine(str + " 長さ: " + Len(str).ToString) '文字列の右側を指定文字埋める 桁数15 Dim res As String = str.PadRight(15, pad) Console.WriteLine(res + " 長さ: " + Len(res).ToString) '桁数5を指定 そのまま文字列を出力 Dim res2 As String = str.PadRight(5, pad) Console.WriteLine(res2 + " 長さ: " + Len(res2).ToString) Console.ReadKey() End Sub End Module
Module Module1

    Sub Main()

        'String型変数の定義
        Dim str As String = "study"
        Dim pad As Char = "*"

        Console.WriteLine(str + " 長さ: " + Len(str).ToString)

        '文字列の右側を指定文字埋める 桁数15
        Dim res As String = str.PadRight(15, pad)
        Console.WriteLine(res + " 長さ: " + Len(res).ToString)

        '桁数5を指定 そのまま文字列を出力
        Dim res2 As String = str.PadRight(5, pad)
        Console.WriteLine(res2 + " 長さ: " + Len(res2).ToString)

        Console.ReadKey()
    End Sub


End Module

結果

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
study 長さ: 5
study********** 長さ: 15
study 長さ: 5
study 長さ: 5 study********** 長さ: 15 study 長さ: 5
study 長さ: 5
study********** 長さ: 15
study 長さ: 5

 

VB.net

Posted by arkgame