ฟังก์ชัน Mid ตัดคำใน vb.net

การตัดคำที่มีประโยคยาว แต่ต้องการเฉพาะคำที่ต้องการเท่านั้น โดยใช้ ฟังก์ชัน Mid ตัดคำ ตัวอย่างดังนี้
 

Syntax
Mid(ByVal str As String, ByVal Start As Integer, ByVal Length As Integer)


Example

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim test_word As String
        test_word = "Thailand Only"

        ' need "Thailand"
        Dim A, B As String
        A = Mid(test_word, 1, 8)                     ' Thailand
        B = Microsoft.VisualBasic.Left(test_word, 8) ' Thailand

        ' need "Only"
        Dim C, D As String
        C = Mid(test_word, 10, 4)                     ' Only
        D = Microsoft.VisualBasic.Right(test_word, 4) ' Only


        test_word = "I Love Thailand"

        ' need "Love"
        Dim F, G As String
        F = Mid(test_word, 3, 4)                     ' Love

        ' ใช้ ฟังก์ชันค้นหาคำ ตำแหน่งของคำนั้นก่อน ตัวอย่างนี้ค้นหา "Love" หรือ "L" ก่อนก็ได้
        Dim locationStart As Integer = InStr(test_word, "Love")
        Dim locationStop As Integer = "Love".Length
        G = Mid(test_word, locationStart, locationStop) ' Love
End Sub

** บทความที่เกี่ยวข้อง **
ตัดข้อความด้วย Split
ฟังก์ชันค้นหาคำ
การอ่าน Microsoft Office Word จากตำแหน่งใน เอกสาร