RSet Statement

Canh lề một chuỗi theo bên phải bên trong một biến kiểu chuỗi, hoặc sao chép một kiểu biến do người dùng xác định vào một kiểu khác.

Cú pháp:

RSet Text As String = Text or RSet Variable1 = Variable2

Tham số :

Text: bất cứ biến chuỗi nào.

Text: chuỗi cần canh lề theo bên phải trong biến chuỗi.

Variable1: biến do người dùng xác định là đích cho biến được sao chép.

Variable2: biến do người dùng xác định cần sao chép vào biến khác.

Nếu chuỗi này nhỏ hơn biến chuỗi, hàm RSet sẽ canh lề chuỗi theo bên phải bên trong biến chuỗi. Bất cứ ký tự nào còn lại trong chuỗi được dấu cách thay thế. Còn nếu chuỗi này lớn hơn biến chuỗi, thì cắt ngắn các ký tự vượt quá chiều dài của biến, và chỉ những ký tự còn lại được sắp hàng theo bên phải bên trong biến chuỗi.

Bạn cũng có thể sử dụng câu lệnh RSet để gán các biến có một kiểu do người dùng xác định, cho một kiểu khác.

Mẫu thí dụ theo đây sử dụng hai câu lệnh RSet và LSet để sửa đổi cách canh lề bên trái và bên phải của một chuỗi.

Thí dụ :

Sub ExampleRLSet

Dim sVar As String

Dim sExpr As String

    sVar = String(40,"*")

    sExpr = "SBX"

    REM Canh lề phải « SBX » trong một chuỗi có 40 ký tự

    REM Thay thế mỗi dấu sao bằng một dáu cách

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123457896"

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(40,"*")

    sExpr = "SBX"

    REM Canh lề trái « SBX » trong một chuỗi có 40 ký tự

    LSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123456789"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

End Sub