[问题求助] 求助大神!VBS怎样把文本内容复制到剪贴板，在别的地方进行粘贴？

wslbbdb

我想将以c:\1.txt里面在内容复制到剪贴板，在别的地方进行粘贴，求大神们给写个批处理啊，谢谢了


谢谢大家!问题解决了!

pcl_test

bat

@echo off
::win7及以上系统
type "c:\1.txt"|clip
pause
复制代码

@echo off
type "c:\1.txt"|mshta "javascript:clipboardData.setData('text',new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).ReadAll());close()"
pause
复制代码

第三方
http://www.bathome.net/s/tool/in ... filterby=help,label

vbs

set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("c:\1.txt",1)
ws.run "mshta vbscript:ClipBoardData.setData(""Text"","""&f.readall&""")(window.close)", 0, true
复制代码

wslbbdb

谢谢2楼,很好用!

wslbbdb

回复 1# wslbbdb
已解决,谢谢大家!