批处理之家 - Powered by Discuz! Board

标题: [文本处理] 高手能指点下吗，请问这个vbs怎么修改， [打印本页]

作者: pichuli2019 时间: 2020-4-23 13:10 标题: 高手能指点下吗，请问这个vbs怎么修改，

能让复制的text文本，添加.txt末尾，谢谢了

    set fso=createobject("scripting.filesystemobject") : name=1
    Dim na
    'na=Inputbox("请输入拓展名:","拓展名","txt")
    na="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
复制代码

作者: pichuli2019 时间: 2020-4-23 13:12

回复 1# pichuli2019
这个每次复制文本运行，都会新建文本里的

作者: pichuli2019 时间: 2020-4-23 13:52

能让复制的text文本，添加到指定.txt末尾，谢谢了回复 2# pichuli2019

欢迎光临批处理之家 (http://www.bathome.net/)