ເນື້ອໃນ

# ຄຳສັ່ງ 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

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຟັງຊັນກ່ຽວກັບຂໍ້ຄວາມ (String)

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!