Board logo

标题: [其他] 【已解决】困扰许久的批处理参数传递的问题 [打印本页]

作者: y6383289    时间: 2023-5-11 15:05     标题: 【已解决】困扰许久的批处理参数传递的问题

本帖最后由 y6383289 于 2023-5-11 20:44 编辑
  1. @ECHO OFF
  2. setlocal enabledelayedexpansion
  3. call :Folder_Input "Folder" "输入目录"&& echo 输入目录=%输入目录%
  4. echo Folder=%Folder%
  5. echo 调试结束&&pause&&exit
  6. goto :eof
  7. ::**************************************************************
  8. ::       输入目录名称
  9. ::**************************************************************
  10. :Folder_Input
  11. Title ★★★★★ %~n0 %~2 ★★★★★
  12. for /f "delims=" %%a in ('mshta "about:<script>var Folder = new ActiveXObject("Shell.Application").BrowseForFolder(0, "选择文件夹", 64, 17);if (Folder != null) {Folder = Folder.items();Folder = Folder.item();Folder = Folder.Path;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(Folder);}close();</script>"') do (
  13. set Folder_temp="%%a"
  14. )
  15. set %~1=%Folder_temp%
  16. echo Folder_temp=%Folder_temp%
  17. if "%2" NEQ "" set %~2=No
  18. if "%~1" NEQ "" if "%2" NEQ "" set %~2=Yes
  19. Title ★★★★★ %~n0  ★★★★★
  20. goto :eof
复制代码
运行结果
屏蔽setlocal enabledelayedexpansion
输入目录=!输入目录!
Folder="C:\Intel"
调试结束
请按任意键继续. . .

setlocal enabledelayedexpansion
输入目录=Yes
Folder=
调试结束
请按任意键继续. . .
作者: buyiyang    时间: 2023-5-11 17:33

这段代码有两个问题,第三行应该分开为两条语句
  1. call :Folder_Input "Folder" "输入目录"
  2. echo 输入目录=%输入目录%
复制代码
还有那段js中if (Folder != null)的感叹号应该要转义
  1. if (Folder ^!= null)
复制代码

作者: y6383289    时间: 2023-5-11 20:36

已验证可行。谢谢了。




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2