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

Rank: 5Rank: 5

帖子
136 
积分
552 
技术
2  
捐助
0  
注册时间
2008-8-2 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2010-9-9 20:05 | 只看该作者

[已解决]将剪贴板的文本保存为自定义文件的VBS点“取消”失效？

从网上摘抄一vbs，可以将剪贴板的文本保存为自定义文件，但是点击“取消”后还生成一个没有拓展名的文件，应该怎样修改？

set fso=createobject("scripting.filesystemobject") : name=1
Dim na
na=Inputbox("请输入拓展名:","拓展名","txt")
while fso.fileexists(name&"."&na)=true
name=name+1
wend
set o=fso.opentextfile(name&"."&na,2,true)
set hf=Createobject("htmlfile")
wind=hf.parentwindow.clipboarddata.getdata("text")
o.writeline wind : o.close

[ 本帖最后由 Wingl83 于 2010-9-10 10:42 编辑 ]
收藏 分享
我是小菜菜……

zqz0012005

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
2楼
发表于 2010-9-9 21:37 | 只看该作者
点“取消”按钮又不是结束脚本，只是Inputbox函数结果的一种。
要退出需要自己处理：
na=Inputbox("请输入拓展名:","拓展名","txt")
if na="" then WScript.Quit
1

评分人数

命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

Wingl83

Rank: 5Rank: 5

帖子
136 
积分
552 
技术
2  
捐助
0  
注册时间
2008-8-2 
3楼
发表于 2010-9-10 10:41 | 只看该作者
楼上正解
我是小菜菜……

TOP

返回列表