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

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

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

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

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

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

TOP

vbs
  1. Set objHTML=CreateObject("htmlfile")
  2. a=objHTML.ParentWindow.ClipboardData.GetData("text")
  3. if a <> "" Then
  4. Set fs=CreateObject("Scripting.FileSystemObject")
  5. Set file=fs.CreateTextFile("list.txt",true)
  6. file.WriteLine a
  7. End If
复制代码

TOP

回复 1# netdzb


    Windows 10 自带了 clip 命令
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 4# Batcher

win 10的 clip在windows xp能用吗?

TOP

回复 5# netdzb


    我没有XP环境,无法验证。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 5# netdzb
这简单,试试不就行了!

TOP

回复 7# qixiaobin0715

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

TOP

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

回复 7# qixiaobin0715


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

TOP

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

TOP

本帖最后由 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退出程序。

TOP

回复 11# netdzb


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

TOP

返回列表