查课表的代码

Question

输入关键词，然后程序实行查找功能，从已编辑好的文档中找到相应的内容然后显示出来

Answer 1

查一个文件还是多个文件?
课表什么格式的?doc?xls?txt?
用什么显示?打开word/excel/notepad程序?弹出对话框?

Answer 2

文件格式txt吧，是用VB程序来做的，想用msgbox弹出来

Answer 3

还有txt的数据,也举个例子;

Answer 4

每一天的课表内容分别在一个TXT文件里

Answer 5

写好了,代码如下:Option ExplicitPrivate fso As New FileSystemObjectPrivate Sub Command1_Click()
    If Combo1.Text = "" Then
        MsgBox "搜索内容为空！", vbCritical
        Exit Sub
    End If
    
    Dim strPath As String
    strPath = fso.BuildPath(App.Path, Combo1.Text & ".txt")
    
    If Not fso.FileExists(strPath) Then
        MsgBox "文件未找到！", vbCritical
        Exit Sub
    End If
    
    Dim objStream As TextStream
    Set objStream = fso.OpenTextFile(strPath, ForReading, False)
    
    Dim strContent As String
    strContent = objStream.ReadAll
    
    objStream.Close
    
    MsgBox strContent
End Sub运行示例:下载地址:
链接：https://pan.baidu.com/s/1jB1vUIstev785KNzrGC41g 
提取码：oq0y 

Answer 6

会不会添加引用?菜单中有引用,添加Microsoft Scripting Runtime引用即可;