根据高飞大神函数利用powershell实现多文件选择对话框

hubeiwdlue

     我没有powershell的知识，也不会写命令流，只是借助ai，将高飞鸟大师的函数修改了一点点。增加了3个参数，分别是对话框的名称、初始目录，后缀过滤，并将PowerShell弹窗隐藏了，打开返回地址列表，取消返回nil。但是最初还是会闪一下蓝色的窗口。
    (vlax-invoke wsh 'Run myCommand 0 1)返回的是0，而不是地址，不然用这个方法窗口不会闪。
高飞大神的帖子
http://bbs.mjtd.com/thread-192194-1-1.html

2. (defun hfb:filesDlg (title initDir filter / lst mycommand mysplit res txt wsh)
   
3.   ;;;分割字符串
   
4.   (defun mysplit (str delim / lst i len)
   
5.     (setq len (strlen delim))
   
6.     (setq ch (ascii delim))
   
7.     (while (setq i (vl-string-position ch str))  ;(vl-string-search delim str)
   
8.       (setq lst (cons (substr str 1 i) lst))
   
9.       (setq str (substr str (+ 1 len i)))
   
10.     )
    
11.     (setq lst (cons str lst))
    
12.     (reverse lst)
    
13.   )
    
14.   (setq myCommand  ;; 构建PowerShell命令字符串
    
15.     (strcat
    
16.       "powershell.exe -WindowStyle Hidden -Command "  ;; 调用PowerShell解释器
    
17.       "Add-Type -AssemblyName System.Windows.Forms; "  ;; 加载Windows窗体组件[4](@ref)
    
18.       "$dialog = New-Object System.Windows.Forms.OpenFileDialog; "  ;; 创建文件对话框对象
    
19.       "$dialog.Multiselect = $true; "  ;; 启用多选模式[4](@ref)
    
20.       (strcat "$dialog.Title = '" title "'; ")  ;; 设置对话框标题（需转义单引号）
    
21.       (strcat "$dialog.InitialDirectory = '" initDir "'; ")  ;; 设置初始目录为用户文档[4](@ref)
    
22.       (strcat "$dialog.Filter = '文本文件 (*." filter ")|*." filter "|所有文件 (*.*)|*.*'; ")  ;; 文件类型过滤器[4](@ref)
    
23.       "$dialogResult = $dialog.ShowDialog(); "  ;; 显示对话框并获取结果
    
24.       "if ($dialogResult -eq [System.Windows.Forms.DialogResult]::OK) {"  ;; 判断是否点击确定
    
25.       "   $selectedFiles = $dialog.FileNames ; "  ;; 获取所选文件全路径数组
    
26.       "   $selectedFiles | ForEach-Object {Write-Host $_}"  ;; 逐行输出文件路径[5](@ref)
    
27.       "}"
    
28.     )
    
29.   )
    
30.   (if (and
    
31.         (setq wsh (vlax-create-object "wscript.shell"))  ;; 创建WScript.Shell COM对象
    
32.         (setq res (vlax-invoke wsh 'exec myCommand))  ;; 执行PowerShell命令
    
33.         (setq txt (vlax-invoke (vlax-get res 'stdout) 'readall))  ;; 读取标准输出内容
    
34.       )
    
35.     (progn
    
36.       (setq lst (mysplit txt "\n"))  ;; 自定义函数分割换行（假设mysplit已定义）
    
37.       (setq lst (vl-remove "" lst))  ;; 移除空行
    
38.     )
    
39.   )
    
40.   (vlax-release-object wsh)  ;; 释放COM对象
    
41.   lst  ;; 返回文件路径列表
    
42. )
    
43. (hfb:filesDlg "试验" "D:\" "txt")

(defun hfb:filesDlg (title initDir filter / lst mycommand mysplit res txt wsh)<br />   ;;;分割字符串<br />   (defun mysplit (str delim / lst i len)<br />     (setq len (strlen delim))<br />     (setq ch (ascii delim))<br />     (while (setq i (vl-string-position ch str))  ;(vl-string-search delim str)<br />       (setq lst (cons (substr str 1 i) lst))<br />       (setq str (substr str (+ 1 len i)))<br />     )<br />     (setq lst (cons str lst))<br />     (reverse lst)<br />   )<br />   (setq myCommand  ;; 构建PowerShell命令字符串<br />     (strcat<br />       "powershell.exe -WindowStyle Hidden -Command "  ;; 调用PowerShell解释器<br />       "Add-Type -AssemblyName System.Windows.Forms; "  ;; 加载Windows窗体组件[4](@ref)<br />       "$dialog = New-Object System.Windows.Forms.OpenFileDialog; "  ;; 创建文件对话框对象<br />       "$dialog.Multiselect = $true; "  ;; 启用多选模式[4](@ref)<br />       (strcat "$dialog.Title = '" title "'; ")  ;; 设置对话框标题（需转义单引号）<br />       (strcat "$dialog.InitialDirectory = '" initDir "'; ")  ;; 设置初始目录为用户文档[4](@ref)<br />       (strcat "$dialog.Filter = '文本文件 (*." filter ")|*." filter "|所有文件 (*.*)|*.*'; ")  ;; 文件类型过滤器[4](@ref)<br />       "$dialogResult = $dialog.ShowDialog(); "  ;; 显示对话框并获取结果<br />       "if ($dialogResult -eq [System.Windows.Forms.DialogResult]::OK) {"  ;; 判断是否点击确定<br />       "   $selectedFiles = $dialog.FileNames ; "  ;; 获取所选文件全路径数组<br />       "   $selectedFiles | ForEach-Object {Write-Host $_}"  ;; 逐行输出文件路径[5](@ref)<br />       "}"<br />     )<br />   )<br />   (if (and<br />         (setq wsh (vlax-create-object "wscript.shell"))  ;; 创建WScript.Shell COM对象<br />         (setq res (vlax-invoke wsh 'exec myCommand))  ;; 执行PowerShell命令<br />         (setq txt (vlax-invoke (vlax-get res 'stdout) 'readall))  ;; 读取标准输出内容<br />       )<br />     (progn <br />       (setq lst (mysplit txt "\n"))  ;; 自定义函数分割换行（假设mysplit已定义）<br />       (setq lst (vl-remove "" lst))  ;; 移除空行<br />     )<br />   )<br />   (vlax-release-object wsh)  ;; 释放COM对象<br />   lst  ;; 返回文件路径列表<br /> )<br /> (hfb:filesDlg "试验" "D:\" "txt")

ssyfeng

这句漏了个斜杠(hfb:filesDlg "试验" "D:\" "txt")
(hfb:filesDlg "试验" "D:\\" "txt")

VBALISPER

PowerShell弹窗没有隐藏住。WIN11系统

hubeiwdlue

VBALISPER 发表于 2025-3-2 00:40
PowerShell弹窗没有隐藏住。WIN11系统

我没有win11系统，我是用win10ltsc测试的。

VBALISPER

我在另一台win10ltsc下测试，确实可以隐藏背景窗口。

chslwj521

(hfb:filesDlg "试验" "D:\\" "txt")  你少一反斜扛呀，反回了一个地址表，已证可用  ("D:\\材质设置-0905.txt")