RSet Statement

តម្រឹមស្តាំនូវខ្សែអក្សរមួយក្នុងអថេរខ្សែអក្សរ ឬចម្លងប្រភេទអថេរដែលកំណត់ដោយអ្នកប្រើទៅក្នុងប្រភេទអថេរមួយផ្សេងទៀត ។

Syntax:


RSet Text As String = Text ឬ RSet Variable1 = Variable2

Parameters:

អត្ថបទ ៖ អថេរខ្សែអក្សរណាមួយ ។

អត្ថបទ៖ ខ្សែអក្សរដែលអ្នកចង់តម្រឹមស្តាំក្នុងអថេរខ្សែអក្សរ ។

Variable1 ៖ អថេរកំណត់ដោយអ្នកប្រើ ដែលជាគោលដៅសម្រាប់អថេរដែលបានចម្លង ។

Variable2 ៖ អថេរកំណត់ដោយអ្នកប្រើ ដែលអ្នកចង់ចម្លងទៅអថេរផ្សេងទៀត ។

ប្រសិនបើខ្សែអក្សរខ្លីជាងអថេរខ្សែអក្សរ RSet តម្រឹមខ្សែអក្សរទៅខាងស្តាំក្នុងអថេរខ្សែអក្សរ ។ តួអក្សរដែលនៅសល់ក្នុងអថេរខ្សែអក្សរ ត្រូវបានជំនួសដោយដកឃ្លា ។ ប្រសិនបើខ្សែអក្សរវែងជាងអថេរខ្សែអក្សរ តួអក្សរដែលលើសប្រវែងនៃអថេរ ត្រូវបានកាត់ឲ្យខ្លី ហើយមានតែតួអក្សរដែលនៅសល់ប៉ុណ្ណោះដែលត្រូវបានតម្រឹមស្តាំក្នុងអថេរខ្សែអក្សរ ។

អ្នកក៏អាចប្រើ សេចក្តីថ្លែងការណ៍ RSet ដើម្បីផ្តល់តម្លៃអថេរនៃប្រភេទមួយដែលបានកំណត់ដោយអ្នកប្រើទៅមួយផ្សេងទៀត ។

ឧទាហរណ៍ដូចខាងក្រោម ប្រើសេចក្តីថ្លែងការណ៍ RSet និងLSet ដើម្បីកែប្រែការតម្រឹមឆ្វេង និងស្តាំនៃខ្សែអក្សរមួយ ។

Example:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    REM  Right-align "SBX" in a 40-character string
    REM  ជំនួសសញ្ញាផ្កាយដោយដកឃ្លា
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    REM Left-align "SBX" in a 40-character string
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub

String functions