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&""
