UC知道VB中，能实现搜索功能吗？
来源：百度知道 编辑：UC知道 时间：2024/06/29 21:26:32
鲁迅逝世一世纪。（打一成语）谜底：百年树人
建国方略。(打一字) 谜底:玉
七仙女嫁出去一个。（打一成语） 谜底：六神无主
拍一个巴掌。（打一地名） 谜底：五指山
什么动物行也是坐，坐也是坐，睡也是坐？ 谜底 青蛙
石头旁边有块皮。（打一字） 谜底：破
如上，在VB中能实现搜索吗？就是说：
假如我搜索巴掌，那”拍一个巴掌。（打一地名） 谜底：五指山”就出现，如果还有其他的”巴掌”，可以点下一个！
相应的，搜石头，就出现最后一行的．
最好题库是一个文件，VB调用他！这样题库就应该能添加题目了．．．
VB中能实现吗？
最好能像搜索引擎一样在同一文本框内输入不同条件用空格作分隔符实现多条件组合查询！
而且
比如搜索“123456789” 如果输入1 3 5这样可以，输入3 5 1最好也行！
建国方略。(打一字) 谜底:玉
七仙女嫁出去一个。（打一成语） 谜底：六神无主
拍一个巴掌。（打一地名） 谜底：五指山
什么动物行也是坐，坐也是坐，睡也是坐？ 谜底 青蛙
石头旁边有块皮。（打一字） 谜底：破
如上，在VB中能实现搜索吗？就是说：
假如我搜索巴掌，那”拍一个巴掌。（打一地名） 谜底：五指山”就出现，如果还有其他的”巴掌”，可以点下一个！
相应的，搜石头，就出现最后一行的．
最好题库是一个文件，VB调用他！这样题库就应该能添加题目了．．．
VB中能实现吗？
最好能像搜索引擎一样在同一文本框内输入不同条件用空格作分隔符实现多条件组合查询！
而且
比如搜索“123456789” 如果输入1 3 5这样可以，输入3 5 1最好也行！
以前帮人写过一个
下面是读取txt并搜索的 支持空格语法
Private Sub Command1_Click()
If Text1.Text <> "" Then
FindKeyword (Text1.Text)
Else
MsgBox "请输入搜索关键字！"
End If
End Sub
Sub FindKeyword(ByVal kw As String)
Dim Keyword$()
Dim Stream$, filepath$
Keyword = Split(kw, " ")
filepath = IIf(Right$(App.Path, 1) <> "\" And Right$(App.Path, 1) <> "/", App.Path & "\answer.txt", App.Path & "answer.txt")
Text2.Text = ""
Open filepath For Input As #1
Do While Not EOF(1)
Line Input #1, Stream
For i = 0 To UBound(Keyword)
If InStr(Stream, Keyword(i)) = 0 Then
Exit For
'ReDim Keyword(1)
Else
If i = UBound(Keyword) Then
Text