 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
sunghsia
註冊時間: 2003-06-13
文章: 52
來自: 台北
第 1 樓
|
 發表於: 星期六 三月 17, 2007 2:37 pm 文章主題: 搜尋檔案 |
 |
|
*拷備至*.prg
*-------------利用 dos 資源, 編寫簡單的程式碼--------------------------------------------
* 開始資料夾= "c:\" "c:\windows".......
* 我要找的檔案= "空白= c:\ 根目錄的全部檔案"
* 尋找子資料夾= dir 的 "/s"
RUN dir/a/b/s/o c:\> c:\windows\desktop\000000.txt &&樹狀搜尋, 將顯示的資料轉向>給000000.txt
create cursor tmp (fieldname c(254)) &&建立暫存檔
append from c:\windows\desktop\000000.txt SDF &&匯入文字檔
dele file c:\windows\desktop\000000.txt
brow
*-------------輔助寫法,較麻煩------------------------------------------------------
create cursor tmpfile (filename c(64), dirname c(254)) && 檔案表格
create cursor tmppath (dirpath c(254)) && 搜尋檔案的路徑表格 (輔助)
insert into tmppath values ("c:") && 開始資料夾 (資料夾最後不要加入 \ )
scan
r= recno() && 供恢復筆數使用
p= trim(dirpath) && 欲搜尋的路徑名稱
q= adir(searchfile, "&p\*.*", "HSD") && 我要尋找的檔案 *.* (包函隱藏`系統`目錄)
for a=1 to q
f= searchfile[a,1] &&檔案名稱
do case
case inlist(f, "." , "..") && 回上層資料夾的名稱 (此列不可省略,也必須排在 case的第1個)
case "D" $ searchfile[a,5] && 屬性是資料夾
insert into tmppath values ("&p\&f") &&加入... "等待搜尋的路徑" (目前筆數在最後1筆)
case not "D" $ searchfile[a,5] && 屬性是檔案
insert into tmpfile values (f, p) && 加入... "尋找到的檔案"
endcase
endfor
go r
wait windows nowait "努力搜尋中..."
endscan
select * from tmpfile |
|
| 回頂端 |
|
 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 2 樓
|
| 發表於: 星期一 三月 19, 2007 8:48 pm 文章主題: |
|
|
一時手癢,
改寫用不同方式來做.
| 代碼: |
*------------只找到符合的檔檔, 用遞迴------------------------------------------------------
create cursor tmpfile (filename c(64), dirname c(254)) && 檔案表格
searchfile='*.prg'
do findfile with 'f:',searchfile
WAIT clear
select * from tmpfile
return
*----------
func findfile
lpara dirpath, searchfile
local p,q,a,f,a_searchfile[1,1]
wait windows nowait "努力搜尋中..."+dirpath
p= trim(dirpath) && 欲搜尋的路徑名稱
q= adir(a_searchfile, "&p\&searchfile", "HSD") && 我要尋找的檔案 *.* (�]函隱藏`系統`目錄)
for a=1 to q
f= a_searchfile[a,1] &&檔案名稱
do case
case inlist(f, "." , "..") && 回上層資料夾的名稱 (此列不可省略,�]必須排在 case的第1個)
OTHERWISE &&--case not "D" $ a_searchfile[a,5] && 屬性是檔案
insert into tmpfile values (f, p) && �[入... "尋找到的檔案"
? p+'\'+f
endcase
endfor
q= adir(a_searchfile, "&p\*.*", "HSD") && 我要尋找的檔案 *.* (�]函隱藏`系統`目錄)
for a=1 to q
f= a_searchfile[a,1] &&檔案名稱
do case
case inlist(f, "." , "..") && 回上層資料夾的名稱 (此列不可省略,�]必須排在 case的第1個)
case "D" $ a_searchfile[a,5] && 屬性是資料夾
do findfile with "&p\&f",searchfile &&�[入... "等待搜尋的路徑" (目前筆數在最後1筆)
*case not "D" $ a_searchfile[a,5] && 屬性是檔案
* insert into tmpfile values (f, p) && �[入... "尋找到的檔案"
endcase
endfor
|
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
sunghsia
註冊時間: 2003-06-13
文章: 52
來自: 台北
第 3 樓
|
| 發表於: 星期二 三月 20, 2007 8:28 pm 文章主題: |
|
|
| 原來還有這種寫法,高招 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
