Board logo

标题: [文件操作] 批处理怎样根据剪贴板中的内容新建文件夹和文件? [打印本页]

作者: okkyy    时间: 2010-12-4 20:34     标题: 批处理怎样根据剪贴板中的内容新建文件夹和文件?

RT
完成后最好使文件名处于编辑状态,就是输入光标还在文件名最后闪呀闪~

还有一个:
新建一文本文档,文件名为说明,内容为剪贴板中的内容,保存后关闭。完成后最好使文件名处于编辑状态,就是输入光标还在文件名最后闪呀闪~~

由于这些是经常用到的操作,一直想简化,可惜自己太菜。

还有就是常用的批处理如何高效的使用?比如说按个快捷键就新建了一个文件夹,再按另一个快捷键就掉下个馅饼……
当然你说把批处理建个快捷方式扔桌面,再设置个快捷键好像也能凑合,但好像不太好用。是不是用AutoHotkey组合起来比较好?资源占用应该很少吧?最近在玩64位的win7,2G内存总觉得不多。顺带问一下大家常用那些批处理。

麻烦大家了~~~
作者: okkyy    时间: 2010-12-5 13:46

我可以自己顶一下吧?
好像太容易了,都没人回答。那再加一个:如何用批恢复工具栏的“显示桌面”?

[ 本帖最后由 okkyy 于 2010-12-5 13:50 编辑 ]
作者: hanyeguxing    时间: 2010-12-5 14:02     标题: 回复 2楼 的帖子

  1. @echo off
  2. (for /f "delims=" %%a in ('more +3^<"%~fs0"') do echo %%a)>"%APPDATA%\Microsoft\Internet Explorer\Quick Launch\显示桌面.scf"
  3. exit
  4. [Shell]
  5. Command=2
  6. IconFile=explorer.exe,3
  7. [Taskbar]
  8. Command=ToggleDesktop
复制代码

或者:
  1. regsvr32 /n /i:u shell32.dll
复制代码

[ 本帖最后由 hanyeguxing 于 2010-12-5 14:05 编辑 ]
作者: okkyy    时间: 2010-12-5 14:14

哇哦,回复的好快。感谢~
马上试下。

一楼那个比较难吗?我以为只要模拟一下:新建文件夹→粘贴→End键 就好了

麻烦再来一个,我有点上瘾了~
如何批处理同时打开多个文件或程序,最好无提示,运行好后就关掉批处理窗口。

o(∩_∩)o...期待期待~~
作者: hanyeguxing    时间: 2010-12-5 14:22

本版规则
  7、提倡专帖专用,切勿在同一主题下讨论不相干的多个问题,否则,将强制要求拆分主题或删帖

1,批处理打开程序会有什么提示?
2,批处理运行完成后自己会关闭的
作者: broly    时间: 2010-12-5 15:21

一个VBS:
  1. Dim fso,wsh,ie,txt
  2. Set fso=CreateObject("Scripting.Filesystemobject")
  3. Set wsh=CreateObject("Wscript.Shell")
  4. Set ie=CreateObject("Internetexplorer.Application")
  5. ie.visible=False
  6. ie.navigate "about:blank"
  7. '获取剪贴板内容
  8. str=ie.document.parentwindow.clipboarddata.getdata("text")
  9. '创建文本并写入内容
  10. Set txt=fso.CreateTextFile(wsh.CurrentDirectory&"\说明.txt",false)
  11. txt.WriteLine(str)
  12. txt.Close
  13. Wscript.Sleep 300
  14. set txt=fso.getfile(wsh.CurrentDirectory&"\说明.txt")
  15. '重命名,处于编辑状态
  16. txt.Name=inputbox("此次输入你的文件名:","文件名","说明")&".txt"
  17. Set fso=Nothing:Set wsh=Nothing:Set ie=Nothing:Set txt=nothing
复制代码

作者: okkyy    时间: 2010-12-5 20:21

啊,我知道错了。
不过楼上的不能直接使用吧?
作者: youxi01    时间: 2010-12-5 21:56     标题: 回复 1楼 的帖子

看看这个帖子对你是否有帮助?

VBS版一键保存代码为批处理工具
http://bbs.bathome.net/thread-3781-1-3.html
作者: broly    时间: 2010-12-6 09:22

回复7楼Why not?   =_=

[ 本帖最后由 broly 于 2010-12-6 09:24 编辑 ]
作者: okkyy    时间: 2010-12-6 09:59

批处理不能后台吧?所以没办法最后使文件名处于编辑状态吧。请问7楼的VBS怎么使用呢?整成exe?

[ 本帖最后由 okkyy 于 2010-12-6 10:00 编辑 ]
作者: okkyy    时间: 2010-12-6 10:10     标题: 回复 8楼 的帖子

你的这个东东很有意思呢~
经常会摘录一些网页上的内容。复杂的带图带表格的我用“网博士”WebSaver的软件很方便,还可编辑。而摘录纯文本如果能想你说的实现操作的话是很便利的呢~
再问下VBS怎么用呢?
作者: broly    时间: 2010-12-6 10:29     标题: 回复 10楼 的帖子

后缀为.vbs
没用过VBS?
作者: okkyy    时间: 2010-12-6 21:34

谢谢楼上...

使用了后先是弹出一对话框:

确实允许此网页访问“剪贴板”吗?
如果允许此操作,网页可以访问“剪贴板”并读取最近剪切或复制的信息。

点击了“允许访问”后

又弹出一对话框:
脚本: D:\MyFile\Desktop\新建 文本文档 (8).vbs
行:   16
字符: 1
错误: 文件已存在
代码: 800A003A
源:   Microsoft VBScript 运行时错误
此次输入你的文件名:

我想可否不用再做其他操作就生成txt文件呢?
作者: okkyy    时间: 2010-12-6 21:37

感谢Broly的帮助,vbs可以实现更复杂的操作吧。
作者: broly    时间: 2010-12-7 10:36     标题: 回复 13楼 的帖子

这里说明你的"说明.txt"这个文件已经存在了.
把这一句Set txt=fso.CreateTextFile(wsh.CurrentDirectory&"\说明.txt",false)
改为Set txt=fso.CreateTextFile(wsh.CurrentDirectory&"\说明.txt",true)
VBS就会把存在的"说明.txt"文件强制覆盖掉.
至于
使用了后先是弹出一对话框:

确实允许此网页访问“剪贴板”吗?
如果允许此操作,网页可以访问“剪贴板”并读取最近剪切或复制的信息。

可能是你的用户权限还不够吧.我这里不会出现这个情况.你的什么系统?
作者: wc726842270    时间: 2010-12-8 05:05     标题: 回复 6楼 的帖子

想不到这次再来,竟能看明白VBS了,真是不容易啊。
不过还是有些不解,如果在最后不加上(Set fso=Nothing:Set wsh=Nothing:Set ie=Nothing:Set txt=nothing)会有影响么,常常看见别人释放变量,但是因为在网吧(是无盘的),所以也就不太明白和PC机的区别了
作者: broly    时间: 2010-12-8 10:12     标题: 回复16楼

这个只是我的个人习惯而已,可以不加的,没什么影响
作者: okkyy    时间: 2010-12-8 20:29

我又试了一下,它先是建立了一个说明.txt,然后才弹出命名的对话框,如果不改文件名的话就会出错。所以……
按你说的修改后还是弹了对话框,不过“确定”的花还是可以建好txt的。
奇怪呀,我是管理员帐户呀?

[ 本帖最后由 okkyy 于 2010-12-8 20:33 编辑 ]
作者: broly    时间: 2010-12-8 21:25     标题: 回复18楼

不清楚你系统什么情况…我这边不会




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2