UC知道vb显示搜索结果提取字符串问题，紧急！
来源：百度知道 编辑：UC知道 时间：2024/05/25 05:48:33
现在需要将搜索结果在textbox里罗列出来
要求：
比如搜索的关键字为“电脑”，那么显示时则要显示
xxxxx电脑xxxxx，即在电脑前五个字符以及后五个字符。
不知道应该怎么做，请教高人！
另外，因为搜索结果众多，不知道这个loop应该怎么写呢？
上一步的code是：
Dim s As String = TextBox2.Text
Dim x As Object = WebBrowser1.DocumentText
Do
n = InStr(n + 1, x, s, CompareMethod.Text)
m = m + 1
Loop While n > 0
MsgBox(m - 1 & " " & "result found")
End Sub
最好写下完整的code，谢谢！！
这个星期就要做好！
要求：
比如搜索的关键字为“电脑”，那么显示时则要显示
xxxxx电脑xxxxx，即在电脑前五个字符以及后五个字符。
不知道应该怎么做，请教高人！
另外，因为搜索结果众多，不知道这个loop应该怎么写呢？
上一步的code是：
Dim s As String = TextBox2.Text
Dim x As Object = WebBrowser1.DocumentText
Do
n = InStr(n + 1, x, s, CompareMethod.Text)
m = m + 1
Loop While n > 0
MsgBox(m - 1 & " " & "result found")
End Sub
最好写下完整的code，谢谢！！
这个星期就要做好！
Dim s As String = TextBox2.Text
Dim x As Object = WebBrowser1.DocumentText
n = InStr(1, x, s, CompareMethod.Text)
m = 1
Do While n > 0
m = n - 5
if m<1 then m = 1
l = n-m + len(s)+5
text3.text = text3.text & mid(s,m,l) & vbcrlf
n = InStr(n + 1, x, s, CompareMethod.Text)
m = m + 1
Loop