LibreOfficeDev 25.8 Help
តម្រឹមខ្សែអក្សរមួយទៅខាងឆ្វេងនៃអថេរខ្សែអក្សរ ឬចម្លងអថេរនៃប្រភេទដែលកំណត់ដោយអ្នកប្រើទៅអថេរផ្សេងទៀត នៃប្រភេទខុសគ្នាដែលកំណត់ដោយអ្នកប្រើ ។
LSet Var As String = Text ឬ LSet Var1 = Var2
Var ៖ អថេរខ្សែអក្សរ ដែលមានខ្សែអក្សរដែលអ្នកចង់តម្រឹមទៅខាងឆ្វេង ។
Text ៖ ខ្សែអក្សរ ដែលអ្នកចង់តម្រឹមទៅខាងឆ្វេងនៃអថេរខ្សែអក្សរ ។
Var1 ៖ ឈ្មោះអថេរដែលបានកំណត់ប្រភេទដោយអ្នកប្រើ ដែលអ្នកចង់ចម្លងទៅ ។
Var2 ៖ ឈ្មោះអថេរដែលបានកំណត់ប្រភេទដោយអ្នកប្រើ ដែលអ្នកចង់ចម្លងពី ។
បើខ្សែអក្សរខ្លីជាងអថេរខ្សែអក្សរ LSet តម្រឹមឆ្វេងនូវខ្សែអក្សរដែលនៅក្នុងអថេរខ្សែអក្សរ ។ ទីតាំងនៅសល់ណាមួយក្នុងអថេរខ្សែអក្សរត្រូវបានជំនួសដោយដកឃ្លា ។ បើខ្សែអក្សរវែងជាងអថេរខ្សែអក្សរ នោះមានតែតួអក្សរដែលនៅឆ្វេងបំផុតរហូតដល់ប្រវែងនៃអថេរខ្សែអក្សរប៉ុណ្ណោះដែលត្រូវបានចម្លង ។ ជាមួយសេចក្តីថ្លែងការណ៍ LSet អ្នកក៏អាចចម្លងអថេរដែលកំណត់ប្រភេទដោយអ្នកប្រើ ទៅកាន់អថេរផ្សេងទៀតដែលមានប្រភេទដូចគ្នា ។
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