ຄຳສັ່ງ RSet

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

RSet Text As String = Text ຫຼື RSet Variable1 = Variable2

Text: ຕົວປ່ຽນສະຕຣິງໃດໆ.

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

Variable1: ຕົວປ່ຽນທີ່ຜູ້ໃຊ້ກຳນົດເອງເຊິ່ງເປັນເປົ້າໝາຍສຳລັບການສຳເນົາຕົວປ່ຽນ.

Variable2: ຕົວປ່ຽນທີ່ຜູ້ໃຊ້ກຳນົດເອງທີ່ທ່ານຕ້ອງການສຳເນົາໄປຍັງຕົວປ່ຽນອື່ນ.

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

ທ່ານຍັງສາມາດໃຊ້ ຄຳສັ່ງ RSet ເພື່ອກຳນົດຕົວປ່ຽນຈາກປະເພດທີ່ຜູ້ໃຊ້ກຳນົດເອງໜຶ່ງໄປຫາອີກອັນໜຶ່ງໄດ້.

ຕົວຢ່າງຕໍ່ໄປນີ້ໃຊ້ຄຳສັ່ງ RSet ແລະ 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