文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

サイト管理人

9年前

RSet ステートメント・LSet ステートメント

【書式】
＜ RSet ステートメント＞
RSet stringvar = string

＜ LSet ステートメント＞
LSet stringvar = string

【項目の説明】

stringvar ・・・右詰または左詰めを行う文字列変数名。
string ・・・格納される任意の文字列・文字列式を指定します。

RSet ステートメント
引数 stringvar が引数 string よりも長い場合、引数 stringvar の余った部分（左側）をスペースで埋めます。
また、引数 stringvar が引数 string より短い場合、stringvar に格納できる長さの文字だけ stringvar にコピーされ、格納できない部分は切り捨てられます。

LSet ステートメント
引数 stringvar が引数 string よりも長い場合、引数 stringvar の余った部分（右側）をスペースで埋めます。
また、引数 stringvar が引数 string より短い場合、stringvar に格納できる長さの文字だけ stringvar にコピーされ、格納できない部分は切り捨てられます。

RSet ステートメントでは、ユーザー定義型の変数を使用することはできません。
また、LSet ステートメントを使って、あるユーザー定義型の変数を別のユーザー定義型の変数にコピーすることは可能ですが、できる限りしないほうがよいでしょう。あるデータ型のデータを別のデータ型で予約されている領域にコピーすると、予期しない結果が生じる可能性があります。

RSet ・LSet ステートメントの使用例

引数 stringvar が引数 string よりも長い場合

　
Sub Sample_Set1()

    
    Dim myLeft, myRight, myStr
    
    myRight = "1234567890"
    myLeft = "1234567890"
    myStr = "1234567890"
    
    RSet myRight = "あいうえ"
    
    LSet myLeft = "あいうえ"
    
    MsgBox myStr & Chr(13) & myRight & Chr(13) & myLeft


End Sub

Sub Sample_Set1()

Dim myLeft, myRight, myStr

myRight = "1234567890"

myLeft = "1234567890"

myStr = "1234567890"

RSet myRight = "あいうえ"

LSet myLeft = "あいうえ"

MsgBox myStr & Chr(13) & myRight & Chr(13) & myLeft

End Sub

実行結果

引数 stringvar が引数 string よりも短い場合

　
Sub Sample_Set2()

    
    Dim myLeft, myRight, myStr
    
    myRight = "12345"
    myLeft = "12345"
    myStr = "12345"
    
    RSet myRight = "あいうえおかきくけこ"
    
    LSet myLeft = "あいうえおかきくけこ"
    
    MsgBox myStr & Chr(13) & myRight & Chr(13) & myLeft


End Sub

Sub Sample_Set2()

Dim myLeft, myRight, myStr

myRight = "12345"

myLeft = "12345"

myStr = "12345"

RSet myRight = "あいうえおかきくけこ"

LSet myLeft = "あいうえおかきくけこ"

MsgBox myStr & Chr(13) & myRight & Chr(13) & myLeft

End Sub