czjt1234

win11_22h2 测试通过

@echo off

:loop
set /p s=请输入一个数字，按回车键退出
if %s%==1 goto :c1
if %s%==2 goto :c2
exit

:c1
set "s=E:\01_项目2024\15_广西2024\03_资料0914"
mshta.exe vbscript:ClipboardData.SetData("text","%s%")(close)
echo 已复制 %s%
echo,
goto :loop

:c2
set "s=E:\01_项目2024\"
mshta.exe vbscript:ClipboardData.SetData("text","%s%")(close)
echo 已复制 %s%
echo,
goto :loop
复制代码

77七

回复 13# jack2020


   11楼蓝色字体链接，安装后把代码保存为 1.ahk，执行

jack2020

回复 11# 77七


    这个是什么语言，求具体用法？

jack2020

回复 7# ppll2030


    +21是怎么看   这个路径 E:\01_项目2024\15_广西2024\03_资料0914中的数字和文字个数吗 能启动 好像没有自动填表呀

77七

放弃小工具，直接用autohotkey可能比较简单 试着写了一个

f1::send, E:\01_项目2024\15_广西2024\03_资料0914
f2::send, E:\02_项目2024\15_北京2024\03_资料0914
f3::send, E:\03_项目2024\15_西安2024\03_资料0914
return
复制代码

jack2020

回复 9# flashercs


    好像无法启动
多功能剪切板.exe

flashercs

保存为1.bat, ANSI编码.

<#*,:
@echo off
cd /d "%~dp0"
set "batchfile=%~f0"
Powershell -ExecutionPolicy Bypass -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create([IO.File]::ReadAllText($env:batchfile,[Text.Encoding]::GetEncoding(0) )) )"

exit /b
#>
Add-Type -AssemblyName System.Windows.Forms, Microsoft.VisualBasic
$proc = Start-Process -FilePath "多功能剪切板.exe" -PassThru
[Microsoft.VisualBasic.Interaction]::AppActivate($proc.Id)
# Start-Sleep -Milliseconds 1000
[System.Windows.Forms.SendKeys]::SendWait("E:\01_项目2024\15_广西2024\03_资料0914") # F1的快捷路径
[System.Windows.Forms.SendKeys]::SendWait("~{TAB}")

[System.Windows.Forms.SendKeys]::SendWait("E:\22\01_项目2024\15_广西2024\03_资料0914") # F2的快捷路径
[System.Windows.Forms.SendKeys]::SendWait("~{TAB}")

[System.Windows.Forms.SendKeys]::SendWait("E:\33\中文abc") # F3的快捷路径
[System.Windows.Forms.SendKeys]::SendWait("~{TAB}")

Start-Sleep -Milliseconds 500
[System.Windows.Forms.SendKeys]::SendWait("% n")
复制代码

jack2020

回复 6# czjt1234


    是后面一种

ppll2030

把代码保存为bat文件，
地址列表就根据你自己的情况修改吧。
注意：16行的 more +21的数值一定要与地址列表行号对应。

@echo off&setlocal enabledelayedexpansion
(echo set ws = createobject("wscript.shell"^)
echo N = WScript.Arguments(0^)
echo ws.appactivate("多功能剪切板"^)
echo wscript.sleep 500
echo For i = 1 To N-1
echo     ws.SendKeys "{TAB}"
echo Next
echo ws.sendkeys "^v"
echo wscript.sleep 500
echo ws.sendkeys "{TAB}"
echo wscript.quit)>$.vbs

start "" "多功能剪切板.exe"
rem 注意 +21 这个数值与下面的 “地址列表：”的行数一致。否则取数会出错
for /f "delims=" %%i in ('more +21 %~f0') do (
	set/a n+=1&echo %%i | clip &cscript //NoLogo $.vbs !n!
)
del $.vbs&exit/b

地址列表：
E:\01_项目2024\15_广西2024\03_资料0914
E:\02_项目2024\15_北京2024\03_资料0914
E:\03_项目2024\15_西安2024\03_资料0914
复制代码

czjt1234

你说清楚，到底是要把路径输入到这个程序里，还是要把程序里已设置好的路径复制出来以便到其它地方粘贴？

jack2020

回复 4# Five66

或者有没有其他bat代码实现这个功能，不用这个多功能剪切板软件 ，仅用  把F1-F10赋值10个不同的带汉字的电脑文件夹路径  启动BAT之后，按下F1或者其他键，可以粘贴出对应路径？

Five66

sendkeys貌似send不了中文，只能将中文放进windows剪贴板，然后ctrl+v，不过这样也可能会出现很多其他问题（例如剪贴板数据可能不匹配和被替换，时间对不上会粘贴到上一次的内容）

jack2020

回复 2# ppll2030

谢谢!
路径是普通的数字 英文路径可以识别，但是路径带这个汉字和下划线，识别为乱码，大佬可以修正一下吗？

比如这个路径：F1赋值   E:\01_项目2024\15_广西2024\03_资料0914
多功能剪切板识别为F1:   E:\01_/2024\15_2024\03_0914
文件夹带汉字的全掉了
vbs文本编码格式是ANSI,换其他格式启动不了。

ppll2030

把文件保存为vbs，跟程序放一块运行即可。

set ws = createobject("wscript.shell")
ws.run ("多功能剪切板.exe")
wscript.sleep 1000
ws.appactivate("多功能剪切板")
ws.sendkeys "c:\11" 			'F1的快捷路径
ws.sendkeys "~{TAB}"
ws.sendkeys "c:\22" 			'F2的快捷路径
ws.sendkeys "~{TAB}"
ws.sendkeys "c:\33"
ws.sendkeys "~{TAB}"
wscript.sleep 1000
ws.sendkeys "% n" 			'输入完成，最小化多功能窗口
wscript.quit
复制代码