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

Rank: 5Rank: 5

帖子
909 
积分
1215 
技术
3  
捐助
0  
注册时间
2018-1-17 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2021-4-2 13:58 | 只看该作者

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

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

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

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

smss

Rank: 5Rank: 5

帖子
595 
积分
804 
技术
38  
捐助
0  
注册时间
2018-11-29 
2楼
发表于 2021-4-2 15:00 | 只看该作者 
  1. echo 把我传递给剪贴板|clip&mshta vbscript:msgbox("搞定，去粘贴吧",64,"提示！")(window.close)&exit
复制代码

TOP

smss

Rank: 5Rank: 5

帖子
595 
积分
804 
技术
38  
捐助
0  
注册时间
2018-11-29 
3楼
发表于 2021-4-2 15:09 | 只看该作者
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

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14933 
积分
46140 
技术
857  
捐助
745  
注册时间
2008-6-9 
4楼
发表于 2021-4-2 15:49 | 只看该作者
回复 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

netdzb

Rank: 5Rank: 5

帖子
909 
积分
1215 
技术
3  
捐助
0  
注册时间
2018-1-17 
5楼
发表于 2021-4-2 16:09 | 只看该作者
回复 4# Batcher

win 10的 clip在windows xp能用吗？

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14933 
积分
46140 
技术
857  
捐助
745  
注册时间
2008-6-9 
6楼
发表于 2021-4-2 16:25 | 只看该作者
回复 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

qixiaobin0715

Rank: 7Rank: 7Rank: 7

帖子
2846 
积分
4165 
技术
429  
捐助
0  
注册时间
2016-2-20 
7楼
发表于 2021-4-2 16:27 | 只看该作者
回复 5# netdzb
这简单，试试不就行了！

TOP

netdzb

Rank: 5Rank: 5

帖子
909 
积分
1215 
技术
3  
捐助
0  
注册时间
2018-1-17 
8楼
发表于 2021-4-2 16:49 | 只看该作者
回复 7# qixiaobin0715

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

TOP

netdzb

Rank: 5Rank: 5

帖子
909 
积分
1215 
技术
3  
捐助
0  
注册时间
2018-1-17 
9楼
发表于 2021-4-3 08:56 | 只看该作者
本帖最后由 netdzb 于 2021-4-3 09:44 编辑

回复 7# qixiaobin0715


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

TOP

thp2008

Rank: 4

帖子
302 
积分
448 
技术
2  
捐助
0  
注册时间
2015-4-10 
10楼
发表于 2021-4-3 19:19 | 只看该作者
那反过来，有没有将剪贴板的内容，输出到文本的方法。
比如，我每复制一条内容，它能自动读取我复制的内容，写入到文本文件，自动换行，我再复制一行，它再自动读取，我一直复制，它就一直读取。写入。直到我中止它，这个功能有没办法实现呢。

TOP

netdzb

Rank: 5Rank: 5

帖子
909 
积分
1215 
技术
3  
捐助
0  
注册时间
2018-1-17 
11楼
发表于 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退出程序。

TOP

thp2008

Rank: 4

帖子
302 
积分
448 
技术
2  
捐助
0  
注册时间
2015-4-10 
12楼
发表于 2021-4-3 21:49 | 只看该作者
回复 11# netdzb


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

TOP

返回列表