輸入關鍵詞，然后程式實行查找功能，從已編輯好的檔案中找到相應的內容然后顯示出來
uj5u.com熱心網友回復：
查一個檔案還是多個檔案?課表什么格式的?doc?xls?txt?
用什么顯示?打開word/excel/notepad程式?彈出對話框?
uj5u.com熱心網友回復：
一句話要求，剩下的靠未來科技和意念心靈溝通。uj5u.com熱心網友回復：
檔案格式txt吧，是用VB程式來做的，想用msgbox彈出來uj5u.com熱心網友回復：
彈出的結果是什么樣子的?舉個例子?
uj5u.com熱心網友回復：
還有txt的資料,也舉個例子;uj5u.com熱心網友回復：
比如在搜索框中輸星期一，彈出一個小長方形框，從檔案中搜索到星期一的課表，然后顯示在小框中
uj5u.com熱心網友回復：
每一天的課表內容分別在一個TXT檔案里uj5u.com熱心網友回復：
這牙膏擠的……
uj5u.com熱心網友回復：
寫好了,代碼如下:
Option Explicit
Private fso As New FileSystemObject
Private 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
uj5u.com熱心網友回復：
為什么第二行的代碼在電腦上顯示有問題呢，問題是：用戶定義型別未定義，急！！uj5u.com熱心網友回復：
會不會添加參考?選單中有參考,添加Microsoft Scripting Runtime參考即可;uj5u.com熱心網友回復：
我已經上傳到百度網盤并共享了,你可以下載了試試.uj5u.com熱心網友回復：
嗯嗯嗯嗯！謝謝你！！！你太棒了！轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/31847.html
標籤：VB基礎類