ppll2030

回复 [url=http:bbs.bathome.net/redirect.php?goto=findpost&pid=284203&ptid=69763]12#[/url] jack2020



行数就是从代码第一行开始往下数的数字。
如果你灭有改动代码，直接复制保存的。
那就只要修改地址列表下的内容就可以了。

这个脚本还是往你的软件里填写路径而已，不是直接赋值给F1-F12
运行脚本， 可以启动你的软件，并自动往你的软件内一次填写F1-F12的地址内容，之后依然是你原来用法
地址内容就是脚本内的地址列表。

地址列表：
C:\01_项目AA2024\15_广西ABC2024\03_AAA资料0914           （F1路径）
D:\01_项目B2024\15_广西A2024\03_AA资料0914                   （F2路径）
E:\01_项目DDD2024\15_广西B2024\03_BCDEFG资料0914       （F3路径）
。。。。。。。。
以此类推
替换路径的时候，（ ）的内容不需要放到脚本里

jack2020

回复 15# czjt1234

比如赋值:
F1路径为：C:\01_项目AA2024\15_广西ABC2024\03_AAA资料0914
F2路径为：D:\01_项目B2024\15_广西A2024\03_AA资料0914
F3路径为：E:\01_项目DDD2024\15_广西B2024\03_BCDEFG资料0914
按下键盘F1,自动把C:\01_项目AA2024\15_广西ABC2024\03_AAA资料0914 路径粘贴出来。
按下键盘F2,自动把D:\01_项目B2024\15_广西A2024\03_AA资料0914路径粘贴出来。
按下键盘F3,自动把E:\01_项目DDD2024\15_广西B2024\03_BCDEFG资料0914路径粘贴出来
   
我是想达到这个目的

czjt1234

我的批处理是数字键1234567890，不是F1F2...F10
批处理里举例说明的是按1和按2，在win7和win11测试通过，可以在其它地方粘贴指定的文本

难道你是要自动粘贴到其它地方？而不是自动复制+手动粘贴？

aloha20200628

回复 5# jack2020

用过资源管理器的 ‘复制路径’ 右键菜单吗
在资源管理器中任意选择多个路径后直接右键点击  ‘复制路径’ 即可将选择结果自动送入剪贴板以便后续粘贴...

czjt1234

回复 17# jack2020


我的理解是， 按 F1 后，会复制 程序中 F1 旁边的方框里的自己已经设置好的文本
然后你可以到其它地方手动粘贴

ppll2030

有空了，我还是再改一版吧，这个应该够简洁明了。
代码保存为run.bat，再新建一个空白的文本“地址列表.txt”，这两个文件跟你的多功能剪切板程序放在一起。
然后把你需要定义的F1-F10的路径直接复制到“地址列表.txt”文本里面。一行一个路径。
使用的时候直接运行run.bat，就可以自动把地址列表里的路径都自动添加到软件里，实现快速定义F1-F10了。
脚本在定义路径后，可以自动最小化程序，默认没开启，需要的自己改一下，去掉：：就可以了。

@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"
for /f "delims=" %%i in (地址列表.txt) do (
	set/a n+=1&echo %%i | clip &cscript //NoLogo $.vbs !n!
)
rem 地址粘贴完成，把软件最小化，需要的可以把::去掉
::mshta vbscript:execute("Set A=CreateObject(""WScript.Shell""):a.appactivate""多功能剪切板"":A.sendkeys(""%% n""):close")
del $.vbs&exit/b
复制代码

jack2020

回复 21# ppll2030
多谢大佬，按这个测试了两台电脑    run.bat  编码已经改成ANSI  
都是win10的  一台读取之后写入软件   F1:变成  C:\01_椤圭洰AA2024\15_骞胯タABC2024\03_AAA璧勬枡0914
                                                  F2:变成  D:\01_椤圭洰B2024\15_骞胯タA2024\03_AA璧勬枡0914
                                                  F3:变成  E:\01_椤圭洰DDD2024\15_骞胯タB2024\03_BCDEFG璧勬枡0914
代码是直接拷过来的  完全一样
不知道是不是缺字体
另外一台启动之后没有填表，运行run.bat之后启动了多功能剪切板，没有填表，
但是在根目录下生成1个$.vbs文件，打开内容如下：
set ws = createobject("wscript.shell")
N = WScript.Arguments(0)
ws.appactivate("多功能剪切板")
wscript.sleep 500
For i = 1 To N-1
    ws.SendKeys "{TAB}"
Next
ws.sendkeys "^v"
wscript.sleep 500
ws.sendkeys "{TAB}"
wscript.quit
   不知道是不是缺函数。

ppll2030

回复 22# jack2020


    第一个问题，把地址列表也保存为ANSI编码格式。
第二个问题，运行后不填入地址，试试切换输入法，让其在英文输入法状态下运行试试吧。毕竟是模拟输入，输入法状态影响还是有的。
$.vbs 是临时文件，主要就是模拟键盘输入Ctrl+v粘贴，和TAB切换框框，运行成功后就会自动删除。
还有，运行的时候，不要使用鼠标和键盘。否则也会使模拟输入失效，出现第二个问题。

jack2020

回复 23# ppll2030


    第一台电脑，已经把地址列表已经保保存为ANSI编码格式。cup是12400，win10系统
   读取之后写入软件   F1:变成  C:\01_椤圭洰AA2024\15_骞胯タABC2024\03_AAA璧勬枡0914
                                                  F2:变成  D:\01_椤圭洰B2024\15_骞胯タA2024\03_AA璧勬枡0914
                                                  F3:变成  E:\01_椤圭洰DDD2024\15_骞胯タB2024\03_BCDEFG璧勬枡0914
代码是直接拷过来的  完全一样
不知道是不是缺字体



另外一台是i3 7500,win10系统
,输入法切换英文 中文都不填表。
不知道是不是缺函数


还是感谢大佬抽空写的代码，找不到原因，我还是手动填表拷贝吧  就是每次开机要重新拷贝一次。

ppll2030

回复 24# jack2020


    win10下同下，我能复现的原因就是图片所示。
所以还是再检查一下编码问题。
另一台机器不能复制，可能是系统精简过度？vbs脚本就没运行起来吧？

ppll2030

回复 24# jack2020


    如果修改编码格式不成功的，可以试试另一个办法。
把 多功能剪切板.exe 改为英文名字：MultiClipBoard.exe
把 地址列表.txt  改用英文名字：addlist.txt

然后复制下面的记事本，直接保存为bat文件即可。就用系统默认的UTF-8编码即可。addlist.txt也不用改编码，就用默认的。

@echo off&setlocal enabledelayedexpansion
chcp 936
(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 wscript.quit)>$.vbs

chcp 65001
start "" "MultiClipBoard.exe"
for /f "delims=" %%i in (addlist.txt) do (
	set/a n+=1&echo %%i | clip &cscript //NoLogo $.vbs !n!
)
rem 地址粘贴完成，把软件最小化，需要的可以把::去掉
::mshta vbscript:execute("Set A=CreateObject(""WScript.Shell""):a.appactivate""多功能剪切板"":A.sendkeys(""%% n""):close")
del $.vbs&exit/b
复制代码

77七

提供一个，11楼小白版
1.下载autohotkey 地址 http://bcn.bathome.net/tool/AutoHotkey.exe
2.以下代码以 UTF-8 with BOM （带签名）编码，保存为 test.bat
3.将test.bat 和 autohotkey.exe 放在同一目录下，双击执行test.bat

;&cls &@echo off
;chcp 65001 >nul
;cd /d "%~dp0"
;start "" "AutoHotkey.exe" "%~f0"
;echo 注意：1.脚本编码 UTF-8 带签名& echo       2.在输入法英文状态下使用
;timeout 10
;exit

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

回复 26# ppll2030
这个改了英文的可以，但是三个带汉字的地址全部粘贴到了F1里面了   模拟输入需要TAB一下吧

另外一台电脑，不填表，
系统精简过度？vbs脚本就没运行起来吧。需要安装什么VBS包吗还是必须重做系统。

奇怪2台电脑是一个系统镜像，都是安装WIN10专业版，咋底层数据库不同，难道跟主板cpu有关?

jack2020

回复 27# 77七


    谢谢 autohotkey打不开呀

77七

回复 29# jack2020


   按步骤就行。（这个不用安装。）