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

[文件操作] [已解决]批处理复制当前目录下任意一个TXT内容到将剪切板

目录下有很多TXT文件,需要复制当前目录下任意一个【或者第一个】TXT内容到将剪切板,并把复制后的文件移动到文件夹“完成”。
我会复制,但是不知道怎么获取任意一个任意一个【或者第一个】TXT,希望各位大神给予帮助,谢谢!了!
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

  1. @echo off&setlocal enabledelayedexpansion
  2. for %%a in (*.txt) do (set /a n+=1&set "#!n!=%%~nxa")
  3. set /a f=%random%%%!n!+1
  4. type "!#%f%!"|mshta "javascript:clipboardData.setData('text',new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).ReadAll());close()"
  5. echo;已复制[!#%f%!]的内容到剪贴板&ping -n 2 0 >nul& exit
复制代码

TOP

回复 9# tigerpower
代码很简洁,测试,效果不错!谢谢!

TOP

本帖最后由 ruoru376 于 2015-7-17 11:14 编辑

回复 8# flyinnet9
非常感谢!系统上面有的 :winclip -c "%f%"换成下面的代码就可以了!
copy /y "%~pd0\clip.exe" "C:\Windows\System32"
clip < "%~pd0\%f%"

TOP

  1. @chcp 936
  2. @md 完成 2>nul
  3. @for %%i in (*.txt) do (clip<"%%i" && @move "%%i" 完成 && @pause && exit)
复制代码
1

评分人数

TOP

本帖最后由 flyinnet9 于 2015-7-17 11:08 编辑

去网上下一个winclip,如果不需要到剪贴板,把这行去掉

请使用蓝色“复制代码”,估计是你复制代码时多了或少了什么东西,我这边测试没问题,除了winclip

或者去掉第一行,结果发上来看看

TOP

回复 5# flyinnet9
无法 复制 其他的都可以!我在研究研究一下吧!谢谢了

TOP

回复 5# flyinnet9
你好帮我在看看吧。不知道是什么问题:
winclip不是内部或外部命令

TOP

本帖最后由 flyinnet9 于 2015-7-17 10:52 编辑

随机复制用全部代码
只复制第一个,去掉4-7行,并把第八行 “^|more +%ra%”去掉
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. md 完成 2>nul
  4. for /f %%a in ('dir /a-d /b *.txt ^|find /v "" /c') do (
  5. set row=%%a
  6. set /a ra=%random%%%%row%
  7. )
  8. for /f %%b in ('dir /a-d /b *.txt ^|more +%ra%') do (
  9. set /a line+=1
  10. if !line!==1 set f=%%b & goto end
  11. )
  12. :end
  13. winclip -c "%f%"
  14. move "%f%" ".\完成"
复制代码

TOP

回复 3# ruoru376
已修改

TOP

回复 2# bailong360
你好!测试了一下!效果不对啊!
你的代码效果是: 复制了 bat 代码。移动所有TXT了 ;你能不能帮我再看看 谢谢了!

TOP

本帖最后由 bailong360 于 2015-7-17 10:06 编辑
  1. @echo off
  2. md 完成 2>nul
  3. for /f "delims=" %%i in ('dir /a-d /b *.txt') do (
  4.     winclip -c "%%i"
  5.     move "%%i" ".\完成\"
  6.     exit
  7. )
复制代码

TOP

返回列表