获取剪切板中文件列表

永不言弃

大神们，这个代码是获取剪切板中字符串的，怎么改成获取剪切板中文件列表的，谢谢

1. ;;;;大神们，这个代码是获取剪切板中字符串的，怎么改成获取剪切板中文件列表的，谢谢
   
2. ;;;;获得剪贴板文字
   
3. (defun getclip (/ HTML RESULT)
   
4.     (and (setq HTML (vlax-create-object "htmlfile"))
   
5.    (setq RESULT (vlax-invoke
   
6.         (vlax-get (vlax-get HTML 'PARENTWINDOW)
   
7.             'CLIPBOARDDATA
   
8.         )
   
9.         'GETDATA
   
10.         "Text"
    
11.           )
    
12.    )
    
13.    (vlax-release-object HTML)
    
14.     )
    
15.     RESULT
    
16. )

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

664571221

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

Kye

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))
    )
  )