Contents

# 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

ប្រធានបទ​ទាក់ទង

String functions