vbs實(shí)現(xiàn)的保存剪貼板中的文本并編輯或保存

    保存剪貼板中的文本.vbs
    原理就是首先判斷是否存在同名文件，存在就名字后面+1，然后將剪貼板的內(nèi)容保存到自定義擴(kuò)展名的文件里
    代碼如下:
    set fso=createobject("scripting.filesystemobject") : name=1
    Dim na
    na=Inputbox("請(qǐng)輸入拓展名:","拓展名","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("請(qǐng)輸入拓展名:","拓展名","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&""