批处理之家 - Powered by Discuz! Board

标题: [文本处理] 剪贴板的批处理怎么写？ [打印本页]

作者: netdzb 时间: 2021-4-2 13:58 标题: 剪贴板的批处理怎么写？

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

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

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

作者: smss 时间: 2021-4-2 15:00

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

作者: smss 时间: 2021-4-2 15:09

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

回复 1# netdzb

Windows 10 自带了 clip 命令

作者: netdzb 时间: 2021-4-2 16:09

回复 4# Batcher

win 10的 clip在windows xp能用吗？

作者: Batcher 时间: 2021-4-2 16:25

回复 5# netdzb

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

作者: qixiaobin0715 时间: 2021-4-2 16:27

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

作者: netdzb 时间: 2021-4-2 16:49

回复 7# qixiaobin0715

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

作者: netdzb 时间: 2021-4-3 08:56

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

回复 7# qixiaobin0715

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

作者: thp2008 时间: 2021-4-3 19:19

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

作者: netdzb 时间: 2021-4-3 21:00

本帖最后由 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

回复 11# netdzb

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

欢迎光临批处理之家 (http://www.bathome.net/)