ເນື້ອໃນ

# ຟັງຊັນ Mid

ສົ່ງຄືນສ່ວນທີ່ລະບຸຂອງນິພົດສະຕຣິງ (ຟັງຊັນ Mid), ຫຼື ແທນທີ່ບາງສ່ວນຂອງນິພົດສະຕຣິງດ້ວຍສະຕຣິງອື່ນ (ຄຳສັ່ງຍ່ອຍ Mid).

### ໄວຍາກອນ:

    Mid(string As String, Start As Long [, Length As Long]) As String
    Mid([ByRef] string As String, Start As Long, [Length As Long], Text As String)

### ປະເພດຄ່າທີ່ສົ່ງກັບ:

String (ສະເພາະໂດຍຟັງຊັນ)

### ພາຣາມິເຕີ:

string: ນິພົດສະຕຣິງໃດໆ ທີ່ທ່ານຕ້ອງການດຶງຂໍ້ມູນອອກມາ (ຟັງຊັນ Mid). ຊື່ຕົວປ່ຽນຂໍ້ຄວາມໃດໆ ທີ່ທ່ານຕ້ອງການແກ້ໄຂ (ຄຳສັ່ງຍ່ອຍ Mid).

Start: ນິພົດຕົວເລກທີ່ລະບຸຕຳແໜ່ງຕົວອັກສອນໃນສະຕຣິງທີ່ສ່ວນຂອງສະຕຣິງທີ່ທ່ານຕ້ອງການແທນທີ່ ຫຼື ສົ່ງຄືນເລີ່ມຕົ້ນ. ຄ່າຕ່ຳສຸດແມ່ນ 1. ຄ່າສູງສຸດແມ່ນ 2,147,483,648.

Length: ນິພົດຕົວເລກທີ່ສົ່ງຄືນຈຳນວນຕົວອັກສອນທີ່ທ່ານຕ້ອງການແທນທີ່ ຫຼື ສົ່ງຄືນ. ຄ່າສູງສຸດແມ່ນ 2,147,483,648.

ຖ້າລະເວັ້ນພາຣາມິເຕີ Length ໃນ ຟັງຊັນ Mid, ຕົວອັກສອນທັງໝົດໃນນິພົດສະຕຣິງຕັ້ງແຕ່ຕຳແໜ່ງເລີ່ມຕົ້ນຈົນເຖິງທ້າຍສະຕຣິງຈະຖືກສົ່ງຄືນ.

ຖ້າພາຣາມິເຕີ Length ໃນ ຄຳສັ່ງຍ່ອຍ Mid ໜ້ອຍກວ່າຄວາມຍາວຂອງຂໍ້ຄວາມທີ່ທ່ານຕ້ອງການແທນທີ່, ຂໍ້ຄວາມຈະຖືກຕັດໃຫ້ເຫຼືອຕາມຄວາມຍາວທີ່ລະບຸ.

Text: ສະຕຣິງທີ່ຈະນຳມາແທນທີ່ນິພົດສະຕຣິງ (ຄຳສັ່ງຍ່ອຍ Mid).

### ລະຫັດຂໍ້ຜິດພາດ:

5 ການເອີ້ນໃຊ້ໂປຣຊີເຈີບໍ່ຖືກຕ້ອງ

### ຕົວຢ່າງ:

    Sub ExampleMid_Function_and_Statement
      text = "This is the original Text"
    func1:
      MsgBox Mid(text, 13, 8)   ' ສົ່ງຄືນຄຳວ່າ "original"
      MsgBox text               ' text ຈະບໍ່ຖືກແກ້ໄຂ
    stmt1:
      Mid(text, 13, 8, "new")
      MsgBox text               ' ສົ່ງຄືນ "This is the new Text"
    func2:
      MsgBox Mid(start:=10, string:="The quick brown fox ..") ' ສະແດງ " brown fox .."
    stmt2:
      Mid text, 9, 12, "a new Phrase"
      MsgBox text               ' ສົ່ງຄືນ "This is a new Phrase"
    End Sub

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

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

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