[求助]用getfiled 命令一次是否能否选多个文件？

lyb_dsa · 发表于 2004-1-7 08:01

请问用getfiled 命令一次是否能否选多个文件？

tukuitk · 发表于 2004-1-7 12:41

好像不能，呵呵

lockmyeye · 发表于 2004-1-7 13:45

列出给定目录中的所有文件
(vl-directory-files [directory pattern directories])

;;选择目录
(WHILE (NOT (SETQ shfolder (VLAX-INVOKE-METHOD (VLAX-CREATE-OBJECT "Shell.Application")
                                             'browseforfolder
                                             0
                                             "选择要插入的目录:"
                                             1
                        )
         )
   )
)

lyb_dsa · 发表于 2004-1-7 14:33

但是我只想选择目录中的部分文件

meflying · 发表于 2004-1-7 17:19

本帖最后由作者于 2004-12-18 9:01:34 编辑

虽然感觉象很老的操作系统，不过DCL的功能我暂时也就挖掘了这些
主函数：main，返回选中文件列表

(defun Load_dlg( / dcl_id f filename)
(setq filename (strcat (getenv "TMP")"GetFilesDialog.dcl"))
(setq f (open filename "w"))
(write-line "GetFileDialog:dialog{" f)
(write-line "label = "文件选择";" f)
(write-line ":text {label = ""; key = "name";}" f)
(write-line ":row{" f)
(write-line ":list_box {label = "文件:"; key = "file"; fixed_height = true; height = 18; multiple_select = true;fixed_width = true; width = 30;}" f)
(write-line ":column {" f)
(write-line ":list_box {label = "路径:"; key = "dir"; fixed_height = true; height = 16; fixed_width = true; width = 30;}" f)
(write-line ":popup_list {label = "驱动器:"; key = "dev";}}}" f)
(write-line "ok_cancel;}" f)
(close f)
(if (< (setq dcl_id (load_dialog filename)) 0) (exit))
(vl-file-delete filename)
dcl_id
)
(defun GetDevs ( / i Device Devs)
(setq i 67)
(while (vl-directory-files (setq Device (strcat (chr i) ":")))
(setq Devs (append Devs (list Device)))
(setq i (1+ i))
)
Devs
)
(defun Get_Files(ns Files / f f2 fs i )
(setq i 1)
(setq f2 "")
(while (/= (setq f (substr ns i 1)) "")
(if (= f " ")
(progn
(setq fs (append fs (list (atoi f2))))
(setq f2 "")
)
(setq f2 (strcat f2 f))
)
(setq i (1+ i))
)
(setq fs (append fs (list (atoi f2))))
(mapcar '(lambda(e) (nth e Files)) fs)
)
(defun Getfiles(path flag / Files)
(setq Files (vl-directory-files path nil flag))
(if Files
(setq Files (acad_strlsort Files))
)
(vl-remove "." Files)
)
(defun GetParantPath (path)
(setq i 0)
(setq n (strlen path))
(while (/= (substr path (- n i) 1) "\")
(setq i (1+ i))
)
(setq i (1+ i))
(substr path 1 (- n i))
)
(defun fill_pop(key lst)
(start_list key)
(mapcar 'add_list lst)
(end_list)
)
(defun Fill_All(path / dirs Files)
(fill_pop "dir" (GetFiles path -1))
(fill_pop "file" (GetFiles path 1))
)
(defun Act_Dev(n Devices / Dev )
(setq Dev (nth n Devices))
(Fill_All Dev)
(set_tile "name" Dev)
Dev
)
(defun Act_Dir(n path / folder)
(setq folder (nth n (GetFiles path -1)))
(if (= folder "..")
(setq path (getParantPath path))
(setq path (strcat path "\" folder))
)
(set_tile "name" path)
(fill_all path)
path
)
(defun main( / dcl_id Act Files ns Devices Directories path R)
(setq dcl_id (Load_dlg))
(if (not (new_dialog "GetFileDialog" dcl_id)) (exit))
(setq Devices (GetDevs))
(setq path (nth 0 Devices))
(fill_pop "dev" Devices)
(setq path (Act_Dev 0 Devices))
(action_tile "dev" "(setq path (Act_Dev (atoi $value) Devices))")
(action_tile "dir" "(setq path (Act_Dir (atoi $value) path))")
(action_tile "accept" "(setq ns (get_tile "file")) (done_dialog 1)")
(setq Act (start_dialog))
(if (and (/= ns "") (= Act 1))
(progn
(setq Files (Getfiles path 1))
(setq R (Get_Files ns Files))
)
(setq R nil)
)
(unload_dialog dcl_id)
(mapcar '(lambda(e) (strcat path "\" e)) R)
)

(defun  Load_dlg(  /  dcl_id  f  filename)
    (setq  filename  (strcat  (getenv  "TMP")"GetFilesDialog.dcl"))
    (setq  f  (open  filename  "w"))    
    (write-line  "GetFileDialog:dialog{"  f)
    (write-line  "label  =  "文件选择";"  f)
    (write-line  ":text  {label  =  "";  key  =  "name";}"  f)
    (write-line  ":row{"  f)
    (write-line  ":list_box  {label  =  "文件:";  key  =  "file";  fixed_height  =  true;  height  =  18;  multiple_select = true;fixed_width  =  true;  width  =  30;}"  f)
    (write-line  ":column  {"  f)
    (write-line  ":list_box  {label  =  "路径:";  key  =  "dir";  fixed_height  =  true;  height  =  16;  fixed_width  =  true;  width  =  30;}"  f)
    (write-line  ":popup_list  {label  =  "驱动器:";  key  =  "dev";}}}"  f)
    (write-line  "ok_cancel;}"  f)
    (close  f)
    (if  (<  (setq  dcl_id  (load_dialog  filename))  0)  (exit))
    (vl-file-delete  filename)
    dcl_id
)
(defun  GetDevs  (  /  i  Device  Devs)
    (setq  i  67)
    (while  (vl-directory-files  (setq  Device  (strcat  (chr  i)  ":")))
        (setq  Devs  (append  Devs  (list  Device)))
        (setq  i  (1+  i))
    )
    Devs
)

(defun  Get_Files(ns  Files  /  f  f2  fs  i  )
    (setq  i  1)
    (setq  f2  "")
    (while  (/=  (setq  f  (substr  ns  i  1))  "")
        (if  (=  f  "  ")
            (progn
  (setq  fs  (append  fs  (list  (atoi  f2))))
  (setq  f2  "")
            )
            (setq  f2  (strcat  f2  f))
        )
        (setq  i  (1+  i))
    )
    (setq  fs  (append  fs  (list  (atoi  f2))))
    (mapcar  '(lambda(e)  (nth  e  Files))  fs)
)

(defun  Getfiles(path  flag  /  Files)
    (setq  Files  (vl-directory-files  path  nil  flag))
    (if  Files
        (setq  Files  (acad_strlsort  Files))
    )
    (vl-remove  "."  Files)
)

(defun  GetParantPath  (path)
    (setq  i  0)
    (setq  n  (strlen  path))
    (while  (/=  (substr  path  (-  n  i)  1)  "\")
        (setq  i  (1+  i))
    )
    (setq  i  (1+  i))
    (substr  path  1  (-  n  i))
)

(defun  fill_pop(key  lst)
    (start_list  key)
    (mapcar  'add_list  lst)
    (end_list)
)

(defun  Fill_All(path  /  dirs  Files)
    (fill_pop  "dir"  (GetFiles  path  -1))
    (fill_pop  "file"  (GetFiles  path  1))
)

(defun  Act_Dev(n  Devices  /  Dev  )
    (setq  Dev  (nth  n  Devices))
    (Fill_All  Dev)
    (set_tile  "name"  Dev)
    Dev
)

(defun  Act_Dir(n  path  /  folder)
    (setq  folder  (nth  n  (GetFiles  path  -1)))
    (if  (=  folder  "..")
        (setq  path  (getParantPath  path))
        (setq  path  (strcat  path  "\"  folder))
    )
    (set_tile  "name"  path)
    (fill_all  path)
    path
)

(defun  main(  /  dcl_id  Act  Files  ns  Devices  Directories  path  R)
    (setq  dcl_id  (Load_dlg))
    (if  (not  (new_dialog  "GetFileDialog"  dcl_id))  (exit))
    (setq  Devices  (GetDevs))
    (setq  path  (nth  0  Devices))
    (fill_pop  "dev"  Devices)
    (setq  path  (Act_Dev  0  Devices))
    (action_tile  "dev"  "(setq  path  (Act_Dev  (atoi  $value)  Devices))")
    (action_tile  "dir"  "(setq  path  (Act_Dir  (atoi  $value)  path))")
    (action_tile  "accept"  "(setq  ns  (get_tile  "file"))  (done_dialog  1)")
    (setq  Act  (start_dialog))
    (if  (and  (/=  ns  "")  (=  Act  1))
        (progn
            (setq  Files  (Getfiles  path  1))
            (setq  R  (Get_Files  ns  Files))
        )
        (setq  R  nil)
    )
    (unload_dialog  dcl_id)
    (mapcar  '(lambda(e)  (strcat  path  "\"  e))  R)
)

龙龙仔 · 发表于 2004-1-8 10:39

;;dos_getfilem
Displays a resizable Windows common file open dialog box that allows for multiple file selection.

Syntax
(dos_getfilem title path filter)
Parameters
title
A string containing the dialog box title.

path
A string identifying an existing directory.

filter
A filename filter string. The filter string consists of two components: a description (for example, "Text Files"), and a filter pattern (for example, "*.TXT"). Multiple filter patterns can be specified for a single item by separating the filter-pattern strings with a semicolon (for example, "*.TXT;*.DOC;*.BAK"). The components must be separated by a pipe character ("|"). The filename filter string can consist of one or more filter strings, each separated by a pipe character ("|"). The entire string must be terminated with two pipe characters ("||").

Returns
A list of filenames if successful. The first element of the list is a qualified path to the selected directory.

nil on cancel or on error.

Examples
Command: (dos_getfilem "Select files" "c:\\program files\\autocad 2002\\sample\\" "Drawing files (*.dwg)|*.dwg||")

chen4 · 发表于 2005-1-22 04:01

wangqin · 发表于 2009-10-22 22:58

meflying版主水平就是高,这样的办法都能想出来

tjuzkj · 发表于 2010-12-19 19:43

的确是个好办法!谢谢!

tth02 · 发表于 2013-1-25 22:38

meflying版主的方法灵活好用。

账号		自动登录	找回密码
密码			注册

[求助]用getfiled 命令一次是否能否选多个文件？

本帖被以下淘专辑推荐: