一个VB得简单问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 18:51:11
有一个文本框，里面有一些字符，能不能做一个按键，按下后，在这个文本框内寻找 file=" 这个字符串，比如有 file="123" ,找到后，从第一个"的后面开始截取，一直取到最后一个"的前面，也就是截取的结果为123，将这个截取的结果用msgbox的形式反映出来。（两个"之间的字符数为未知数）

谢谢各位了！！！

Private Sub Command1_Click()
a = InStr(Text1.Text, "file=")
If a > 0 Then
b = InStr(a + 6, Text1.Text, Chr(34))
If b > 0 Then
MsgBox Mid(Text1.Text, a + 6, b - a - 6)
End If
End If
End Sub

Private Sub Command1_Click()
Dim A As Integer, B As Integer
A = InStr(LCase(Text1.Text), "file=""") + 6
B = InStrRev(Text1.Text, """") - A
Msgbox Mid(Text1.Text, A, B)
End Sub