LSet Statement

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

Syntax:


LSet Var As String = Text ឬ LSet Var1 = Var2

Parameters:

Var ៖ អថេរ​ខ្សែ​អក្សរ ដែល​មាន​ខ្សែ​អក្សរ​ដែល​អ្នក​ចង់​តម្រឹម​ទៅ​ខាង​ឆ្វេង ។

Text ៖ ខ្សែ​អក្សរ ដែល​អ្នក​ចង់​តម្រឹម​ទៅ​ខាង​ឆ្វេង​នៃ​អថេរ​ខ្សែ​អក្សរ ។

Var1 ៖ ឈ្មោះ​អថេរ​ដែល​បាន​កំណត់​ប្រភេទ​ដោយ​អ្នក​ប្រើ ដែល​អ្នក​ចង់​ចម្លង​ទៅ ។

Var2 ៖ ឈ្មោះ​អថេរ​ដែល​បាន​កំណត់​ប្រភេទ​ដោយ​អ្នក​ប្រើ ដែល​អ្នក​ចង់​ចម្លង​ពី ។

បើ​ខ្សែ​អក្សរ​ខ្លី​ជាង​អថេរ​ខ្សែ​អក្សរ LSet តម្រឹម​ឆ្វេង​នូវ​ខ្សែ​អក្សរ​ដែល​នៅ​ក្នុង​អថេរ​ខ្សែ​អក្សរ ។ ទីតាំង​នៅ​សល់​ណា​មួយ​ក្នុង​អថេរ​ខ្សែ​អក្សរ​ត្រូវ​បាន​ជំនួស​ដោយ​ដក​ឃ្លា ។ បើ​ខ្សែ​អក្សរ​វែង​ជាង​អថេរ​ខ្សែ​អក្សរ នោះ​មាន​តែ​តួ​អក្សរ​ដែល​នៅ​ឆ្វេង​បំផុត​រហូត​ដល់​ប្រវែង​នៃ​អថេរ​ខ្សែ​អក្សរ​ប៉ុណ្ណោះ​ដែល​ត្រូវ​បាន​ចម្លង ។ ជាមួយ​សេចក្តី​ថ្លែង​ការណ៍ LSet អ្នក​ក៏​អាច​ចម្លង​អថេរ​ដែល​កំណត់​ប្រភេទ​ដោយ​អ្នក​ប្រើ ទៅ​កាន់​អថេរ​ផ្សេង​ទៀត​ដែល​មាន​ប្រភេទ​ដូច​គ្នា ។

Example:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    REM  Align "SBX" within the 40-character reference 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" within the 40-character reference string
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub