社区 › AutoLISP/Visual LISP 编程技术 › 获取剪切板中文件列表

永不言弃 发表于 2021-12-23 20:48:32

获取剪切板中文件列表

本帖最后由 永不言弃 于 2021-12-23 20:50 编辑

大神们，这个代码是获取剪切板中字符串的，怎么改成获取剪切板中文件列表的，谢谢
;;;;大神们，这个代码是获取剪切板中字符串的，怎么改成获取剪切板中文件列表的，谢谢
;;;;获得剪贴板文字
(defun getclip (/ HTML RESULT)
    (and (setq HTML (vlax-create-object "htmlfile"))
   (setq RESULT (vlax-invoke
      (vlax-get (vlax-get HTML 'PARENTWINDOW)
            'CLIPBOARDDATA
      )
      'GETDATA
      "Text"
          )
   )
   (vlax-release-object HTML)
    )
    RESULT
)

664571221 发表于 2021-12-23 21:03:35

你好你是要获取文件目录吗？你用quicker试下https://getquicker.net/

Kye 发表于 2021-12-25 21:51:39

本帖最后由 Kye 于 2021-12-25 22:11 编辑

664571221 发表于 2021-12-23 21:03
你好你是要获取文件目录吗？你用quicker试下https://getquicker.net/
猜想楼主想读取多行多列的数据，不过还是觉得你理解的对,但要是这么简单的问题，楼主应该也会呀
(setq str(getclip))
(gxl-StrParse str "\r\n")


(defun gxl-StrParse (str del / pos lst)
   ;;;Command: (gxl-StrParse "9/10" "/")
;;;("9" "10") by gxl
    (while (setq pos (vl-string-search del str))
      (setq lst    (cons (substr str 1 pos) lst)
      str    (substr str (+ pos 1 (strlen del)))
      )
    )
    (if    (= " " Del)
      (vl-remove "" (reverse (cons str lst)))
      (reverse (cons str lst))
    )
)

查看完整版本: 获取剪切板中文件列表