用的是hta文件
把下面的保存为.hta后缀。
(同目录下要有个“这里是原有的文件.txt”,或者在代码里改成你的那个txt名)
<script language="vbscript">
sub window_onload()
set a=createobject("adodb.stream")
with a
.type=2
.open
.loadfromfile "这里是原有的文件.txt"
.position=.size
.writetext vbcrlf & clipboarddata.getdata("text")
.savetofile "这里是原有的文件.txt",2
.close
end with
window.close
end sub
</script>
Last edited by tireless on 2007-9-14 at 10:22 PM ]