ຄຳສັ່ງ LSet

ຈັດວາງສະຕຣິງໃຫ້ຊິດຊ້າຍໃນຕົວປ່ຽນສະຕຣິງ, ຫຼື ສຳເນົາຕົວປ່ຽນປະເພດທີ່ຜູ້ໃຊ້ກຳນົດເອງໄປຍັງຕົວປ່ຽນອື່ນທີ່ຕ່າງປະເພດກັນ.

LSet Var As String = Text ຫຼື LSet Var1 = Var2

Var: ຕົວປ່ຽນ String ໃດໆ ທີ່ມີສະຕຣິງທີ່ທ່ານຕ້ອງການຈັດໃຫ້ຊິດຊ້າຍ.

Text: ສະຕຣິງທີ່ທ່ານຕ້ອງການຈັດໃຫ້ຊິດຊ້າຍໃນຕົວປ່ຽນສະຕຣິງ.

Var1: ຊື່ຂອງຕົວປ່ຽນປະເພດທີ່ຜູ້ໃຊ້ກຳນົດເອງທີ່ທ່ານຕ້ອງການສຳເນົາໄປໃສ່.

Var2: ຊື່ຂອງຕົວປ່ຽນປະເພດທີ່ຜູ້ໃຊ້ກຳນົດເອງທີ່ທ່ານຕ້ອງການສຳເນົາມາ.

ຖ້າສະຕຣິງສັ້ນກວ່າຕົວປ່ຽນສະຕຣິງ, LSet ຈະຈັດສະຕຣິງໃຫ້ຊິດຊ້າຍພາຍໃນຕົວປ່ຽນ. ຕຳແໜ່ງທີ່ເຫຼືອໃນຕົວປ່ຽນຈະຖືກແທນດ້ວຍຊ່ອງຫວ່າງ. ຖ້າສະຕຣິງຍາວກວ່າຕົວປ່ຽນ, ຈະມີພຽງຕົວອັກສອນທາງຊ້າຍສຸດຕາມຄວາມຍາວຂອງຕົວປ່ຽນເທົ່ານັ້ນທີ່ຈະຖືກສຳເນົາ. ດ້ວຍຄຳສັ່ງ LSet, ທ່ານຍັງສາມາດສຳເນົາຕົວປ່ຽນປະເພດທີ່ຜູ້ໃຊ້ກຳນົດເອງໄປຍັງຕົວປ່ຽນອື່ນທີ່ເປັນປະເພດດຽວກັນໄດ້ນຳ.

Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    ' ຈັດວາງ "SBX" ພາຍໃນສະຕຣິງອ້າງອີງ 40 ຕົວອັກສອນ
    ' ແທນທີ່ເຄື່ອງໝາຍດອກຈັນດ້ວຍຊ່ອງຫວ່າງ
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    ' ຈັດໃຫ້ຊິດຊ້າຍ "SBX" ພາຍໃນສະຕຣິງອ້າງອີງ 40 ຕົວອັກສອນ
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub