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
保存剪贴板中的文本并编辑.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 createobject("wscript.shell").exec "notepad.exe "&name&"."&na&""
