批处理之家 - Powered by Discuz! Board

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

作者: 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楼的帖子

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

或者：

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：

Dim fso,wsh,ie,txt
Set fso=CreateObject("Scripting.Filesystemobject")
Set wsh=CreateObject("Wscript.Shell")
Set ie=CreateObject("Internetexplorer.Application")
ie.visible=False
ie.navigate "about:blank"
'获取剪贴板内容
str=ie.document.parentwindow.clipboarddata.getdata("text")
'创建文本并写入内容
Set txt=fso.CreateTextFile(wsh.CurrentDirectory&"\说明.txt",false)
txt.WriteLine(str)
txt.Close
Wscript.Sleep 300
set txt=fso.getfile(wsh.CurrentDirectory&"\说明.txt")
'重命名，处于编辑状态
txt.Name=inputbox("此次输入你的文件名：","文件名","说明")&".txt"
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://bathome.net./)