剪贴板的批处理怎么写？

netdzb · 发表于 2021-4-2 13:58:34

本帖最后由 netdzb 于 2021-4-2 14:05 编辑

需求是把剪贴板内容复制到list.txt，
如果list.txt已经存在就覆盖掉。
有没有这样的第3方工具？
如果用vbs写个脚本也行，谢谢大家。

第三方工具我找到了，名字叫winclip。
我现在感兴趣的是vbs的脚本怎么写？

smss · 发表于 2021-4-2 15:00:47

echo 把我传递给剪贴板|clip&mshta vbscript:msgbox("搞定，去粘贴吧",64,"提示！")(window.close)&exit

复制代码

smss · 发表于 2021-4-2 15:09:24

vbs

Set objHTML=CreateObject("htmlfile")
a=objHTML.ParentWindow.ClipboardData.GetData("text")
if a <> "" Then
Set fs=CreateObject("Scripting.FileSystemObject")
Set file=fs.CreateTextFile("list.txt",true)
file.WriteLine a
End If

复制代码

Batcher · 发表于 2021-4-2 15:49:08

回复 1# netdzb

Windows 10 自带了 clip 命令

netdzb · 发表于 2021-4-2 16:09:48

回复 4# Batcher

win 10的 clip在windows xp能用吗？

Batcher · 发表于 2021-4-2 16:25:55

回复 5# netdzb

我没有XP环境，无法验证。

qixiaobin0715 · 发表于 2021-4-2 16:27:15

回复 5# netdzb
这简单，试试不就行了！

netdzb · 发表于 2021-4-2 16:49:13

回复 7# qixiaobin0715

我没有win 10，所以没有clip这个程序。win7 的画版，windows xp是不能用的。

netdzb · 发表于 2021-4-3 08:56:04

本帖最后由 netdzb 于 2021-4-3 09:44 编辑

回复 7# qixiaobin0715

我刚才验证了，windows xp无法运行。

thp2008 · 发表于 2021-4-3 19:19:22

那反过来，有没有将剪贴板的内容，输出到文本的方法。
比如，我每复制一条内容，它能自动读取我复制的内容，写入到文本文件，自动换行，我再复制一行，它再自动读取，我一直复制，它就一直读取。写入。直到我中止它，这个功能有没办法实现呢。

netdzb · 发表于 2021-4-3 21:00:25

本帖最后由 netdzb 于 2021-4-3 21:02 编辑

回复 10# thp2008

我能写出来一半，现在还解决不了，你先参考一下。

@echo off
setlocal EnableDelayedExpansion

set clipcur=hello
echo %clipcur%
:loop
if %clipcur%=="" (
echo looping
goto :loop
) else echo %cliptcur%&set clipcur=""
pause

我的思路是打印一次清空一次，然后怎么获取剪贴板的变量，这里我不会写了。
还有我的代码是死循环，只能CTRL C退出程序。

thp2008 · 发表于 2021-4-3 21:49:15

回复 11# netdzb

算了，我重新开一贴，看看那些大佬有比较好的解决方法。

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 剪贴板的批处理怎么写？