vb 截取固定字符串之间的 字符

描述: 从一个字符串中截取到 固定两个字符串之间的 字符

  例子：截取  假如今天是星期四：5分 这句话中的  5 字

  

        Dim s As String
        Dim l As Long
        Dim szText As String
        s = TextBox2.Text
        l = InStr(s, "星期四")  ‘获取想要的特殊字符的位置
        TextBox3.Text = Mid(s, l, 5)  ’截取到位置后开始 取数字5的位置
        szText = Mid(TextBox3.Text, 5)
        TextBox3.Text = szText