联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
| 评分人 | 分数 | 时间 |
|---|---|---|
| huzixuan | +1 | 2007-11-10 09:23 |
set ie=createobject("internetexplorer.application")
ie.navigate "about:blank"
ie.visible=false
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("test.txt",1)
ie.document.parentwindow.clipboarddata.setdata "text",""
do while f.atendofstream <> true
line = f.readline
str=ie.document.parentwindow.clipboarddata.getdata("text")
ie.document.parentwindow.clipboarddata.setdata "text",str+vbCrLf+line
loop
str=ie.document.parentwindow.clipboarddata.getdata("text")
ie.quit
msgbox str| 评分人 | 分数 | 时间 |
|---|---|---|
| huzixuan | +3 | 2007-11-10 09:23 |
text='变量
CopyToClipBoard text
Sub CopyToClipBoard(Text)‘函数
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.Document.ParentWindow.ClipboardData.SetData "text", Text 'GetData可以获得内容
objIE.Quit
End Sub
| 评分人 | 分数 | 时间 |
|---|---|---|
| huzixuan | +4 | 2007-11-10 09:22 |