ຟັງຊັນ 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).

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