
CODE: [Copy to clipboard][ Last edited by tireless on 2007-9-14 at 10:22 PM ]<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>
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |