[文件操作] 批处理怎样根据剪贴板中的内容新建文件夹和文件？

okkyy

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

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

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

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

麻烦大家了~~~

broly

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

okkyy

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

[ 本帖最后由 okkyy 于 2010-12-8 20:33 编辑 ]

broly

这个只是我的个人习惯而已，可以不加的，没什么影响

wc726842270

想不到这次再来，竟能看明白VBS了，真是不容易啊。
不过还是有些不解，如果在最后不加上（Set fso=Nothing:Set wsh=Nothing:Set ie=Nothing:Set txt=nothing）会有影响么，常常看见别人释放变量，但是因为在网吧（是无盘的），所以也就不太明白和PC机的区别了

broly

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

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

可能是你的用户权限还不够吧.我这里不会出现这个情况.你的什么系统?

okkyy

感谢Broly的帮助，vbs可以实现更复杂的操作吧。

okkyy

谢谢楼上...

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

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

点击了“允许访问”后

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

我想可否不用再做其他操作就生成txt文件呢？

broly

后缀为.vbs
没用过VBS？

okkyy

你的这个东东很有意思呢~
经常会摘录一些网页上的内容。复杂的带图带表格的我用“网博士”WebSaver的软件很方便，还可编辑。而摘录纯文本如果能想你说的实现操作的话是很便利的呢~
再问下VBS怎么用呢？

okkyy

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

[ 本帖最后由 okkyy 于 2010-12-6 10:00 编辑 ]

broly

回复7楼Why not?   =_=

[ 本帖最后由 broly 于 2010-12-6 09:24 编辑 ]

youxi01

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

VBS版一键保存代码为批处理工具
http://bbs.bathome.net/thread-3781-1-3.html

okkyy

啊，我知道错了。
不过楼上的不能直接使用吧？

broly

一个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
复制代码