按時(shí)間搜索文件代碼
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
.版本 2.支持庫 iext.程序集 窗口程序集1.子程序 _按鈕_搜索_被單擊文件搜索 (“C:”, “*.*”).子程序 文件搜索.參數(shù) 欲尋找的目錄, 文本型, , 如：C:,表示C盤,記得C字后面兩點(diǎn)一定要寫.參數(shù) 欲尋找的文件名, 文本型, , 如果尋找全部文件可以填入*.*或*.txt只找txt文件.局部變量 局部_子目錄, 文本型.局部變量 局部_文件名, 文本型.局部變量 局部_文件時(shí)間, 日期時(shí)間型.局部變量 局部_項(xiàng)目索引, 整數(shù)型.如果真 (取文本右邊 (欲尋找的目錄, 1) ≠ “\”) 欲尋找的目錄 ＝ 欲尋找的目錄 ＋ “\”.如果真結(jié)束局部_文件名 ＝ 尋找文件 (欲尋找的目錄 ＋ 欲尋找的文件名, ).判斷循環(huán)首 (局部_文件名 ≠ “”) 局部_文件時(shí)間 ＝ 取文件時(shí)間 (欲尋找的目錄 ＋ 局部_文件名) .如果真 (局部_文件時(shí)間 ＞ 日期框_起始.今天 且 局部_文件時(shí)間 ＜ 日期框_結(jié)束.今天) 局部_項(xiàng)目索引 ＝ 超級列表框1.插入表項(xiàng) (, , , , , ) 超級列表框1.置標(biāo)題 (局部_項(xiàng)目索引, 0, 欲尋找的目錄 ＋ 局部_文件名) 超級列表框1.置標(biāo)題 (局部_項(xiàng)目索引, 1, 到文本 (局部_文件時(shí)間)) .如果真結(jié)束 處理事件 () 局部_文件名 ＝ 尋找文件 (, ).判斷循環(huán)尾 ()局部_子目錄 ＝ 尋找文件 (欲尋找的目錄 ＋ “*.*”, #子目錄).判斷循環(huán)首 (局部_子目錄 ≠ “”) .如果真 (取文本左邊 (局部_子目錄, 1) ≠ “.”) 處理事件 () 文件搜索 (欲尋找的目錄 ＋ 局部_子目錄 ＋ “\”, 欲尋找的文件名) .如果真結(jié)束 局部_子目錄 ＝ 尋找文件 (, #子目錄).判斷循環(huán)尾 () |
運(yùn)行結(jié)果：
總結(jié)
以上就是這篇文章的全部內(nèi)容了，希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，謝謝大家對服務(wù)器之家的支持。如果你想了解更多相關(guān)內(nèi)容請查看下面相關(guān)鏈接
