上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
wcd09
註冊時間: 2009-03-28 文章: 9
第 1 樓
|
發表於: 星期四 四月 09, 2009 1:25 pm 文章主題: getfile()函数类型问题 |
|
|
请问各位专家,GETFILE()函数中如何去掉那个all file(*.*)类型,比如说,我只想打开.prg类型文件. |
|
回頂端 |
|
|
nelsonchuang
註冊時間: 2003-09-04 文章: 563 來自: 臺灣
第 2 樓
|
發表於: 星期四 四月 09, 2009 2:52 pm 文章主題: |
|
|
令人吃驚,你從不看Help的嗎? _________________ 大家好,請多指教 |
|
回頂端 |
|
|
wcd09
註冊時間: 2009-03-28 文章: 9
第 3 樓
|
發表於: 星期四 四月 09, 2009 4:37 pm 文章主題: |
|
|
help里没解决办法呀! |
|
回頂端 |
|
|
Terry1211
註冊時間: 2008-03-13 文章: 63
第 4 樓
|
發表於: 星期四 四月 09, 2009 4:55 pm 文章主題: |
|
|
你因該把Help內的 cFileExtensions 的說明看清楚
這是 Help 裡的範例 只顯示DBF相關的檔案
CLOSE DATABASES
SELECT 0
gcTable=GETFILE('DBF', '瀏覽或建立一個 .DBF:', ;
'瀏覽', 1, '瀏覽或建立')
DO CASE
CASE 'Untitled' $ gcTable
CREATE (gcTable)
CASE EMPTY(gcTable)
RETURN
OTHERWISE
USE (gcTable)
BROWSE
ENDCASE |
|
回頂端 |
|
|
215001
註冊時間: 2003-06-11 文章: 389
第 5 樓
|
發表於: 星期五 四月 10, 2009 10:59 am 文章主題: |
|
|
好像沒辦法拿掉 *.*
不過可以於 xfilename=GETFILE("PRG") 後
再加上 JUSTEXT(xfilename) 判斷所選取的檔案,是否是 PRG 檔,再做適當的處理 |
|
回頂端 |
|
|
|