描述: 从一个字符串中截取到 固定两个字符串之间的 字符
例子:截取 假如今天是星期四: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