ເນື້ອໃນ

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

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

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

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