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