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

okkyy

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

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

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

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

麻烦大家了~~~

okkyy

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

[ 本帖最后由 okkyy 于 2010-12-5 13:50 编辑 ]

hanyeguxing

@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

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

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

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

o(∩_∩)o...期待期待~~

hanyeguxing

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

1，批处理打开程序会有什么提示？
2，批处理运行完成后自己会关闭的

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

okkyy

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

youxi01

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

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

broly

回复7楼Why not?   =_=

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

okkyy

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

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

okkyy

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

broly

后缀为.vbs
没用过VBS？

okkyy

谢谢楼上...

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

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

点击了“允许访问”后

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

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

okkyy

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

broly

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

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

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